Mercurial > emacs
changeset 16295:8915604a050c
(ctl-x-5-map, ctl-x-5-prefix): Duplicate defs deleted.
(scroll-bar-side): New variable.
(toggle-scroll-bar): Use scroll-bar-side.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 23 Sep 1996 04:29:50 +0000 |
| parents | 07cfbdac7ec5 |
| children | 584310941e70 |
| files | lisp/frame.el |
| diffstat | 1 files changed, 6 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/frame.el Mon Sep 23 04:29:04 1996 +0000 +++ b/lisp/frame.el Mon Sep 23 04:29:50 1996 +0000 @@ -665,6 +665,9 @@ (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 @@ (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 @@ ;;;; 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)