--- a/lisp/utils/finder.el	Mon Aug 13 09:00:04 2007 +0200
+++ b/lisp/utils/finder.el	Mon Aug 13 09:02:59 2007 +0200
@@ -198,9 +198,7 @@
 	     (directory-files d nil "^[^=].*\\.el$")))))
        dirs)
       (insert "))\n\n(provide 'finder-inf)\n\n;;; finder-inf.el ends here\n")
-      (condition-case nil
-	  (kill-buffer "*finder-scratch*")
-	(t nil))
+      (kill-buffer "*finder-scratch*")
       (eval-current-buffer) ;; So we get the new keyword list immediately
       (basic-save-buffer))))
 
@@ -212,7 +210,7 @@
 
 (defun finder-insert-at-column (column &rest strings)
   "Insert list of STRINGS, at column COLUMN."
-  (if (>= (current-column) column) (insert "\n"))
+  (if (> (current-column) column) (insert "\n"))
   (move-to-column column)
   (let ((col (current-column)))
     (if (< col column)