diff options
author | Karl Heuer <kwzh@gnu.org> | 1997-10-15 23:40:43 +0000 |
---|---|---|
committer | Karl Heuer <kwzh@gnu.org> | 1997-10-15 23:40:43 +0000 |
commit | 49f772dc7d2a48fdf0d8e3ce50bd0ff20c62e3d5 (patch) | |
tree | 5acd82beacbba8791e32f6b4709d7b50e85d3d45 /lisp/scroll-bar.el | |
parent | f66a7b7920d946a1769e9c05f01681b285ec506c (diff) | |
download | emacs-49f772dc7d2a48fdf0d8e3ce50bd0ff20c62e3d5.tar.gz |
(toggle-scroll-bar): Call prefix-numeric-value.
Diffstat (limited to 'lisp/scroll-bar.el')
-rw-r--r-- | lisp/scroll-bar.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/scroll-bar.el b/lisp/scroll-bar.el index 6a2660626d1..ccdf34909c7 100644 --- a/lisp/scroll-bar.el +++ b/lisp/scroll-bar.el @@ -126,7 +126,8 @@ when they are turned on; if it is nil, they go on the left." (setq arg (if (cdr (assq 'vertical-scroll-bars (frame-parameters (selected-frame)))) - -1 1))) + -1 1)) + (setq arg (prefix-numeric-value arg))) (modify-frame-parameters (selected-frame) (list (cons 'vertical-scroll-bars (if (> arg 0) |