diff options
author | Richard M. Stallman <rms@gnu.org> | 1996-09-23 04:29:50 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1996-09-23 04:29:50 +0000 |
commit | 9a95c0ad1f6520241d9a16a206ab355fa883697c (patch) | |
tree | f9146df24c2c21a04f908f152e9388242bcff1c3 | |
parent | cca3b3a87299b3999b5745192b695fc42c91135a (diff) | |
download | emacs-9a95c0ad1f6520241d9a16a206ab355fa883697c.tar.gz |
(ctl-x-5-map, ctl-x-5-prefix): Duplicate defs deleted.
(scroll-bar-side): New variable.
(toggle-scroll-bar): Use scroll-bar-side.
-rw-r--r-- | lisp/frame.el | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/lisp/frame.el b/lisp/frame.el index b8184b98adc..7de71ef28fe 100644 --- a/lisp/frame.el +++ b/lisp/frame.el @@ -665,6 +665,9 @@ that is beyond the control of Emacs and this command has no effect on it." (modify-frame-parameters (selected-frame) (list (cons 'auto-lower (> arg 0))))) +(defvar scroll-bar-side 'left + "*Specify which side scroll bars should be on. Value is `left' or `right'.") + (defun toggle-scroll-bar (arg) "Toggle whether or not the selected frame has vertical scroll bars. With arg, turn vertical scroll bars on if and only if arg is positive." @@ -675,7 +678,9 @@ With arg, turn vertical scroll bars on if and only if arg is positive." (frame-parameters (selected-frame)))) -1 1))) (modify-frame-parameters (selected-frame) - (list (cons 'vertical-scroll-bars (> arg 0))))) + (list (cons 'vertical-scroll-bars + (if (> arg 0) + scroll-bar-side))))) (defun toggle-horizontal-scroll-bar (arg) "Toggle whether or not the selected frame has horizontal scroll bars. @@ -712,10 +717,6 @@ should use `set-frame-width' instead." ;;;; Key bindings -(defvar ctl-x-5-map (make-sparse-keymap) - "Keymap for frame commands.") -(defalias 'ctl-x-5-prefix ctl-x-5-map) -(define-key ctl-x-map "5" 'ctl-x-5-prefix) (define-key ctl-x-5-map "2" 'make-frame-command) (define-key ctl-x-5-map "0" 'delete-frame) |