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

[Per Abrahamsen]

Index: emacs/lisp/menu-bar.el
diff -c emacs/lisp/menu-bar.el:1.201 emacs/lisp/menu-bar.el:1.202
*** emacs/lisp/menu-bar.el:1.201        Fri Feb 15 08:58:11 2002
--- emacs/lisp/menu-bar.el      Sun Feb 17 07:15:16 2002
***************
*** 626,631 ****
--- 626,640 ----
  (define-key menu-bar-showhide-menu [datetime-separator]
    '("--"))
  
+ (define-key menu-bar-showhide-menu [showhide-speedbar]
+   '(menu-item "Speedbar" speedbar-frame-mode
+             :help "Display speedbar"
+             :button (:toggle
+                      . (and (boundp 'speedbar-frame)
+                             (frame-live-p (symbol-value 'speedbar-frame))
+                             (frame-visible-p 
+                              (symbol-value 'speedbar-frame))))))
+ 
  (defvar menu-bar-showhide-scroll-bar-menu (make-sparse-keymap "Scroll-bar"))
  
  (define-key menu-bar-showhide-scroll-bar-menu [right]
***************
*** 874,881 ****
              :help "Invoke the Emacs built-in scientific calculator"))
  (define-key menu-bar-tools-menu [calendar]
    '(menu-item "Display Calendar" calendar))
- (define-key menu-bar-tools-menu [speedbar]
-   '(menu-item "Display Speedbar" speedbar-frame-mode))
  
  (define-key menu-bar-tools-menu [separator-net]
    '("--"))
--- 883,888 ----