Mercurial > emacs
comparison lisp/scroll-bar.el @ 4469:abb585cf9188
(scroll-bar-mode): If FLAG is non-nil, set it to its prefix-numeric-value.
| author | Roland McGrath <roland@gnu.org> |
|---|---|
| date | Fri, 06 Aug 1993 21:03:45 +0000 |
| parents | f37a9c897699 |
| children | 3dae5675cd3e |
comparison
equal
deleted
inserted
replaced
| 4468:5e9224dac452 | 4469:abb585cf9188 |
|---|---|
| 54 This command applies to all frames that exist and frames to be | 54 This command applies to all frames that exist and frames to be |
| 55 created in the future. | 55 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 |
| 62 (let ((assq (assq 'vertical-scroll-bars default-frame-alist))) | 63 (let ((assq (assq 'vertical-scroll-bars default-frame-alist))) |
| 63 (if assq (cdr assq) t)))) | 64 (if assq (cdr assq) t)))) |