diff options
| -rw-r--r-- | lisp/simple.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index 6d7f00f52f4..a757876328b 100644 --- a/lisp/simple.el +++ b/lisp/simple.el | |||
| @@ -3328,6 +3328,8 @@ the use of a shell (with its need to quote arguments)." | |||
| 3328 | (current-buffer))))) | 3328 | (current-buffer))))) |
| 3329 | ;; Output goes in a separate buffer. | 3329 | ;; Output goes in a separate buffer. |
| 3330 | ;; Preserve the match data in case called from a program. | 3330 | ;; Preserve the match data in case called from a program. |
| 3331 | ;; FIXME: It'd be ridiculous for an Elisp function to call | ||
| 3332 | ;; shell-command and assume that it won't mess the match-data! | ||
| 3331 | (save-match-data | 3333 | (save-match-data |
| 3332 | (if (string-match "[ \t]*&[ \t]*\\'" command) | 3334 | (if (string-match "[ \t]*&[ \t]*\\'" command) |
| 3333 | ;; Command ending with ampersand means asynchronous. | 3335 | ;; Command ending with ampersand means asynchronous. |