Mercurial > emacs

changeset 45783:c027436226dd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(menu-bar-showhide-fringe-menu): Don't use `fringe-mode' without first making sure it's bound.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Wed, 12 Jun 2002 13:55:59 +0000
parents 0f8d5bf36f62
children 95b7f625cdf5
files lisp/menu-bar.el
diffstat 1 files changed, 8 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/menu-bar.el	Wed Jun 12 13:29:55 2002 +0000
+++ b/lisp/menu-bar.el	Wed Jun 12 13:55:59 2002 +0000
@@ -674,7 +674,8 @@
   '(menu-item "Default" menu-bar-showhide-fringe-menu-customize-reset
 	      :help "Default width fringe on both left and right side"
 	      :visible (display-graphic-p)
-	      :button (:radio . (eq fringe-mode nil))))
+	      :button (:radio . (or (not (boundp 'fringe-mode))
+				    (eq fringe-mode nil)))))
 
 (defun menu-bar-showhide-fringe-menu-customize-left ()
   "Make fringes appear only on the left."
@@ -686,7 +687,8 @@
   '(menu-item "On the Left" menu-bar-showhide-fringe-menu-customize-left
 	      :help "Fringe only on the left side"
 	      :visible (display-graphic-p)
-	      :button (:radio . (equal fringe-mode '(nil . 0)))))
+	      :button (:radio . (and (boundp 'fringe-mode)
+				     (equal fringe-mode '(nil . 0))))))
 
 (defun menu-bar-showhide-fringe-menu-customize-right ()
   "Make fringes appear only on the right."
@@ -698,7 +700,8 @@
   '(menu-item "On the Right" menu-bar-showhide-fringe-menu-customize-right
 	      :help "Fringe only on the right side"
 	      :visible (display-graphic-p)
-	      :button (:radio . (equal fringe-mode '(0 . nil)))))
+	      :button (:radio . (and (boundp 'fringe-mode)
+				     (equal fringe-mode '(0 . nil))))))
 
 (defun menu-bar-showhide-fringe-menu-customize-disable ()
   "Make fringes disappear."
@@ -710,7 +713,8 @@
   '(menu-item "None" menu-bar-showhide-fringe-menu-customize-disable
 	      :help "Turn off fringe"
 	      :visible (display-graphic-p)
-	      :button (:radio . (eq fringe-mode 0))))
+	      :button (:radio . (and (boundp 'fringe-mode)
+				     (eq fringe-mode 0)))))
 
 (define-key menu-bar-showhide-menu [showhide-fringe]
   (list 'menu-item "Fringe" menu-bar-showhide-fringe-menu