Mercurial > emacs

diff lisp/progmodes/idlw-shell.el @ 30648:4ee57139dc05

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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.
author Miles Bader <miles@gnu.org>
date Mon, 07 Aug 2000 15:04:18 +0000
parents 8eff9cc9cbae
children dd613770eb0f
line wrap: on
line diff
--- a/lisp/progmodes/idlw-shell.el	Mon Aug 07 14:59:23 2000 +0000
+++ b/lisp/progmodes/idlw-shell.el	Mon Aug 07 15:04:18 2000 +0000
@@ -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 @@
       (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