448 |
(when obsolete |
(when obsolete |
449 |
(princ "This variable is obsolete") |
(princ "This variable is obsolete") |
450 |
(if (cdr obsolete) (princ (format " since %s" (cdr obsolete)))) |
(if (cdr obsolete) (princ (format " since %s" (cdr obsolete)))) |
451 |
(princ "; ") (terpri) |
(princ ";") (terpri) |
452 |
(princ (if (stringp (car obsolete)) (car obsolete) |
(princ (if (stringp (car obsolete)) (car obsolete) |
453 |
(format "use `%s' instead." (car obsolete)))) |
(format "use `%s' instead." (car obsolete)))) |
454 |
(terpri) |
(terpri) |