/[emacs]/emacs/lisp/comint.el
ViewVC logotype

Diff of /emacs/lisp/comint.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.334 by teirllm, Sun Oct 30 16:42:48 2005 UTC revision 1.335 by jpw, Thu Nov 17 22:58:11 2005 UTC
# Line 799  buffer.  The hook `comint-exec-hook' is Line 799  buffer.  The hook `comint-exec-hook' is
799    ;; for events without parameters.    ;; for events without parameters.
800    (interactive (list last-input-event))    (interactive (list last-input-event))
801    (let ((pos (point)))    (let ((pos (point)))
802      (if event (mouse-set-point event))      (if event (posn-set-point (event-end event)))
803      (if (not (eq (get-char-property (point) 'field) 'input))      (if (not (eq (get-char-property (point) 'field) 'input))
804          ;; No input at POS, fall back to the global definition.          ;; No input at POS, fall back to the global definition.
805          (let* ((keys (this-command-keys))          (let* ((keys (this-command-keys))

Legend:
Removed from v.1.334  
changed lines
  Added in v.1.335

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26