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

diff --git a/lisp/finder.el b/lisp/finder.el
index 4656b32..8c9594a 100644
--- a/lisp/finder.el
+++ b/lisp/finder.el
@@ -162,47 +162,44 @@ arguments compiles from `load-path'."
       (insert ";;; Commentary:\n")
       (insert ";; Don't edit this file.  It's generated by finder.el\n\n")
       (insert ";;; Code:\n")
-      (insert "\n(setq finder-package-info '(\n")
+      (insert "\n(defconst finder-package-info '(\n")
       (mapcar
-       (function
-	(lambda (d)
-	  (mapcar
-	   (function
-	    (lambda (f) 
-	      (if (not (member f processed))
-		  (let (summary keystart keywords)
-		    (setq processed (cons f processed))
-		    (if (not finder-compile-keywords-quiet)
-			(message "Processing %s ..." f))
-		    (save-excursion
-		      (set-buffer (get-buffer-create "*finder-scratch*"))
-		      (buffer-disable-undo (current-buffer))
-		      (erase-buffer)
-		      (insert-file-contents (expand-file-name f d))
-		      (condition-case err
-			  (setq summary  (lm-synopsis)
-				keywords (lm-keywords))
-			(t (message "finder: error processing %s %S" f err))))
-		    (if (not summary)
-			nil
-		      (insert (format "    (\"%s\"\n        " f))
-		      (prin1 summary (current-buffer))
-		      (insert "\n        ")
-		      (setq keystart (point))
-		      (insert (if keywords (format "(%s)" keywords) "nil"))
-		      (subst-char-in-region keystart (point) ?, ? )
-		      (insert "\n        ")
-		      (prin1 (abbreviate-file-name d) (current-buffer))
-		      (insert ")\n"))))))
-	   ;;
-	   ;; Skip null, non-existent or relative pathnames, e.g. "./", if
-	   ;; using load-path, so that they do not interfere with a scan of
-	   ;; library directories only.
-	   (if (and using-load-path
-		    (not (and d (file-name-absolute-p d) (file-exists-p d))))
-	       nil
-	     (setq d (file-name-as-directory (or d ".")))
-	     (directory-files d nil "^[^=].*\\.el$")))))
+       (lambda (d)
+	 (mapcar
+	  (lambda (f) 
+	    (when (not (member f processed))
+	      (let (summary keystart keywords)
+		(setq processed (cons f processed))
+		(if (not finder-compile-keywords-quiet)
+		    (message "Processing %s ..." f))
+		(save-excursion
+		  (set-buffer (get-buffer-create "*finder-scratch*"))
+		  (buffer-disable-undo (current-buffer))
+		  (erase-buffer)
+		  (insert-file-contents (expand-file-name f d))
+		  (condition-case err
+		      (setq summary  (lm-synopsis)
+			    keywords (lm-keywords))
+		    (t (message "finder: error processing %s %S" f err))))
+		(when summary
+		  (insert (format "    (\"%s\"\n        " f))
+		  (prin1 summary (current-buffer))
+		  (insert "\n        ")
+		  (setq keystart (point))
+		  (insert (if keywords (format "(%s)" keywords) "nil"))
+		  (subst-char-in-region keystart (point) ?, ? )
+		  (insert "\n        ")
+		  (prin1 (abbreviate-file-name d) (current-buffer))
+		  (insert ")\n")))))
+	  ;;
+	  ;; Skip null, non-existent or relative pathnames, e.g. "./", if
+	  ;; using load-path, so that they do not interfere with a scan of
+	  ;; library directories only.
+	  (if (and using-load-path
+		   (not (and d (file-name-absolute-p d) (file-exists-p d))))
+	      nil
+	    (setq d (file-name-as-directory (or d ".")))
+	    (directory-files d nil "^[^=].*\\.el$"))))
        dirs)
       (insert "))\n\n(provide 'finder-inf)\n\n;;; finder-inf.el ends here\n")
       (kill-buffer "*finder-scratch*")