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

[Luc Teirlinck]

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