diff options
| author | Dan Nicolaescu <dann@ics.uci.edu> | 2009-10-23 05:15:26 +0000 |
|---|---|---|
| committer | Dan Nicolaescu <dann@ics.uci.edu> | 2009-10-23 05:15:26 +0000 |
| commit | 8f43cbf352348c20bb1560480a8545ee8c2d9442 (patch) | |
| tree | b5e40b9619484a3792f332c958d802b29f2b185e /lisp/net/eudc.el | |
| parent | 1d228a31c34f8194420631c5116fc7cea4d4ec37 (diff) | |
| download | emacs-8f43cbf352348c20bb1560480a8545ee8c2d9442.tar.gz | |
* puresize.h (BASE_PURESIZE): Increase to 1430000.
* term/tty-colors.el (msdos-color-values): Remove declaration, unused.
(color-name-rgb-alist, tty-standard-colors)
(tty-color-mode-alist): Change to defconst.
* simple.el (mark-inactive): Purecopy message.
* menu-bar.el (menu-bar-make-mm-toggle, menu-bar-make-toggle): Fix macro.
(global-map, yank-menu):
* textmodes/ispell.el (ispell-menu-map):
* net/eudc.el (eudc-tools-menu):
* international/mule-cmds.el (describe-language-environment-map)
(setup-language-environment-map, set-coding-system-map)
(mule-menu-keymap):
* vc-hooks.el (vc-menu-entry, vc-menu-map):
* replace.el (occur-mode-map):
* pcvs-defs.el (cvs-global-menu): Purecopy names and tooltips.
* bindings.el (propertized-buffer-identification): Purecopy
tooltip text.
Diffstat (limited to 'lisp/net/eudc.el')
| -rw-r--r-- | lisp/net/eudc.el | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/lisp/net/eudc.el b/lisp/net/eudc.el index b93f7e3ddc0..e831aac6356 100644 --- a/lisp/net/eudc.el +++ b/lisp/net/eudc.el @@ -1242,25 +1242,25 @@ This does nothing except loading eudc by autoload side-effect." (defvar eudc-tools-menu (let ((map (make-sparse-keymap "Directory Search"))) (define-key map [phone] - '(menu-item "Get Phone" eudc-get-phone - :help "Get the phone field of name from the directory server")) + `(menu-item ,(purecopy "Get Phone") eudc-get-phone + :help ,(purecopy "Get the phone field of name from the directory server"))) (define-key map [email] - '(menu-item "Get Email" eudc-get-email - :help "Get the email field of NAME from the directory server")) + `(menu-item ,(purecopy "Get Email") eudc-get-email + :help ,(purecopy "Get the email field of NAME from the directory server"))) (define-key map [separator-eudc-email] '("--")) (define-key map [expand-inline] - '(menu-item "Expand Inline Query" eudc-expand-inline - :help "Query the directory server, and expand the query string before point")) + `(menu-item ,(purecopy "Expand Inline Query") eudc-expand-inline + :help ,(purecopy "Query the directory server, and expand the query string before point"))) (define-key map [query] - '(menu-item "Query with Form" eudc-query-form - :help "Display a form to query the directory server")) + `(menu-item ,(purecopy "Query with Form") eudc-query-form + :help ,(purecopy "Display a form to query the directory server"))) (define-key map [separator-eudc-query] '("--")) (define-key map [new] - '(menu-item "New Server" eudc-set-server - :help "Set the directory server to SERVER using PROTOCOL")) + `(menu-item ,(purecopy "New Server") eudc-set-server + :help ,(purecopy "Set the directory server to SERVER using PROTOCOL"))) (define-key map [load] - '(menu-item "Load Hotlist of Servers" eudc-load-eudc - :help "Load the Emacs Unified Directory Client")) + `(menu-item ,(purecopy "Load Hotlist of Servers") eudc-load-eudc + :help ,(purecopy "Load the Emacs Unified Directory Client"))) map)) (fset 'eudc-tools-menu (symbol-value 'eudc-tools-menu))) (t |