Mercurial > emacs
diff lisp/term/x-win.el @ 1099:178215fd8a20
*** empty log message ***
author | Jim Blandy <jimb@redhat.com> |
---|---|
date | Sat, 12 Sep 1992 01:20:58 +0000 |
parents | cc82116a8f1c |
children | 49e9dffbb2dc |
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.