X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Ffinder.el;h=503b7f8bd1870304d56801ca5755eeed94322787;hb=1a5e6d5283da6884ea5174abb431256f120c1b0c;hp=8c9594aa62ce70fb3d22c97b9adf813ae78eec79;hpb=77dcef404dc78635f6ffa8f71a803d2bc7cc8921;p=chise%2Fxemacs-chise.git-

diff --git a/lisp/finder.el b/lisp/finder.el
index 8c9594a..503b7f8 100644
--- a/lisp/finder.el
+++ b/lisp/finder.el
@@ -167,7 +167,7 @@ arguments compiles from `load-path'."
        (lambda (d)
 	 (mapcar
 	  (lambda (f) 
-	    (when (not (member f processed))
+	    (when (and (not (member f processed)) (file-readable-p f))
 	      (let (summary keystart keywords)
 		(setq processed (cons f processed))
 		(if (not finder-compile-keywords-quiet)
@@ -285,8 +285,12 @@ arguments compiles from `load-path'."
       found)))
 
 (defun finder-commentary (file)
-  (interactive)
-  (let* ((str (lm-commentary (finder-find-library file))))
+  "Display FILE's commentary section.
+FILE should be in a form suitable for passing to `locate-library'."
+  (interactive "sLibrary name: ")
+  (let* ((str (lm-commentary (or (finder-find-library file)
+				 (finder-find-library (concat file ".el"))
+				 (error "Can't find library %s" file)))))
     (if (null str)
 	(error "Can't find any Commentary section"))
     (pop-to-buffer "*Finder*")