Mercurial > emacs
changeset 1099:178215fd8a20
*** empty log message ***
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Sat, 12 Sep 1992 01:20:58 +0000 |
| parents | 79f020f34683 |
| children | 5b3b202a84c8 |
| files | lisp/term/x-win.el |
| diffstat | 1 files changed, 19 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/term/x-win.el Fri Sep 11 23:34:08 1992 +0000 +++ b/lisp/term/x-win.el Sat Sep 12 01:20:58 1992 +0000 @@ -415,6 +415,25 @@ (setq defined-colors (cons this-color defined-colors)))) defined-colors)) +(defvar scroll-bar-mode nil) + +;;; ??? x-create-screen needs to be changed to use scroll-bar-mode +;;; to decide (by default) whether to make a scroll bar. +(defun scroll-bar-mode (flag) + "Toggle display of vertical scroll bars on each frame. +This command applies to all frames that exist and frames to be +created in the future. +With a numeric argument, if the argument is negative, +turn off scroll bars; otherwise, turn on scroll bars." + (interactive "P") + (setq scroll-bar-mode (if (null flag) (not scroll-bar-mode) + (or (not (numberp flag)) (>= flag 0)))) + (let ((frames (frame-list))) + (while frames + (modify-frame-parameters (car frames) + (list (cons 'vertical-scrollbar scroll-bar-mode))) + (setq frames (cdr frames))))) + ;;;; Function keys ;;; Give some common function keys reasonable definitions.