diff options
| author | Roland McGrath | 1993-08-06 21:03:45 +0000 |
|---|---|---|
| committer | Roland McGrath | 1993-08-06 21:03:45 +0000 |
| commit | 6ee9f9535837446ff3e051c82653b7aef4b95331 (patch) | |
| tree | a6e0137fc1fae7ded2024cbb8da2ca1bc6a3a543 | |
| parent | e0568e86372b137dd87b058d0d2b43411c9993d9 (diff) | |
| download | emacs-6ee9f9535837446ff3e051c82653b7aef4b95331.tar.gz emacs-6ee9f9535837446ff3e051c82653b7aef4b95331.zip | |
(scroll-bar-mode): If FLAG is non-nil, set it to its prefix-numeric-value.
| -rw-r--r-- | lisp/scroll-bar.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/scroll-bar.el b/lisp/scroll-bar.el index 8fd62f02898..462fdad55ae 100644 --- a/lisp/scroll-bar.el +++ b/lisp/scroll-bar.el | |||
| @@ -56,6 +56,7 @@ created in the future. | |||
| 56 | With a numeric argument, if the argument is negative, | 56 | With a numeric argument, if the argument is negative, |
| 57 | turn off scroll bars; otherwise, turn on scroll bars." | 57 | turn off scroll bars; otherwise, turn on scroll bars." |
| 58 | (interactive "P") | 58 | (interactive "P") |
| 59 | (if flag (setq flag (prefix-numeric-value flag))) | ||
| 59 | 60 | ||
| 60 | ;; Obtain the current setting by looking at default-frame-alist. | 61 | ;; Obtain the current setting by looking at default-frame-alist. |
| 61 | (let ((scroll-bar-mode | 62 | (let ((scroll-bar-mode |