(shell-command-regexp): Use a simpler faster regexp.

a8e0effb · Richard M. Stallman · 1174421c · a8e0effb
Commit a8e0effb authored Sep 03, 1994 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 4 deletions

lisp/shell.el lisp/shell.el +3 -4

No files found.
--- a/lisp/shell.el
+++ b/lisp/shell.el
@@ -182,10 +182,9 @@ shell buffer.

 This is a fine thing to set in your `.emacs' file.")

-(defvar shell-command-regexp "\\((.*)\\|[^;&|]\\)+"
-  "*Regexp to match shell commands.
-Elements of pipes are considered as separate commands, forks and redirections
-as part of one command.")
+(defvar shell-command-regexp "[^;&|\n]+"
+  "*Regexp to match a single command within a pipeline.
+This is used for directory tracking and does not do a perfect job.")

 (defvar shell-completion-execonly t
  "*If non-nil, use executable files only for completion candidates.