emacs/show: use read-shell-command instead of read-string

This enables auto-completion of commands, something which plain
read-string does not do. It's otherwise a drop-in
replacement. According to `C-h f`, read-shell-command was introduced
in Emacs 23.1 or earlier.
This commit is contained in:
Antoine Beaupré 2022-08-30 10:17:45 -04:00 committed by David Bremner
parent 684eeb65c7
commit a3b46fa8bb

View file

@ -2192,7 +2192,7 @@ message."
(interactive (let ((query-string (if current-prefix-arg (interactive (let ((query-string (if current-prefix-arg
"Pipe all open messages to command: " "Pipe all open messages to command: "
"Pipe message to command: "))) "Pipe message to command: ")))
(list current-prefix-arg (read-string query-string)))) (list current-prefix-arg (read-shell-command query-string))))
(let (shell-command) (let (shell-command)
(if entire-thread (if entire-thread
(setq shell-command (setq shell-command