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

[Richard M. Stallman]

Index: emacs/lisp/help-mode.el
diff -c emacs/lisp/help-mode.el:1.9 emacs/lisp/help-mode.el:1.10
*** emacs/lisp/help-mode.el:1.9 Tue Dec 25 17:02:25 2001
--- emacs/lisp/help-mode.el     Mon Jan  7 00:20:57 2002
***************
*** 507,519 ****
         (sdoc
        ;; We now have a help buffer on the variable.
        ;; Insert the function and face text before it.
!       (when (or fdoc facedoc)
          (goto-char (point-min))
          (let ((inhibit-read-only t))
            (when fdoc
              (insert fdoc "\n\n")
!           (when facedoc
!             (insert (make-string 30 ?-) "\n\n" (symbol-name symbol)
                        " is also a " "face." "\n\n")))
            (when facedoc
              (insert facedoc "\n\n"))
--- 507,519 ----
         (sdoc
        ;; We now have a help buffer on the variable.
        ;; Insert the function and face text before it.
!       (when (or fdoc facedoc)
          (goto-char (point-min))
          (let ((inhibit-read-only t))
            (when fdoc
              (insert fdoc "\n\n")
!             (when facedoc
!               (insert (make-string 30 ?-) "\n\n" (symbol-name symbol)
                        " is also a " "face." "\n\n")))
            (when facedoc
              (insert facedoc "\n\n"))