Improve a couple of grep.el error messages

diff --git a/lisp/progmodes/grep.el b/lisp/progmodes/grep.el
index 3e67fa37cb673beedeb9de7119c8a4def5b83131..dc2d9519746100d51ac1473de1fa65fa41229069 100644 (file)
--- a/lisp/progmodes/grep.el
+++ b/lisp/progmodes/grep.el
@@ -1060,10 +1060,7 @@ easily repeat a find command."
      (if grep-find-command
         (list (read-shell-command "Run find (like this): "
                                    grep-find-command 'grep-find-history))
-       ;; No default was set
-       (read-string
-        "compile.el: No `grep-find-command' command available. Press RET.")
-       (list nil))))
+       (user-error "No `grep-find-command' available"))))
   (when command-args
     (let ((null-device nil))           ; see grep
       (grep command-args))))
@@ -1234,8 +1231,7 @@ command before it's run."
       ((and grep-command (equal current-prefix-arg '(16)))
        (list (read-from-minibuffer "Run: " grep-command
                                   nil nil 'grep-history)))
-      ((not grep-template)
-       (error "grep.el: No `grep-template' available"))
+      ((not grep-template) (user-error "No `grep-template' available"))
       (t (let* ((regexp (grep-read-regexp))
                (files (grep-read-files regexp))
                (dir (read-directory-name "In directory: "