Mercurial > emacs
comparison src/category.c @ 105744:b0a732611398
* 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.
author | Dan Nicolaescu <dann@ics.uci.edu> |
---|---|
date | Sat, 24 Oct 2009 06:32:03 +0000 |
parents | 68dd71358159 |
children | 21bdda3ded62 |
comparison
equal
deleted
inserted
replaced
105743:f8478bbd8ebe | 105744:b0a732611398 |
---|---|
134 CHECK_STRING (docstring); | 134 CHECK_STRING (docstring); |
135 table = check_category_table (table); | 135 table = check_category_table (table); |
136 | 136 |
137 if (!NILP (CATEGORY_DOCSTRING (table, XFASTINT (category)))) | 137 if (!NILP (CATEGORY_DOCSTRING (table, XFASTINT (category)))) |
138 error ("Category `%c' is already defined", XFASTINT (category)); | 138 error ("Category `%c' is already defined", XFASTINT (category)); |
139 if (!NILP (Vpurify_flag)) | |
140 docstring = Fpurecopy (docstring); | |
139 CATEGORY_DOCSTRING (table, XFASTINT (category)) = docstring; | 141 CATEGORY_DOCSTRING (table, XFASTINT (category)) = docstring; |
140 | 142 |
141 return Qnil; | 143 return Qnil; |
142 } | 144 } |
143 | 145 |