(menu-bar-showhide-fringe-menu): Don't use `fringe-mode'

without first making sure it's bound.

diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index 8201335a4e636b0e5191cc460a79e8e4f38447c1..8fd17c163299b0c1f50afd8aad38020207d99767 100644 (file)
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -674,7 +674,8 @@ Do the same for the keys of the same name."
   '(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 @@ Do the same for the keys of the same name."
   '(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 @@ Do the same for the keys of the same name."
   '(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 @@ Do the same for the keys of the same name."
   '(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