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 /src/category.c | |
| 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 'src/category.c')
| -rw-r--r-- | src/category.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/category.c b/src/category.c index babed58c7fe..88337ff4fe7 100644 --- a/src/category.c +++ b/src/category.c @@ -136,6 +136,8 @@ the current buffer's category table. */) if (!NILP (CATEGORY_DOCSTRING (table, XFASTINT (category)))) error ("Category `%c' is already defined", XFASTINT (category)); + if (!NILP (Vpurify_flag)) + docstring = Fpurecopy (docstring); CATEGORY_DOCSTRING (table, XFASTINT (category)) = docstring; return Qnil; |