/[emacs]/emacs/lisp/menu-bar.el
ViewVC logotype

Diff of /emacs/lisp/menu-bar.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.221 by rms, Thu May 30 17:13:22 2002 UTC revision 1.222 by monnier, Wed Jun 12 13:55:59 2002 UTC
# Line 674  Do the same for the keys of the same nam Line 674  Do the same for the keys of the same nam
674    '(menu-item "Default" menu-bar-showhide-fringe-menu-customize-reset    '(menu-item "Default" menu-bar-showhide-fringe-menu-customize-reset
675                :help "Default width fringe on both left and right side"                :help "Default width fringe on both left and right side"
676                :visible (display-graphic-p)                :visible (display-graphic-p)
677                :button (:radio . (eq fringe-mode nil))))                :button (:radio . (or (not (boundp 'fringe-mode))
678                                        (eq fringe-mode nil)))))
679    
680  (defun menu-bar-showhide-fringe-menu-customize-left ()  (defun menu-bar-showhide-fringe-menu-customize-left ()
681    "Make fringes appear only on the left."    "Make fringes appear only on the left."
# Line 686  Do the same for the keys of the same nam Line 687  Do the same for the keys of the same nam
687    '(menu-item "On the Left" menu-bar-showhide-fringe-menu-customize-left    '(menu-item "On the Left" menu-bar-showhide-fringe-menu-customize-left
688                :help "Fringe only on the left side"                :help "Fringe only on the left side"
689                :visible (display-graphic-p)                :visible (display-graphic-p)
690                :button (:radio . (equal fringe-mode '(nil . 0)))))                :button (:radio . (and (boundp 'fringe-mode)
691                                         (equal fringe-mode '(nil . 0))))))
692    
693  (defun menu-bar-showhide-fringe-menu-customize-right ()  (defun menu-bar-showhide-fringe-menu-customize-right ()
694    "Make fringes appear only on the right."    "Make fringes appear only on the right."
# Line 698  Do the same for the keys of the same nam Line 700  Do the same for the keys of the same nam
700    '(menu-item "On the Right" menu-bar-showhide-fringe-menu-customize-right    '(menu-item "On the Right" menu-bar-showhide-fringe-menu-customize-right
701                :help "Fringe only on the right side"                :help "Fringe only on the right side"
702                :visible (display-graphic-p)                :visible (display-graphic-p)
703                :button (:radio . (equal fringe-mode '(0 . nil)))))                :button (:radio . (and (boundp 'fringe-mode)
704                                         (equal fringe-mode '(0 . nil))))))
705    
706  (defun menu-bar-showhide-fringe-menu-customize-disable ()  (defun menu-bar-showhide-fringe-menu-customize-disable ()
707    "Make fringes disappear."    "Make fringes disappear."
# Line 710  Do the same for the keys of the same nam Line 713  Do the same for the keys of the same nam
713    '(menu-item "None" menu-bar-showhide-fringe-menu-customize-disable    '(menu-item "None" menu-bar-showhide-fringe-menu-customize-disable
714                :help "Turn off fringe"                :help "Turn off fringe"
715                :visible (display-graphic-p)                :visible (display-graphic-p)
716                :button (:radio . (eq fringe-mode 0))))                :button (:radio . (and (boundp 'fringe-mode)
717                                         (eq fringe-mode 0)))))
718    
719  (define-key menu-bar-showhide-menu [showhide-fringe]  (define-key menu-bar-showhide-menu [showhide-fringe]
720    (list 'menu-item "Fringe" menu-bar-showhide-fringe-menu    (list 'menu-item "Fringe" menu-bar-showhide-fringe-menu

Legend:
Removed from v.1.221  
changed lines
  Added in v.1.222

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26