diff options
| author | Karl Heuer <kwzh@gnu.org> | 1994-05-07 01:22:50 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1994-05-07 01:22:50 +0000 |
| commit | 42ef0f5b15c74918c36b86dc261ae53e9242f088 (patch) | |
| tree | 9eec4bec024fce6ed3ce1e009bd3adbfbb6de15c /lisp/shell.el | |
| parent | ab99cf50e1d193e43e95ea8194d138585c71cc44 (diff) | |
| download | emacs-42ef0f5b15c74918c36b86dc261ae53e9242f088.tar.gz | |
(shell-forward-command, shell-backward-command): Fix regexp.
Diffstat (limited to 'lisp/shell.el')
| -rw-r--r-- | lisp/shell.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/shell.el b/lisp/shell.el index 33d84a181a9..c7beee72b99 100644 --- a/lisp/shell.el +++ b/lisp/shell.el @@ -638,7 +638,7 @@ command again." See `shell-command-regexp'." (interactive "p") (let ((limit (save-excursion (end-of-line nil) (point)))) - (if (re-search-forward (concat shell-command-regexp "\\([;&|][\\s ]*\\)+") + (if (re-search-forward (concat shell-command-regexp "\\([;&|][\t ]*\\)+") limit 'move arg) (skip-syntax-backward " ")))) @@ -652,7 +652,7 @@ See `shell-command-regexp'." (save-excursion (beginning-of-line) (setq limit (point)))) (skip-syntax-backward " " limit) (if (re-search-backward - (format "[;&|]+[\\s ]*\\(%s\\)" shell-command-regexp) limit 'move arg) + (format "[;&|]+[\t ]*\\(%s\\)" shell-command-regexp) limit 'move arg) (progn (goto-char (match-beginning 1)) (skip-chars-forward ";&|"))))) |