From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Mon, 17 Oct 2011 17:14:04 +0000 (-0400)
Subject: * lisp/comint.el (comint-insert-input): Fix last change.
X-Git-Tag: emacs-pretest-24.0.91~103
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fa92a650fd9cbafd0e840181c5d4934eb071b231;p=emacs.git

* lisp/comint.el (comint-insert-input): Fix last change.
---

diff --git a/lisp/comint.el b/lisp/comint.el
index 66749d0f2a8..591be5e2d9d 100644
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -847,9 +847,10 @@ by the global keymap (usually `mouse-yank-at-click')."
       ;; If pos is at the very end of a field, the mouse-click was
       ;; probably outside (to the right) of the field.
       (and (< pos (field-end pos))
-           (setq field (field-at-pos pos))
-	   (setq input (field-string-no-properties pos))))
-    (if (or (null comint-accum-marker) field)
+	   (< (field-end pos) (point-max))
+           (progn (setq field (field-at-pos pos))
+		  (setq input (field-string-no-properties pos)))))
+    (if (or (null input) (null comint-accum-marker) field)
 	;; Fall back to the global definition if (i) the selected
 	;; buffer is not a comint buffer (which can happen if a
 	;; non-comint window was selected and we clicked in a comint