diff options
| author | Philip Kaludercic <philipk@posteo.net> | 2026-05-03 17:51:52 +0200 |
|---|---|---|
| committer | Philip Kaludercic <philipk@posteo.net> | 2026-05-03 20:25:53 +0200 |
| commit | 29f2c6eee030cd060fcd4bca8a3eb0827bc68a78 (patch) | |
| tree | 102366b4766268562d28c394ae5c2b94769aea8d | |
| parent | 77e968b97c074ae61c98170ac086f8d8e7f97ae7 (diff) | |
Use 'read-shell-command' to read SGML validation command
* lisp/textmodes/sgml-mode.el (sgml-validate): Update
interactive spec.
| -rw-r--r-- | lisp/textmodes/sgml-mode.el | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/lisp/textmodes/sgml-mode.el b/lisp/textmodes/sgml-mode.el index b85ba5c26d4..aaf05e4df1a 100644 --- a/lisp/textmodes/sgml-mode.el +++ b/lisp/textmodes/sgml-mode.el @@ -1199,13 +1199,14 @@ with output going to the buffer `*compilation*'. You can then use the command \\[next-error] to find the next error message and move to the line in the SGML document that caused it." (interactive - (list (read-string "Validate command: " - (or sgml-saved-validate-command - (concat sgml-validate-command - " " - (when-let* ((name (buffer-file-name))) - (shell-quote-argument - (file-name-nondirectory name)))))))) + (list (read-shell-command "Validate command: " + (or sgml-saved-validate-command + sgml-validate-command + (concat sgml-validate-command + " " + (when-let* ((name (buffer-file-name))) + (shell-quote-argument + (file-name-nondirectory name)))))))) (setq sgml-saved-validate-command command) (save-some-buffers (not compilation-ask-about-save) nil) (compilation-start command)) |