(menu-bar-showhide-fringe-menu-customize-left)

(menu-bar-showhide-fringe-menu-customize-right)
(menu-bar-showhide-fringe-menu-customize-disable):
Use proper calling convention for `customize-set-value'.
Require `fringe' before setting variable.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 583a11b5722f902e12d6ebe58ba0a6e148a90840..5533796882bb491a5c38d3a9d85a16a822afc23a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2002-05-25  Miles Bader  <miles@gnu.org>
+
+       * menu-bar.el (menu-bar-showhide-fringe-menu-customize-left) 
+       (menu-bar-showhide-fringe-menu-customize-right) 
+       (menu-bar-showhide-fringe-menu-customize-disable):
+       Use proper calling convention for `customize-set-value'.
+       Require `fringe' before setting variable.
+
 2002-05-25  Kim F. Storm  <storm@cua.dk>
 
        * emulation/cua-base.el (cua--self-insert-char-p): New function.

diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index c517cbd060b9a24c8900b6de25e773f551995dd3..4f6dd80bbf7cba37b6d7d16b2d0f163f3493415f 100644 (file)
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -679,7 +679,8 @@ Do the same for the keys of the same name."
 (defun menu-bar-showhide-fringe-menu-customize-left ()
   "Make fringes appear only on the left."
   (interactive)
-  (customize-set-variable 'fringe-mode nil '(nil . 0)))
+  (require 'fringe)
+  (customize-set-variable 'fringe-mode '(nil . 0)))
 
 (define-key menu-bar-showhide-fringe-menu [left]
   '(menu-item "On the Left" menu-bar-showhide-fringe-menu-customize-left
@@ -690,7 +691,8 @@ Do the same for the keys of the same name."
 (defun menu-bar-showhide-fringe-menu-customize-right ()
   "Make fringes appear only on the right."
   (interactive)
-  (customize-set-variable 'fringe-mode nil '(0 . nil)))
+  (require 'fringe)
+  (customize-set-variable 'fringe-mode '(0 . nil)))
 
 (define-key menu-bar-showhide-fringe-menu [right]
   '(menu-item "On the Right" menu-bar-showhide-fringe-menu-customize-right
@@ -701,7 +703,8 @@ Do the same for the keys of the same name."
 (defun menu-bar-showhide-fringe-menu-customize-disable ()
   "Make fringes disappear."
   (interactive)
-  (customize-set-variable 'fringe-mode nil 0))
+  (require 'fringe)
+  (customize-set-variable 'fringe-mode 0))
 
 (define-key menu-bar-showhide-fringe-menu [none]
   '(menu-item "None" menu-bar-showhide-fringe-menu-customize-disable