[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r106103: * lisp/comint.el (comint-ins
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r106103: * lisp/comint.el (comint-insert-input): Fix last change. |
Date: |
Mon, 17 Oct 2011 13:14:04 -0400 |
User-agent: |
Bazaar (2.3.1) |
------------------------------------------------------------
revno: 106103
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Mon 2011-10-17 13:14:04 -0400
message:
* lisp/comint.el (comint-insert-input): Fix last change.
modified:
lisp/comint.el
=== modified file 'lisp/comint.el'
--- a/lisp/comint.el 2011-10-17 16:33:23 +0000
+++ b/lisp/comint.el 2011-10-17 17:14:04 +0000
@@ -847,9 +847,10 @@
;; 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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r106103: * lisp/comint.el (comint-insert-input): Fix last change.,
Stefan Monnier <=