# HG changeset patch # User Miles Bader # Date 1022303473 0 # Node ID 59015bfc23057473a12d9208a3458f0037a7b479 # Parent 3ddab99699f4a5c6b8de9a9b6f75165dae77eefb (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 -r 3ddab99699f4 -r 59015bfc2305 lisp/menu-bar.el --- 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