diff options
| author | Miles Bader <miles@gnu.org> | 2000-08-07 15:04:18 +0000 |
|---|---|---|
| committer | Miles Bader <miles@gnu.org> | 2000-08-07 15:04:18 +0000 |
| commit | e379efd26360c0bfd20377941bfde5602d3c65db (patch) | |
| tree | a964b9928114540b80a1096ba44e007cdd0f3c74 /lisp/progmodes/idlw-shell.el | |
| parent | 7749a263fa1f8502c866d9595b6ed6f4aa36dd48 (diff) | |
| download | emacs-e379efd26360c0bfd20377941bfde5602d3c65db.tar.gz | |
(idlwave-shell-send-command): When looking for a prompt, (forward-line 0)
instead of (beginning-of-line), to avoid getting caught by an input field.
Diffstat (limited to 'lisp/progmodes/idlw-shell.el')
| -rw-r--r-- | lisp/progmodes/idlw-shell.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/progmodes/idlw-shell.el b/lisp/progmodes/idlw-shell.el index c79c1f168e5..07d703e6efa 100644 --- a/lisp/progmodes/idlw-shell.el +++ b/lisp/progmodes/idlw-shell.el @@ -6,7 +6,7 @@ ;; Author: Chris Chase <chase@att.com> ;; Maintainer: Carsten Dominik <dominik@strw.leidenuniv.nl> ;; Version: 4.2 -;; Date: $Date: 2000/06/15 17:58:23 $ +;; Date: $Date: 2000/06/20 12:49:42 $ ;; Keywords: processes ;; This file is part of GNU Emacs. @@ -886,7 +886,9 @@ and if `idlwave-shell-ready' is non-nil." (if (and idlwave-shell-ready ;; Check for IDL prompt (save-excursion - (beginning-of-line) + ;; Using (forward-line 0) instead of beginning-of-line + ;; avoids any field constraints. + (forward-line 0) (looking-at idlwave-shell-prompt-pattern))) ;; IDL ready for command (if idlwave-shell-pending-commands |