Mercurial > emacs
comparison lisp/menu-bar.el @ 43383:d21a74d23497
2002-02-17 Per Abrahamsen <abraham@dina.kvl.dk>
* menu-bar.el (menu-bar-showhide-menu): Added speedbar.
(menu-bar-tools-menu): Removed speedbar.
* textmodes/ispell.el (ispell-menu-map): Added `customize-ispell'
and `flyspell-mode' entries.
* textmodes/flyspell.el (flyspell): Add to ispell group.
author | Per Abrahamsen <abraham@dina.kvl.dk> |
---|---|
date | Sun, 17 Feb 2002 12:15:17 +0000 |
parents | 976d3d8ab9a3 |
children | ce181770fa8e |
comparison
equal
deleted
inserted
replaced
43382:6d5695dd7639 | 43383:d21a74d23497 |
---|---|
624 :button (:toggle . display-time-mode))) | 624 :button (:toggle . display-time-mode))) |
625 | 625 |
626 (define-key menu-bar-showhide-menu [datetime-separator] | 626 (define-key menu-bar-showhide-menu [datetime-separator] |
627 '("--")) | 627 '("--")) |
628 | 628 |
629 (define-key menu-bar-showhide-menu [showhide-speedbar] | |
630 '(menu-item "Speedbar" speedbar-frame-mode | |
631 :help "Display speedbar" | |
632 :button (:toggle | |
633 . (and (boundp 'speedbar-frame) | |
634 (frame-live-p (symbol-value 'speedbar-frame)) | |
635 (frame-visible-p | |
636 (symbol-value 'speedbar-frame)))))) | |
637 | |
629 (defvar menu-bar-showhide-scroll-bar-menu (make-sparse-keymap "Scroll-bar")) | 638 (defvar menu-bar-showhide-scroll-bar-menu (make-sparse-keymap "Scroll-bar")) |
630 | 639 |
631 (define-key menu-bar-showhide-scroll-bar-menu [right] | 640 (define-key menu-bar-showhide-scroll-bar-menu [right] |
632 '(menu-item "On the Right" | 641 '(menu-item "On the Right" |
633 (lambda () | 642 (lambda () |
872 (define-key menu-bar-tools-menu [calculator] | 881 (define-key menu-bar-tools-menu [calculator] |
873 '(menu-item "Calculator" calculator | 882 '(menu-item "Calculator" calculator |
874 :help "Invoke the Emacs built-in scientific calculator")) | 883 :help "Invoke the Emacs built-in scientific calculator")) |
875 (define-key menu-bar-tools-menu [calendar] | 884 (define-key menu-bar-tools-menu [calendar] |
876 '(menu-item "Display Calendar" calendar)) | 885 '(menu-item "Display Calendar" calendar)) |
877 (define-key menu-bar-tools-menu [speedbar] | |
878 '(menu-item "Display Speedbar" speedbar-frame-mode)) | |
879 | 886 |
880 (define-key menu-bar-tools-menu [separator-net] | 887 (define-key menu-bar-tools-menu [separator-net] |
881 '("--")) | 888 '("--")) |
882 | 889 |
883 (define-key menu-bar-tools-menu [directory-search] | 890 (define-key menu-bar-tools-menu [directory-search] |