# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 765611961 0
# Node ID 4fe5b1447c3f04f905aaea3ab0e884e26b3885d7
# Parent  db2292ce4894790fd3cd206dc35cfbb90faa5300
(Fminibuffer_prompt_width): Allow for negative value.

diff -r db2292ce4894 -r 4fe5b1447c3f src/minibuf.c
--- a/src/minibuf.c	Wed Apr 06 05:04:40 1994 +0000
+++ b/src/minibuf.c	Wed Apr 06 05:59:21 1994 +0000
@@ -1541,11 +1541,13 @@
 
 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;
 }