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

[Nick Roberts]

Index: emacs/lisp/menu-bar.el
diff -c emacs/lisp/menu-bar.el:1.256 emacs/lisp/menu-bar.el:1.257
*** emacs/lisp/menu-bar.el:1.256        Mon Mar 28 01:16:44 2005
--- emacs/lisp/menu-bar.el      Thu Apr 21 00:07:38 2005
***************
*** 646,652 ****
           (setq need-save t)))
      ;; These are set with `customize-set-variable'.
      (dolist (elt '(scroll-bar-mode
!                  debug-on-quit debug-on-error menu-bar-mode tool-bar-mode
                   save-place uniquify-buffer-name-style fringe-mode
                   fringe-indicators case-fold-search
                   display-time-mode auto-compression-mode
--- 646,653 ----
           (setq need-save t)))
      ;; These are set with `customize-set-variable'.
      (dolist (elt '(scroll-bar-mode
!                  debug-on-quit debug-on-error
!                  tooltip-mode menu-bar-mode tool-bar-mode
                   save-place uniquify-buffer-name-style fringe-mode
                   fringe-indicators case-fold-search
                   display-time-mode auto-compression-mode
***************
*** 910,915 ****
--- 911,922 ----
        :visible `(display-graphic-p)
        :help "Select scroll-bar mode"))
  
+ (define-key menu-bar-showhide-menu [showhide-tooltip-mode]
+   (list 'menu-item "Tooltips" 'tooltip-mode
+       :help "Toggle tooltips on/off"
+       :visible  `(and (display-graphic-p) (fboundp 'x-show-tip))
+       :button `(:toggle . tooltip-mode)))
+ 
  (define-key menu-bar-showhide-menu [menu-bar-mode]
    '(menu-item "Menu-bar" menu-bar-mode
              :help "Toggle menu-bar on/off"