mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-03 11:33:37 +00:00
Code Issues Releases Activity

*** empty log message ***

Browse Source
This commit is contained in:
Jim Blandy 1992-09-12 01:20:58 +00:00
parent ee8caabbad
commit a1becb932d
1 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
lisp/term/x-win.el
View File

@ -415,6 +415,25 @@ This returns ARGS with the arguments that have been processed removed."
(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.