X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/69b79bdff07bff2174d782dc4c69cf2dadc8225b..6dc0bafd5915b01a341cc0efbc744abd73163872:/lisp/simple.el

diff --git a/lisp/simple.el b/lisp/simple.el
index 6d7f00f52f..a757876328 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -3328,6 +3328,8 @@ the use of a shell (with its need to quote arguments)."
 				     (current-buffer)))))
 	;; Output goes in a separate buffer.
 	;; Preserve the match data in case called from a program.
+        ;; FIXME: It'd be ridiculous for an Elisp function to call
+        ;; shell-command and assume that it won't mess the match-data!
 	(save-match-data
 	  (if (string-match "[ \t]*&[ \t]*\\'" command)
 	      ;; Command ending with ampersand means asynchronous.