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

to `left'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 92d8166bccb8eec3d043cb6109b8d919682feb00..09ceed9a897fb9d5a5a4db0ea1e482d301379200 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 ffc25b5da8323ce5ae89df9c5d0aebc349edfafb..9698cd4de9141d781a7110ca39f1641d54e4a621 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"