[Emacs-diffs] Changes to emacs/lisp/menu-bar.el

[Stefan Monnier]

Index: emacs/lisp/menu-bar.el
diff -c emacs/lisp/menu-bar.el:1.221 emacs/lisp/menu-bar.el:1.222
*** emacs/lisp/menu-bar.el:1.221        Thu May 30 13:13:22 2002
--- emacs/lisp/menu-bar.el      Wed Jun 12 09:55:59 2002
***************
*** 674,680 ****
    '(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))))
  
  (defun menu-bar-showhide-fringe-menu-customize-left ()
    "Make fringes appear only on the left."
--- 674,681 ----
    '(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 . (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,692 ****
    '(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)))))
  
  (defun menu-bar-showhide-fringe-menu-customize-right ()
    "Make fringes appear only on the right."
--- 687,694 ----
    '(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 . (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,704 ****
    '(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)))))
  
  (defun menu-bar-showhide-fringe-menu-customize-disable ()
    "Make fringes disappear."
--- 700,707 ----
    '(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 . (and (boundp 'fringe-mode)
!                                    (equal fringe-mode '(0 . nil))))))
  
  (defun menu-bar-showhide-fringe-menu-customize-disable ()
    "Make fringes disappear."
***************
*** 710,716 ****
    '(menu-item "None" menu-bar-showhide-fringe-menu-customize-disable
              :help "Turn off fringe"
              :visible (display-graphic-p)
!             :button (:radio . (eq fringe-mode 0))))
  
  (define-key menu-bar-showhide-menu [showhide-fringe]
    (list 'menu-item "Fringe" menu-bar-showhide-fringe-menu
--- 713,720 ----
    '(menu-item "None" menu-bar-showhide-fringe-menu-customize-disable
              :help "Turn off fringe"
              :visible (display-graphic-p)
!             :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