# HG changeset patch
# User Jan Dj¸«£rv <jan.h.d@swipnet.se>
# Date 1179841544 0
# Node ID fc951d52295d5ce25e714db36775835ecce0044b
# Parent  a5b210b4b0d33884864a05d48d73823d95a867a5
(find-source-lisp-file): New function.
(describe-function-1): Use find-source-lisp-file to find source
file in compile tree.

diff -r a5b210b4b0d3 -r fc951d52295d lisp/help-fns.el
--- a/lisp/help-fns.el	Tue May 22 12:51:42 2007 +0000
+++ b/lisp/help-fns.el	Tue May 22 13:45:44 2007 +0000
@@ -232,6 +232,23 @@
 	      libname)
 	  file))))
 
+(defun find-source-lisp-file (file-name)
+  (let* ((elc-file (locate-file (concat file-name
+				 (if (string-match "\\.el" file-name)
+				     "c"
+				   ".elc"))
+				 load-path))
+	 (str (if (and elc-file (file-readable-p elc-file))
+		  (with-temp-buffer 
+		    (insert-file-contents-literally elc-file nil 0 256)
+		    (buffer-string))))
+	 (src-file (and str
+			(string-match ";;; from file \\(.*\\.el\\)" str)
+			(match-string 1 str))))
+    (if (and src-file (file-readable-p src-file))
+	src-file
+      file-name)))
+
 ;;;###autoload
 (defun describe-function-1 (function)
   (let* ((def (if (symbolp function)
@@ -309,6 +326,10 @@
       ;; but that's completely wrong when the user used load-file.
       (princ (if (eq file-name 'C-source) "C source code" file-name))
       (princ "'")
+      ;; See if lisp files are present where they where installed from.
+      (if (not (eq file-name 'C-source))
+	  (setq file-name (find-source-lisp-file file-name)))
+
       ;; Make a hyperlink to the library.
       (with-current-buffer standard-output
         (save-excursion