diff lisp/utils/finder.el @ 50:ee648375d8d6 r19-16b91

Import from CVS: tag r19-16b91
author cvs
date Mon, 13 Aug 2007 08:56:41 +0200
parents 0293115a14e9
children 131b0175ea99
line wrap: on
line diff
--- a/lisp/utils/finder.el	Mon Aug 13 08:56:06 2007 +0200
+++ b/lisp/utils/finder.el	Mon Aug 13 08:56:41 2007 +0200
@@ -198,7 +198,9 @@
 	     (directory-files d nil "^[^=].*\\.el$")))))
        dirs)
       (insert "))\n\n(provide 'finder-inf)\n\n;;; finder-inf.el ends here\n")
-      (kill-buffer "*finder-scratch*")
+      (condition-case nil
+	  (kill-buffer "*finder-scratch*")
+	(t nil))
       (eval-current-buffer) ;; So we get the new keyword list immediately
       (basic-save-buffer))))