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/emacs-lisp/byte-run.el | |
| parent | 1dee7c238bf93b8192cbb615f408bed230fefeda (diff) | |
| download | emacs-905a9ed3923847f0323b5ad6f2e26558336fe9c0.tar.gz emacs-905a9ed3923847f0323b5ad6f2e26558336fe9c0.tar.bz2 emacs-905a9ed3923847f0323b5ad6f2e26558336fe9c0.zip | |
* 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/emacs-lisp/byte-run.el')
| -rw-r--r-- | lisp/emacs-lisp/byte-run.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/byte-run.el b/lisp/emacs-lisp/byte-run.el index 7b0faec655c..7453eb235b3 100644 --- a/lisp/emacs-lisp/byte-run.el +++ b/lisp/emacs-lisp/byte-run.el @@ -127,7 +127,7 @@ was first made obsolete, for example a date or a release number." (if (eq 'byte-compile-obsolete handler) (setq handler (nth 1 (get obsolete-name 'byte-obsolete-info))) (put obsolete-name 'byte-compile 'byte-compile-obsolete)) - (put obsolete-name 'byte-obsolete-info (list current-name handler when))) + (put obsolete-name 'byte-obsolete-info (list current-name handler (purecopy when)))) obsolete-name) (set-advertised-calling-convention ;; New code should always provide the `when' argument. @@ -166,7 +166,11 @@ was first made obsolete, for example a date or a release number." (if (equal str "") (error "")) (intern str)) (car (read-from-string (read-string "Obsoletion replacement: "))))) - (put obsolete-name 'byte-obsolete-variable (cons current-name when)) + (put obsolete-name 'byte-obsolete-variable + (cons + (if (stringp current-name) + (purecopy current-name) + current-name) (purecopy when))) obsolete-name) (set-advertised-calling-convention ;; New code should always provide the `when' argument. |