diff options
author | Karl Heuer <kwzh@gnu.org> | 1994-04-06 05:59:21 +0000 |
---|---|---|
committer | Karl Heuer <kwzh@gnu.org> | 1994-04-06 05:59:21 +0000 |
commit | 2e7275bda035b3efc9d774fec3782945fa97dc9a (patch) | |
tree | 878a165c5ad814b0a3f0c297a9c7164eec723ead /src/minibuf.c | |
parent | 54593685b4aefc140168679b4d9996c455f43465 (diff) | |
download | emacs-2e7275bda035b3efc9d774fec3782945fa97dc9a.tar.gz |
(Fminibuffer_prompt_width): Allow for negative value.
Diffstat (limited to 'src/minibuf.c')
-rw-r--r-- | src/minibuf.c | 6 |
1 files 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; } |