From 00cb70dc36ffb9b8aa5203ce71f6a122a6ce18e9 Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Sat, 25 May 2002 05:15:07 +0000 Subject: [PATCH] (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. --- lisp/ChangeLog | 8 ++++++++ lisp/menu-bar.el | 9 ++++++--- 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 + + * 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 * 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 -- 2.39.5