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

[Richard Stallman <rms@gnu.org>]

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))