(menu-bar-left-scroll-bar): Set `scroll-bar-mode'

to `left'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 92d8166..09ceed9 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-01-02  John Paul Wallington  <jpw@shootybangbang.com>
+
+       * menu-bar.el (menu-bar-left-scroll-bar): Set `scroll-bar-mode'
+       to `left'.
+
 2003-01-01  Richard M. Stallman  <rms@gnu.org>
 
        * mail/rmail.el (rmail-reply): Don't call mail-strip-quoted-names.

diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index ffc25b5..9698cd4 100644 (file)
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -791,7 +791,7 @@ PROPS are additional properties."
 (defun menu-bar-left-scroll-bar ()
   "Display scroll bars on the left of each window."
   (interactive)
-  (customize-set-variable 'scroll-bar-mode 'right))
+  (customize-set-variable 'scroll-bar-mode 'left))
 
 (define-key menu-bar-showhide-scroll-bar-menu [none]
   '(menu-item "None"