diff options
| author | Karl Heuer | 1994-05-07 01:22:50 +0000 |
|---|---|---|
| committer | Karl Heuer | 1994-05-07 01:22:50 +0000 |
| commit | 19134c18f4df3deee1aad2f7659aa9ca582d1104 (patch) | |
| tree | 007f0d56fe200efabbe3e24a14e2ba7655644f48 | |
| parent | d9fc020b58c7de82276ea0f513e59ed53ebb90b3 (diff) | |
| download | emacs-19134c18f4df3deee1aad2f7659aa9ca582d1104.tar.gz emacs-19134c18f4df3deee1aad2f7659aa9ca582d1104.zip | |
(shell-forward-command, shell-backward-command): Fix regexp.
| -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." | |||
| 638 | See `shell-command-regexp'." | 638 | See `shell-command-regexp'." |
| 639 | (interactive "p") | 639 | (interactive "p") |
| 640 | (let ((limit (save-excursion (end-of-line nil) (point)))) | 640 | (let ((limit (save-excursion (end-of-line nil) (point)))) |
| 641 | (if (re-search-forward (concat shell-command-regexp "\\([;&|][\\s ]*\\)+") | 641 | (if (re-search-forward (concat shell-command-regexp "\\([;&|][\t ]*\\)+") |
| 642 | limit 'move arg) | 642 | limit 'move arg) |
| 643 | (skip-syntax-backward " ")))) | 643 | (skip-syntax-backward " ")))) |
| 644 | 644 | ||
| @@ -652,7 +652,7 @@ See `shell-command-regexp'." | |||
| 652 | (save-excursion (beginning-of-line) (setq limit (point)))) | 652 | (save-excursion (beginning-of-line) (setq limit (point)))) |
| 653 | (skip-syntax-backward " " limit) | 653 | (skip-syntax-backward " " limit) |
| 654 | (if (re-search-backward | 654 | (if (re-search-backward |
| 655 | (format "[;&|]+[\\s ]*\\(%s\\)" shell-command-regexp) limit 'move arg) | 655 | (format "[;&|]+[\t ]*\\(%s\\)" shell-command-regexp) limit 'move arg) |
| 656 | (progn (goto-char (match-beginning 1)) | 656 | (progn (goto-char (match-beginning 1)) |
| 657 | (skip-chars-forward ";&|"))))) | 657 | (skip-chars-forward ";&|"))))) |
| 658 | 658 | ||