mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-13 16:38:14 +00:00
Code Issues Releases Activity

(toggle-scroll-bar): Call prefix-numeric-value.

Browse Source
This commit is contained in:
Karl Heuer 1997-10-15 23:40:43 +00:00
parent 21de5941c9
commit 19c6feac9f
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/scroll-bar.el
View File

@ -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)