(menu-bar-showhide-scroll-bar-menu): Quote `window-system'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d0057533bb5994c492e5e4fc6ed48beb807179e0..396b666718f2129f147bd452c5cbf3aba2feb599 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2002-01-27  Pavel Jan\e,Bm\e(Bk  <Pavel@Janik.cz>
 
+       * menu-bar.el (menu-bar-showhide-scroll-bar-menu): Quote
+       `window-system'.
+
        * tmm.el (tmm-get-keymap): Honour :visible in `menu-item'.
        Add Keywords header.  Update Commentary section.
        Update copyright notice.

diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index 416832f9454ef5018425bdd9f3d43c0ce6d4fbff..6234ca873f4a80d5470a8c44efe7860f7ffc2ff7 100644 (file)
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -524,7 +524,7 @@ Do the same for the keys of the same name."
 
 (define-key menu-bar-showhide-menu [showhide-scroll-bar]
   (list 'menu-item "Scroll-Bar" menu-bar-showhide-scroll-bar-menu
-       :visible window-system
+       :visible 'window-system
        :help "Select scroll-bar mode"))
 
 (defun showhide-menu-bar ()