# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1023890159 0
# Node ID c027436226ddf0a58e811f2341c15dcb7eead112
# Parent  0f8d5bf36f622bc4696b1dbf14d3bf2f5224b9c5
(menu-bar-showhide-fringe-menu): Don't use `fringe-mode'
without first making sure it's bound.

diff -r 0f8d5bf36f62 -r c027436226dd lisp/menu-bar.el
--- 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