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