(comint-get-old-input-default): Reword error message.

diff --git a/lisp/comint.el b/lisp/comint.el
index 3a02d93ee725e88fb9be1fe3f5ca5e44028c05ce..0b2de4aca8a06b524fac7fb6416c436c5c030c83 100644 (file)
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -1714,7 +1714,7 @@ value of `comint-use-prompt-regexp-instead-of-fields'."
     ;; Return the contents of the field at the current point.
     (let ((pos (field-beginning (point))))
       (unless (eq (get-char-property pos 'field) 'input)
-       (error "Point not in input field"))
+       (error "Not an input field"))
       (field-string pos))))
 
 (defun comint-copy-old-input ()