[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/menu-bar.el
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/menu-bar.el |
Date: |
Wed, 12 Jun 2002 09:55:59 -0400 |
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
- [Emacs-diffs] Changes to emacs/lisp/menu-bar.el,
Stefan Monnier <=