282 |
(terpri) |
(terpri) |
283 |
(princ "This function is obsolete") |
(princ "This function is obsolete") |
284 |
(if (nth 2 obsolete) (princ (format " since %s" (nth 2 obsolete)))) |
(if (nth 2 obsolete) (princ (format " since %s" (nth 2 obsolete)))) |
285 |
(princ ".") (terpri) |
(princ ";") (terpri) |
286 |
(princ (if (stringp (car obsolete)) (car obsolete) |
(princ (if (stringp (car obsolete)) (car obsolete) |
287 |
(format "Use `%s' instead." (car obsolete)))) |
(format "use `%s' instead." (car obsolete)))) |
288 |
(terpri))) |
(terpri))) |
289 |
(let ((doc (documentation function))) |
(let ((doc (documentation function))) |
290 |
(if doc |
(if doc |
432 |
(when obsolete |
(when obsolete |
433 |
(princ "This variable is obsolete") |
(princ "This variable is obsolete") |
434 |
(if (cdr obsolete) (princ (format " since %s" (cdr obsolete)))) |
(if (cdr obsolete) (princ (format " since %s" (cdr obsolete)))) |
435 |
(princ ".") (terpri) |
(princ "; ") (terpri) |
436 |
(princ (if (stringp (car obsolete)) (car obsolete) |
(princ (if (stringp (car obsolete)) (car obsolete) |
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."))) |