277 |
((stringp arglist) |
((stringp arglist) |
278 |
(princ arglist) |
(princ arglist) |
279 |
(terpri)))) |
(terpri)))) |
280 |
|
(let ((obsolete (get function 'byte-obsolete-info))) |
281 |
|
(when obsolete |
282 |
|
(terpri) |
283 |
|
(princ "This function is obsolete") |
284 |
|
(if (nth 2 obsolete) (princ (format " since %s" (nth 2 obsolete)))) |
285 |
|
(princ ".") (terpri) |
286 |
|
(princ (if (stringp (car obsolete)) (car obsolete) |
287 |
|
(format "Use `%s' instead." (car obsolete)))) |
288 |
|
(terpri))) |
289 |
(let ((doc (documentation function))) |
(let ((doc (documentation function))) |
290 |
(if doc |
(if doc |
291 |
(progn (terpri) |
(progn (terpri) |
319 |
(insert |
(insert |
320 |
"[Missing arglist. Please make a bug report.]\n"))) |
"[Missing arglist. Please make a bug report.]\n"))) |
321 |
(goto-char (point-max))))) |
(goto-char (point-max))))) |
322 |
(princ "not documented"))))) |
(princ "Not documented."))))) |
323 |
|
|
324 |
|
|
325 |
;; Variables |
;; Variables |
437 |
(format "Use `%s' instead." (car obsolete)))) |
(format "Use `%s' instead." (car obsolete)))) |
438 |
(terpri))) |
(terpri))) |
439 |
(let ((doc (documentation-property variable 'variable-documentation))) |
(let ((doc (documentation-property variable 'variable-documentation))) |
440 |
(princ (or doc "not documented as a variable."))) |
(princ (or doc "Not documented as a variable."))) |
441 |
|
|
442 |
;; Make a link to customize if this variable can be customized. |
;; Make a link to customize if this variable can be customized. |
443 |
;; Note, it is not reliable to test only for a custom-type property |
;; Note, it is not reliable to test only for a custom-type property |