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] |