Mercurial > hg > xemacs-beta
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 ()