From e7b6ee945adc9879838f29e082e5ec15ec69a0d3 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Wed, 12 Jun 2002 13:55:59 +0000 Subject: [PATCH] (menu-bar-showhide-fringe-menu): Don't use `fringe-mode' without first making sure it's bound. --- lisp/menu-bar.el | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index 8201335a4e6..8fd17c16329 100644 --- 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 -- 2.39.5