Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-06-14 12:31:25 +00:00
Code Issues Projects Releases Packages Wiki Activity

Use 'read-shell-command' to read SGML validation command

Browse source 
* lisp/textmodes/sgml-mode.el (sgml-validate): Update
interactive spec.
This commit is contained in:
Philip Kaludercic 2026-05-03 17:51:52 +02:00
parent 77e968b97c
commit 29f2c6eee0
No known key found for this signature in database
1 changed files with 8 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
lisp/textmodes/sgml-mode.el
View file

@ -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))