/[emacs]/emacs/lisp/help-fns.el
ViewVC logotype

Diff of /emacs/lisp/help-fns.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.11 by lektu, Thu Jun 27 07:15:44 2002 UTC revision 1.12 by lektu, Thu Jun 27 16:10:23 2002 UTC
# Line 282  and the file name is displayed in the ec Line 282  and the file name is displayed in the ec
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
# Line 432  it is displayed along with the global va Line 432  it is displayed along with the global va
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.")))

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26