From c7eddf3c356675a39ca24a2b4dbc752c42c693ab Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Wed, 6 Apr 1994 05:59:21 +0000 Subject: [PATCH] (Fminibuffer_prompt_width): Allow for negative value. --- src/minibuf.c | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/minibuf.c b/src/minibuf.c index fc53c3922d5..89d5ddb0235 100644 --- a/src/minibuf.c +++ b/src/minibuf.c @@ -1541,11 +1541,13 @@ If no minibuffer is active, return nil.") DEFUN ("minibuffer-prompt-width", Fminibuffer_prompt_width, Sminibuffer_prompt_width, 0, 0, 0, - "Return the display width of the minibuffer prompt.") + "Return the horizontal position after the minibuffer prompt.\n\ +This may be less than the actual display width of the minibuffer prompt,\n\ +or even negative, if horizontal scrolling is in effect in the minibuffer.") () { Lisp_Object width; - XFASTINT (width) = minibuf_prompt_width; + XSET (width, Lisp_Int, minibuf_prompt_width); return width; } -- 2.11.4.GIT