Mercurial > emacs

changeset 7377:027616e7b1e4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(shell-forward-command, shell-backward-command): Fix regexp.
author Karl Heuer <kwzh@gnu.org>
date Sat, 07 May 1994 01:22:50 +0000
parents 53c6cc0ccd30
children 8d05fd49a9ed
files lisp/shell.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/shell.el	Sat May 07 01:22:38 1994 +0000
+++ b/lisp/shell.el	Sat May 07 01:22:50 1994 +0000
@@ -638,7 +638,7 @@
 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 @@
 	(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 ";&|")))))