mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-04 20:27:45 +00:00
Code Issues Releases Activity

(read-mail-item-name): New function.

Browse Source 
(menu-bar-tools-menu): Use it to compute and display the package
used to read email.
(menu-bar-tools-menu): Fix typo in GUD's help string.
This commit is contained in:
Eli Zaretskii 2000-09-07 17:14:55 +00:00
parent 65606f5ea1
commit 0a1f9f1d9e
1 changed files with 15 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lisp/menu-bar.el
View File

@ -639,6 +639,13 @@ Do the same for the keys of the same name."
;; The "Tools" menu items ;; The "Tools" menu items
(defun read-mail-item-name ()
(let* ((known-rmail-commands '((rmail . "RMAIL")
(mh-rmail . "MH")
(gnus . "Gnus")))
(known (assq read-mail-command known-rmail-commands)))
(if known (cdr known) (symbol-name read-mail-command))))
(defvar menu-bar-games-menu (make-sparse-keymap "Games")) (defvar menu-bar-games-menu (make-sparse-keymap "Games"))
(define-key menu-bar-tools-menu [games] (define-key menu-bar-tools-menu [games]
@ -693,12 +700,14 @@ Do the same for the keys of the same name."
'(menu-item "Send Mail" compose-mail '(menu-item "Send Mail" compose-mail
:help "Send a mail message")) :help "Send a mail message"))
(define-key menu-bar-tools-menu [rmail] (define-key menu-bar-tools-menu [rmail]
'(menu-item "Read Mail" (lambda () (list
'menu-item `(format "Read Mail (with %s)" (read-mail-item-name))
(lambda ()
(interactive) (interactive)
(call-interactively read-mail-command)) (call-interactively read-mail-command))
:help "Read your mail and reply to it")) :help "Read your mail and reply to it"))
(define-key menu-bar-tools-menu [gnus] (define-key menu-bar-tools-menu [gnus]
'(menu-item "Read Net News" gnus '(menu-item "Read Net News (Gnus)" gnus
:help "Read network news groups")) :help "Read network news groups"))
(define-key menu-bar-tools-menu [separator-vc] (define-key menu-bar-tools-menu [separator-vc]
@ -739,7 +748,7 @@ Do the same for the keys of the same name."
(define-key menu-bar-tools-menu [gdb] (define-key menu-bar-tools-menu [gdb]
'(menu-item "Debugger (GUD)..." gdb '(menu-item "Debugger (GUD)..." gdb
:help "Debug a program from withing Emacs")) :help "Debug a program from within Emacs"))
(define-key menu-bar-tools-menu [shell-on-region] (define-key menu-bar-tools-menu [shell-on-region]
'(menu-item "Shell Command on Region..." shell-command-on-region '(menu-item "Shell Command on Region..." shell-command-on-region
:enable mark-active :enable mark-active