From 8921525e34ede9e01247bf457276ae58a986a84c Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Thu, 10 Feb 1994 08:35:48 +0000
Subject: [PATCH] (shell-get-current-command): Make regexp more selective.

---
 lisp/shell.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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))
-- 
2.39.5