From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 10 Feb 1994 08:35:48 +0000 (+0000)
Subject: (shell-get-current-command): Make regexp more selective.
X-Git-Tag: emacs-19.34~9971
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8921525e34ede9e01247bf457276ae58a986a84c;p=emacs.git

(shell-get-current-command): Make regexp more selective.
---

diff --git a/lisp/shell.el b/lisp/shell.el
index 05179863d94..a759aedc8ea 100644
--- a/lisp/shell.el
+++ b/lisp/shell.el
@@ -625,7 +625,7 @@ See `shell-command-regexp'."
 (defun shell-get-current-command ()
   "Function that returns the current command including arguments."
   (save-excursion
-    (if (looking-at "\\s *[^;&|]")
+    (if (looking-at "[\t ]*[^;&|\n]")
 	(goto-char (match-end 0)))
     (buffer-substring
      (progn (shell-backward-command 1) (point))