[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: |
Luc Teirlinck |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/menu-bar.el |
Date: |
Fri, 04 Mar 2005 20:18:06 -0500 |
Index: emacs/lisp/menu-bar.el
diff -c emacs/lisp/menu-bar.el:1.252 emacs/lisp/menu-bar.el:1.253
*** emacs/lisp/menu-bar.el:1.252 Wed Feb 16 09:47:37 2005
--- emacs/lisp/menu-bar.el Sat Mar 5 01:18:06 2005
***************
*** 590,596 ****
(defmacro menu-bar-make-mm-toggle (fname doc help &optional props)
"Make a menu-item for a global minor mode toggle.
FNAME is the minor mode's name (variable and function).
! DOC is the text to use the menu entry.
HELP is the text to use for the tooltip.
PROPS are additional properties."
`'(menu-item ,doc ,fname
--- 590,596 ----
(defmacro menu-bar-make-mm-toggle (fname doc help &optional props)
"Make a menu-item for a global minor mode toggle.
FNAME is the minor mode's name (variable and function).
! DOC is the text to use for the menu entry.
HELP is the text to use for the tooltip.
PROPS are additional properties."
`'(menu-item ,doc ,fname
***************
*** 637,643 ****
;; These are set with menu-bar-make-mm-toggle, which does not
;; put on a customized-value property.
(dolist (elt '(line-number-mode column-number-mode cua-mode
show-paren-mode
! transient-mark-mode global-font-lock-mode))
(and (customize-mark-to-save elt)
(setq need-save t)))
;; These are set with `customize-set-variable'.
--- 637,644 ----
;; These are set with menu-bar-make-mm-toggle, which does not
;; put on a customized-value property.
(dolist (elt '(line-number-mode column-number-mode cua-mode
show-paren-mode
! transient-mark-mode global-font-lock-mode
! blink-cursor-mode))
(and (customize-mark-to-save elt)
(setq need-save t)))
;; These are set with `customize-set-variable'.
***************
*** 959,964 ****
--- 960,973 ----
"Enter Lisp debugger when an error is signaled"))
(define-key menu-bar-options-menu [debugger-separator]
'("--"))
+
+ (define-key menu-bar-options-menu [blink-cursor-mode]
+ (menu-bar-make-mm-toggle blink-cursor-mode
+ "Blinking Cursor"
+ "Whether the cursor blinks (Blink Cursor mode)"))
+ (define-key menu-bar-options-menu [cursor-separator]
+ '("--"))
+
(define-key menu-bar-options-menu [toggle-auto-compression]
'(menu-item "Automatic File De/compression"
auto-compression-mode
- [Emacs-diffs] Changes to emacs/lisp/menu-bar.el,
Luc Teirlinck <=