Mercurial > emacs
diff lisp/menu-bar.el @ 45783:c027436226dd
(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 | ac048d849245 |
| children | 3a5c7022ed2f |
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