(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.

2 files changed, 14 insertions, 3 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 583a11b5722..5533796882b 100644
--- 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 c517cbd060b..4f6dd80bbf7 100644
--- 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