diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2002-06-12 13:55:59 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2002-06-12 13:55:59 +0000 |
| commit | e7b6ee945adc9879838f29e082e5ec15ec69a0d3 (patch) | |
| tree | 492107c2a3b53f96bf5fbcecaffff76d26d0fb8b /lisp/menu-bar.el | |
| parent | 91b5390444faade507218117568ae5793b883efd (diff) | |
| download | emacs-e7b6ee945adc9879838f29e082e5ec15ec69a0d3.tar.gz | |
(menu-bar-showhide-fringe-menu): Don't use `fringe-mode'
without first making sure it's bound.
Diffstat (limited to 'lisp/menu-bar.el')
| -rw-r--r-- | lisp/menu-bar.el | 12 |
1 files 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 |