Re: Feature request: extending cross-reference in *Help* buffers

[Richard Stallman]

Does this give good results?

*** help-fns.el 11 Jul 2006 12:29:57 -0400      1.90
--- help-fns.el 25 Aug 2006 08:49:12 -0400      
***************
*** 369,386 ****
        (setq file-name (if (get-buffer " *DOC*")
                          (help-C-file-name def 'subr)
                        'C-source)))
!     (when file-name
!       (princ " in `")
!       ;; We used to add .el to the file name,
!       ;; but that's completely wrong when the user used load-file.
!       (princ (if (eq file-name 'C-source) "C source code" file-name))
!       (princ "'")
!       ;; Make a hyperlink to the library.
!       (with-current-buffer standard-output
!         (save-excursion
!         (re-search-backward "`\\([^`']+\\)'" nil t)
!         (help-xref-button 1 'help-function-def function file-name))))
!     (princ ".")
      (terpri)
      (when (commandp function)
        (let* ((remapped (command-remapping function))
--- 369,387 ----
        (setq file-name (if (get-buffer " *DOC*")
                          (help-C-file-name def 'subr)
                        'C-source)))
!     (if file-name
!       (progn
!         (princ " in `")
!         ;; We used to add .el to the file name,
!         ;; but that's completely wrong when the user used load-file.
!         (princ (if (eq file-name 'C-source) "C source code" file-name))
!         (princ "'.")
!         ;; Make a hyperlink to the library.
!         (with-current-buffer standard-output
!           (save-excursion
!             (re-search-backward "`\\([^`']+\\)'" nil t)
!             (help-xref-button 0 'help-function-def function file-name))))
!       (princ "."))
      (terpri)
      (when (commandp function)
        (let* ((remapped (command-remapping function))