# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 972887126 0
# Node ID 968a0ee6275ff4ef918825dab4060df473987448
# Parent  23eeb6da5a5186c44bac091b326592733735991b
(comint-get-old-input-default): Reword error message.

diff -r 23eeb6da5a51 -r 968a0ee6275f lisp/comint.el
--- a/lisp/comint.el	Mon Oct 30 06:22:20 2000 +0000
+++ b/lisp/comint.el	Mon Oct 30 06:25:26 2000 +0000
@@ -1714,7 +1714,7 @@
     ;; 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 ()