diff options
| author | Richard M. Stallman | 1994-02-10 08:35:48 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-02-10 08:35:48 +0000 |
| commit | 8921525e34ede9e01247bf457276ae58a986a84c (patch) | |
| tree | 5ad6e709a1a311f9b11b9ddf6417a655a8a4e400 | |
| parent | 6f482eec7710df1a99f252f479cf11dd4cde889e (diff) | |
| download | emacs-8921525e34ede9e01247bf457276ae58a986a84c.tar.gz emacs-8921525e34ede9e01247bf457276ae58a986a84c.zip | |
(shell-get-current-command): Make regexp more selective.
| -rw-r--r-- | lisp/shell.el | 2 |
1 files changed, 1 insertions, 1 deletions
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'." | |||
| 625 | (defun shell-get-current-command () | 625 | (defun shell-get-current-command () |
| 626 | "Function that returns the current command including arguments." | 626 | "Function that returns the current command including arguments." |
| 627 | (save-excursion | 627 | (save-excursion |
| 628 | (if (looking-at "\\s *[^;&|]") | 628 | (if (looking-at "[\t ]*[^;&|\n]") |
| 629 | (goto-char (match-end 0))) | 629 | (goto-char (match-end 0))) |
| 630 | (buffer-substring | 630 | (buffer-substring |
| 631 | (progn (shell-backward-command 1) (point)) | 631 | (progn (shell-backward-command 1) (point)) |