# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 877589055 0
# Node ID a68db1ead5cf3a0d055d1f09cbf9bc37a3402864
# Parent  a5d0f051dd57db300278c379d9d3367dfd974901
(set-scroll-bar-mode): Take just one arg.
(set-scroll-bar-mode-1): Take 2 args, as set-scroll-bar-mode used to.
(scroll-bar-mode variable): Use set-scroll-bar-mode-1.
(scroll-bar-mode command): Pass 1 arg to set-scroll-bar-mode.

diff -r a5d0f051dd57 -r a68db1ead5cf lisp/scroll-bar.el
--- a/lisp/scroll-bar.el	Thu Oct 23 06:42:50 1997 +0000
+++ b/lisp/scroll-bar.el	Thu Oct 23 06:44:15 1997 +0000
@@ -62,7 +62,10 @@
   "Non-nil means `set-scroll-bar-mode' should really do something.
 This is nil while loading `scroll-bar.el', and t afterward.")
 
-(defun set-scroll-bar-mode (ignore value)
+(defun set-scroll-bar-mode-1 (ignore value)
+  (set-scroll-bar-mode value))
+
+(defun set-scroll-bar-mode (value)
   "Set `scroll-bar-mode' to VALUE and put the new value into effect."
   (setq scroll-bar-mode value)
 
@@ -95,7 +98,7 @@
 		 (const left)
 		 (const right))
   :group 'frames
-  :set 'set-scroll-bar-mode)
+  :set 'set-scroll-bar-mode-1)
 
 ;; We just set scroll-bar-mode, but that was the default.
 ;; If it is set again, that is for real.
@@ -111,8 +114,7 @@
   (if flag (setq flag (prefix-numeric-value flag)))
 
   ;; Tweedle the variable according to the argument.
-  (set-scroll-bar-mode nil
-		       (if (null flag) (not scroll-bar-mode)
+  (set-scroll-bar-mode (if (null flag) (not scroll-bar-mode)
 			 (and (or (not (numberp flag)) (>= flag 0))
 			      'left))))