changeset 45505:59015bfc2305

(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.
author Miles Bader <miles@gnu.org>
date Sat, 25 May 2002 05:11:13 +0000
parents 3ddab99699f4
children b4c8b00444bb
files lisp/menu-bar.el
diffstat 1 files changed, 6 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/menu-bar.el	Sat May 25 00:08:36 2002 +0000
+++ b/lisp/menu-bar.el	Sat May 25 05:11:13 2002 +0000
@@ -679,7 +679,8 @@
 (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 @@
 (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 @@
 (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