Richard M. Stallman  committed 8915604

(ctl-x-5-map, ctl-x-5-prefix): Duplicate defs deleted.

(scroll-bar-side): New variable.
(toggle-scroll-bar): Use scroll-bar-side.

  • Participants
  • Parent commits 07cfbda
  • Branches default

Comments (0)

Files changed (1)

File lisp/frame.el

   (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."
 			   (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.
 ;;;; 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)