diff lisp/finder.el @ 272:c5d627a313b1 r21-0b34

Import from CVS: tag r21-0b34
author cvs
date Mon, 13 Aug 2007 10:28:48 +0200
parents b2472a1930f2
children 8626e4521993
line wrap: on
line diff
--- a/lisp/finder.el	Mon Aug 13 10:27:41 2007 +0200
+++ b/lisp/finder.el	Mon Aug 13 10:28:48 2007 +0200
@@ -206,7 +206,8 @@
        dirs)
       (insert "))\n\n(provide 'finder-inf)\n\n;;; finder-inf.el ends here\n")
       (kill-buffer "*finder-scratch*")
-      (eval-current-buffer) ;; So we get the new keyword list immediately
+      (unless noninteractive
+	(eval-current-buffer)) ; So we get the new keyword list immediately
       (basic-save-buffer))))
 
 (defun finder-compile-keywords-make-dist ()