Mercurial > emacs

diff lisp/bindings.el @ 105798:0ad1fc06bfc8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* puresize.h (BASE_PURESIZE): Increase to 1470000. * lread.c (Fload): Purecopy the file name when building Vpreloaded_file_list. * textmodes/ispell.el (ispell-skip-region-alist): * international/mule-conf.el (eight-bit): * international/fontset.el (font-encoding-alist): * startup.el (pure-space-overflow-message): * simple.el (overwrite-mode-textual, overwrite-mode-binary): * paths.el (gnus-nntp-service, rmail-spool-directory) (term-file-prefix): * files.el (save-some-buffers-action-alist): * cmuscheme.el (same-window-buffer-names): * ielm.el (same-window-buffer-names): * shell.el (same-window-buffer-names): * mail/sendmail.el (same-window-buffer-names): * progmodes/inf-lisp.el (same-window-buffer-names): * bindings.el (mode-line-client) (mode-line-column-line-number-mode-map): * language/tibetan.el (tibetan-precomposition-rule-regexp) (tibetan-precomposed-regexp): Purecopy string arguments.
author Dan Nicolaescu <dann@ics.uci.edu>
date Fri, 30 Oct 2009 02:00:11 +0000
parents db5e4a5897ec
children a0f778f4a995
line wrap: on
line diff
--- a/lisp/bindings.el	Thu Oct 29 16:46:52 2009 +0000
+++ b/lisp/bindings.el	Fri Oct 30 02:00:11 2009 +0000
@@ -151,7 +151,7 @@
 (defvar mode-line-client
   `(""
     (:propertize ("" (:eval (if (frame-parameter nil 'client) "@" "")))
-		 help-echo "emacsclient frame"))
+		 help-echo ,(purecopy "emacsclient frame")))
   "Mode-line control for identifying emacsclient frames.")
 ;;;###autoload
 (put 'mode-line-client 'risky-local-variable t)
@@ -315,11 +315,11 @@
 	(menu-map (make-sparse-keymap "Toggle Line and Column Number Display")))
     (define-key menu-map [line-number-mode]
       `(menu-item ,(purecopy "Display Line Numbers") line-number-mode
-		  :help "Toggle displaying line numbers in the mode-line"
+		  :help ,(purecopy "Toggle displaying line numbers in the mode-line")
 		  :button (:toggle . line-number-mode)))
     (define-key menu-map [column-number-mode]
       `(menu-item ,(purecopy "Display Column Numbers") column-number-mode
-		  :help "Toggle displaying column numbers in the mode-line"
+		  :help ,(purecopy "Toggle displaying column numbers in the mode-line")
 		  :button (:toggle . column-number-mode)))
     (define-key map [mode-line down-mouse-1] menu-map)
     map) "\