# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 843452990 0
# Node ID 8915604a050c1478d9e0937ab9fca78cabb04702
# Parent  07cfbdac7ec567ba7ba1f6ef71eb0913a78ec9dd
(ctl-x-5-map, ctl-x-5-prefix): Duplicate defs deleted.

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

diff -r 07cfbdac7ec5 -r 8915604a050c lisp/frame.el
--- 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)