Mercurial > emacs

comparison lisp/emacs-lisp/byte-run.el @ 92295:72a3622268cc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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)