(shell-command): Match & only at end of whole command.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9fe06e2b5f83e90cf2d8b80f5cf9e62a00fe9b42..a2efbdd9bbc3e0ac690604a1deb47aec4de4fa43 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2002-07-06  Richard M. Stallman  <rms@gnu.org>
+
+       * simple.el (shell-command): Match & only at end of whole command.
+
 2002-07-03  Dave Love  <fx@gnu.org>
 
        * ediff-diff.el (ediff-wordify): Bind ediff-forward-word-function

diff --git a/lisp/simple.el b/lisp/simple.el
index de998269ecfb7750ebceaf6111fc5eebe731ef65..56cdb452e602e43ff89094d37326ad14eef8abf9 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -1265,7 +1265,7 @@ specifies the value of ERROR-BUFFER."
                                     (current-buffer)))))
        ;; Preserve the match data in case called from a program.
        (save-match-data
-         (if (string-match "[ \t]*&[ \t]*$" command)
+         (if (string-match "[ \t]*&[ \t]*\\'" command)
              ;; Command ending with ampersand means asynchronous.
              (let ((buffer (get-buffer-create
                             (or output-buffer "*Async Shell Command*")))