diff options
author | Jim Blandy <[email protected]> | 1993-02-25 00:38:55 +0000 |
---|---|---|
committer | Jim Blandy <[email protected]> | 1993-02-25 00:38:55 +0000 |
commit | fe48f821caa8b9bd09996cf7bdbdfcf12b58a1fb (patch) | |
tree | e00502d7241d3d70c041851bd7b934149b000d0d /lisp/term/x-win.el | |
parent | c922bc55143f0d9a8632e96eaa23c1e58c8d25eb (diff) |
* term/x-win.el (scroll-bar-mode, scroll-bar-mode): Move these
functions to scrolbar.el.
* scrollbar.el (scroll-bar-mode, scroll-bar-mode): Here they are.
Make scroll-bar-mode set the {vertical,horizontal}-scrollbars
parameters in default-frame-alist, and modify all extant screens
using the correct parameter names.
Diffstat (limited to 'lisp/term/x-win.el')
-rw-r--r-- | lisp/term/x-win.el | 19 |
1 files changed, 0 insertions, 19 deletions
diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el index e918a68f7e..0c9210a410 100644 --- a/lisp/term/x-win.el +++ b/lisp/term/x-win.el @@ -415,25 +415,6 @@ 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. |