diff options
| author | Dan Nicolaescu <dann@ics.uci.edu> | 2009-10-24 06:32:03 +0000 |
|---|---|---|
| committer | Dan Nicolaescu <dann@ics.uci.edu> | 2009-10-24 06:32:03 +0000 |
| commit | 905a9ed3923847f0323b5ad6f2e26558336fe9c0 (patch) | |
| tree | 4cb4582eacfa663d308fc7152e8d0fb277624977 /lisp/international | |
| parent | 1dee7c238bf93b8192cbb615f408bed230fefeda (diff) | |
| download | emacs-905a9ed3923847f0323b5ad6f2e26558336fe9c0.tar.gz | |
* keymap.c (Fmake_sparse_keymap): Purecopy the name.
* eval.c (Fautoload): Purecopy the filename. Simplify.
* category.c (Fdefine_category): Purecopy docstring.
* international/mule-cmds.el (set-language-info-alist): Purecopy lang-env.
(leim-list-header, leim-list-entry-regexp): Change defvars to defconst.
(charset): Purecopy the name.
(define-char-code-property): Purecopy string arguments.
* emacs-lisp/byte-run.el (make-obsolete, make-obsolete-variable):
Purecopy string arguments.
* emacs-lisp/lisp-mode.el (emacs-lisp-mode-map):
* ediff-hook.el (menu-bar-ediff-menu):
* buff-menu.el (Buffer-menu-mode-map): Purecopy names and tooltips.
* bookmark.el (menu-bar-bookmark-map): Add :help and purecopy the name.
Diffstat (limited to 'lisp/international')
| -rw-r--r-- | lisp/international/mule-cmds.el | 15 |
1 files changed, 9 insertions, 6 deletions
diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index 0064f40e287..d98053dbd76 100644 --- a/lisp/international/mule-cmds.el +++ b/lisp/international/mule-cmds.el @@ -1174,8 +1174,10 @@ where to put this language environment in the Describe Language Environment and Set Language Environment menus. For example, (\"European\") means to put this language environment in the European submenu in each of those two menus." - (if (symbolp lang-env) - (setq lang-env (symbol-name lang-env))) + (cond ((symbolp lang-env) + (setq lang-env (symbol-name lang-env))) + ((stringp lang-env) + (setq lang-env (purecopy lang-env)))) (let ((describe-map describe-language-environment-map) (setup-map setup-language-environment-map)) (if parents @@ -1249,7 +1251,7 @@ This file contains a list of libraries of Emacs input methods (LEIM) in the format of Lisp expression for registering each input method. Emacs loads this file at startup time.") -(defvar leim-list-header (format +(defconst leim-list-header (format ";;; %s -- list of LEIM (Library of Emacs Input Method) -*-coding: utf-8;-*- ;; ;; This file is automatically generated. @@ -1272,7 +1274,7 @@ Emacs loads this file at startup time.") leim-list-file-name) "Header to be inserted in LEIM list file.") -(defvar leim-list-entry-regexp "^(register-input-method" +(defconst leim-list-entry-regexp "^(register-input-method" "Regexp matching head of each entry in LEIM list file. See also the variable `leim-list-header'.") @@ -1865,7 +1867,7 @@ specifies the character set for the major languages of Western Europe." (force-mode-line-update t)) (define-widget 'charset 'symbol - "An Emacs charset." + (purecopy "An Emacs charset.") :tag "Charset" :complete-function (lambda () (interactive) @@ -2745,12 +2747,13 @@ See also the documentation of `get-char-code-property' and (error "Invalid char-table: %s" table)) (or (stringp table) (error "Not a char-table nor a file name: %s" table))) + (if (stringp table) (purecopy table)) (let ((slot (assq name char-code-property-alist))) (if slot (setcdr slot table) (setq char-code-property-alist (cons (cons name table) char-code-property-alist)))) - (put name 'char-code-property-documentation docstring)) + (put name 'char-code-property-documentation (purecopy docstring))) (defvar char-code-property-table (make-char-table 'char-code-property-table) |