# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 760869348 0
# Node ID 7051027369d6e7e38e4028aa68d96c962aa6887b
# Parent  66aadd6ba5e60f1d4acfd932267903c2c7270838
(shell-get-current-command): Make regexp more selective.

diff -r 66aadd6ba5e6 -r 7051027369d6 lisp/shell.el
--- a/lisp/shell.el	Thu Feb 10 07:39:09 1994 +0000
+++ b/lisp/shell.el	Thu Feb 10 08:35:48 1994 +0000
@@ -625,7 +625,7 @@
 (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))