[Emacs-diffs] Changes to emacs/lisp/help-fns.el

[Juanma Barranquero]

Index: emacs/lisp/help-fns.el
diff -c emacs/lisp/help-fns.el:1.11 emacs/lisp/help-fns.el:1.12
*** emacs/lisp/help-fns.el:1.11 Thu Jun 27 03:15:44 2002
--- emacs/lisp/help-fns.el      Thu Jun 27 12:10:23 2002
***************
*** 282,290 ****
          (terpri)
          (princ "This function is obsolete")
          (if (nth 2 obsolete) (princ (format " since %s" (nth 2 obsolete))))
!         (princ ".") (terpri)
          (princ (if (stringp (car obsolete)) (car obsolete)
!                  (format "Use `%s' instead." (car obsolete))))
          (terpri)))
      (let ((doc (documentation function)))
        (if doc
--- 282,290 ----
          (terpri)
          (princ "This function is obsolete")
          (if (nth 2 obsolete) (princ (format " since %s" (nth 2 obsolete))))
!         (princ ";") (terpri)
          (princ (if (stringp (car obsolete)) (car obsolete)
!                  (format "use `%s' instead." (car obsolete))))
          (terpri)))
      (let ((doc (documentation function)))
        (if doc
***************
*** 432,440 ****
              (when obsolete
                (princ "This variable is obsolete")
                (if (cdr obsolete) (princ (format " since %s" (cdr obsolete))))
!               (princ ".") (terpri)
                (princ (if (stringp (car obsolete)) (car obsolete)
!                        (format "Use `%s' instead." (car obsolete))))
                (terpri)))
            (let ((doc (documentation-property variable 
'variable-documentation)))
              (princ (or doc "Not documented as a variable.")))
--- 432,440 ----
              (when obsolete
                (princ "This variable is obsolete")
                (if (cdr obsolete) (princ (format " since %s" (cdr obsolete))))
!               (princ "; ") (terpri)
                (princ (if (stringp (car obsolete)) (car obsolete)
!                        (format "use `%s' instead." (car obsolete))))
                (terpri)))
            (let ((doc (documentation-property variable 
'variable-documentation)))
              (princ (or doc "Not documented as a variable.")))