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/pcvs-defs.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/pcvs-defs.el')
| -rw-r--r-- | lisp/pcvs-defs.el | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/lisp/pcvs-defs.el b/lisp/pcvs-defs.el index 76597d7361c..9a1aa6d67cd 100644 --- a/lisp/pcvs-defs.el +++ b/lisp/pcvs-defs.el @@ -483,17 +483,17 @@ It is expected to call the function.") (defvar cvs-global-menu (let ((m (make-sparse-keymap "PCL-CVS"))) (define-key m [status] - '(menu-item "Directory Status" cvs-status - :help "A more verbose status of a workarea")) + `(menu-item ,(purecopy "Directory Status") cvs-status + :help ,(purecopy "A more verbose status of a workarea"))) (define-key m [checkout] - '(menu-item "Checkout Module" cvs-checkout - :help "Check out a module from the repository")) + `(menu-item ,(purecopy "Checkout Module") cvs-checkout + :help ,(purecopy "Check out a module from the repository"))) (define-key m [update] - '(menu-item "Update Directory" cvs-update - :help "Fetch updates from the repository")) + `(menu-item ,(purecopy "Update Directory") cvs-update + :help ,(purecopy "Fetch updates from the repository"))) (define-key m [examine] - '(menu-item "Examine Directory" cvs-examine - :help "Examine the current state of a workarea")) + `(menu-item ,(purecopy "Examine Directory") cvs-examine + :help ,(purecopy "Examine the current state of a workarea"))) (fset 'cvs-global-menu m))) |