From: Karl Heuer <kwzh@gnu.org>
Date: Wed, 6 Apr 1994 05:59:21 +0000 (+0000)
Subject: (Fminibuffer_prompt_width): Allow for negative value.
X-Git-Tag: emacs-19.34~9151
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c7eddf3c356675a39ca24a2b4dbc752c42c693ab;p=emacs.git

(Fminibuffer_prompt_width): Allow for negative value.
---

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;
 }