Mercurial > emacs
comparison lisp/emacs-lisp/byte-run.el @ 92295:72a3622268cc
(make-obsolete): Doc fix.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Thu, 28 Feb 2008 03:47:59 +0000 |
parents | f991f10f15ec |
children | 1841ac94b011 |
comparison
equal
deleted
inserted
replaced
92294:ec8fb087e45e | 92295:72a3622268cc |
---|---|
104 (put ',name 'byte-optimizer 'byte-compile-inline-expand)))) | 104 (put ',name 'byte-optimizer 'byte-compile-inline-expand)))) |
105 | 105 |
106 (defun make-obsolete (obsolete-name current-name &optional when) | 106 (defun make-obsolete (obsolete-name current-name &optional when) |
107 "Make the byte-compiler warn that OBSOLETE-NAME is obsolete. | 107 "Make the byte-compiler warn that OBSOLETE-NAME is obsolete. |
108 The warning will say that CURRENT-NAME should be used instead. | 108 The warning will say that CURRENT-NAME should be used instead. |
109 If CURRENT-NAME is a string, that is the `use instead' message. | 109 If CURRENT-NAME is a string, that is the `use instead' message |
110 \(it should end with a period, and not start with a capital). | |
110 If provided, WHEN should be a string indicating when the function | 111 If provided, WHEN should be a string indicating when the function |
111 was first made obsolete, for example a date or a release number." | 112 was first made obsolete, for example a date or a release number." |
112 (interactive "aMake function obsolete: \nxObsoletion replacement: ") | 113 (interactive "aMake function obsolete: \nxObsoletion replacement: ") |
113 (let ((handler (get obsolete-name 'byte-compile))) | 114 (let ((handler (get obsolete-name 'byte-compile))) |
114 (if (eq 'byte-compile-obsolete handler) | 115 (if (eq 'byte-compile-obsolete handler) |