diff lisp/finder.el @ 269:b2472a1930f2 r20-5b33

Import from CVS: tag r20-5b33
author cvs
date Mon, 13 Aug 2007 10:27:19 +0200
parents 41f2f0e326e9
children c5d627a313b1
line wrap: on
line diff
--- a/lisp/finder.el	Mon Aug 13 10:26:31 2007 +0200
+++ b/lisp/finder.el	Mon Aug 13 10:27:19 2007 +0200
@@ -179,8 +179,10 @@
 		      (buffer-disable-undo (current-buffer))
 		      (erase-buffer)
 		      (insert-file-contents (expand-file-name f d))
-		      (setq summary  (lm-synopsis)
-			    keywords (lm-keywords)))
+		      (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))