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 | 19c6feac9f26e53328e84410393c81175c1bbc44 (patch) | |
| tree | ca12a92b3012735f217e87c9e98706a57a8edadb /lisp/scroll-bar.el | |
| parent | 21de5941c9b67f22a3d48350f483d2170ff8bd05 (diff) | |
| download | emacs-19c6feac9f26e53328e84410393c81175c1bbc44.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) |