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 | 97a74ef613a91d7ab0d866d8892d6262a9b77eb2 (patch) | |
| tree | 82c5434f8e0639ac21835269d5b32163c46bd335 /lisp | |
| parent | 4fdca28945c75518e72c452a797ffb9ba2326c16 (diff) | |
| download | emacs-97a74ef613a91d7ab0d866d8892d6262a9b77eb2.tar.gz emacs-97a74ef613a91d7ab0d866d8892d6262a9b77eb2.tar.bz2 emacs-97a74ef613a91d7ab0d866d8892d6262a9b77eb2.zip | |
(ctl-x-5-map, ctl-x-5-prefix): Duplicate defs deleted.
(scroll-bar-side): New variable.
(toggle-scroll-bar): Use scroll-bar-side.
Diffstat (limited to 'lisp')
| -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) |