From: Miles Bader <miles@gnu.org>
Date: Mon, 7 Aug 2000 15:04:18 +0000 (+0000)
Subject: (idlwave-shell-send-command): When looking for a prompt, (forward-line 0)
X-Git-Tag: emacs-pretest-21.0.90~2445
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e379efd26360c0bfd20377941bfde5602d3c65db;p=emacs.git

(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.
---

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