Mercurial > emacs
comparison lisp/emacs-lisp/byte-run.el @ 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 | 127b35cd2de7 |
children | db5e4a5897ec |
comparison
equal
deleted
inserted
replaced
105743:f8478bbd8ebe | 105744:b0a732611398 |
---|---|
125 (interactive "aMake function obsolete: \nxObsoletion replacement: ") | 125 (interactive "aMake function obsolete: \nxObsoletion replacement: ") |
126 (let ((handler (get obsolete-name 'byte-compile))) | 126 (let ((handler (get obsolete-name 'byte-compile))) |
127 (if (eq 'byte-compile-obsolete handler) | 127 (if (eq 'byte-compile-obsolete handler) |
128 (setq handler (nth 1 (get obsolete-name 'byte-obsolete-info))) | 128 (setq handler (nth 1 (get obsolete-name 'byte-obsolete-info))) |
129 (put obsolete-name 'byte-compile 'byte-compile-obsolete)) | 129 (put obsolete-name 'byte-compile 'byte-compile-obsolete)) |
130 (put obsolete-name 'byte-obsolete-info (list current-name handler when))) | 130 (put obsolete-name 'byte-obsolete-info (list current-name handler (purecopy when)))) |
131 obsolete-name) | 131 obsolete-name) |
132 (set-advertised-calling-convention | 132 (set-advertised-calling-convention |
133 ;; New code should always provide the `when' argument. | 133 ;; New code should always provide the `when' argument. |
134 'make-obsolete '(obsolete-name current-name when)) | 134 'make-obsolete '(obsolete-name current-name when)) |
135 | 135 |
164 (list | 164 (list |
165 (let ((str (completing-read "Make variable obsolete: " obarray 'boundp t))) | 165 (let ((str (completing-read "Make variable obsolete: " obarray 'boundp t))) |
166 (if (equal str "") (error "")) | 166 (if (equal str "") (error "")) |
167 (intern str)) | 167 (intern str)) |
168 (car (read-from-string (read-string "Obsoletion replacement: "))))) | 168 (car (read-from-string (read-string "Obsoletion replacement: "))))) |
169 (put obsolete-name 'byte-obsolete-variable (cons current-name when)) | 169 (put obsolete-name 'byte-obsolete-variable |
170 (cons | |
171 (if (stringp current-name) | |
172 (purecopy current-name) | |
173 current-name) (purecopy when))) | |
170 obsolete-name) | 174 obsolete-name) |
171 (set-advertised-calling-convention | 175 (set-advertised-calling-convention |
172 ;; New code should always provide the `when' argument. | 176 ;; New code should always provide the `when' argument. |
173 'make-obsolete-variable '(obsolete-name current-name when)) | 177 'make-obsolete-variable '(obsolete-name current-name when)) |
174 | 178 |