Commit da8092ef authored by Eli Zaretskii's avatar Eli Zaretskii
Browse files

(sgml-validate): Quote the file name with shell-quote-argument.

parent d695bd17
......@@ -920,9 +920,10 @@ and move to the line in the SGML document that caused it."
(or sgml-saved-validate-command
(concat sgml-validate-command
" "
(let ((name (buffer-file-name)))
(and name
(file-name-nondirectory name))))))))
(shell-quote-argument
(let ((name (buffer-file-name)))
(and name
(file-name-nondirectory name)))))))))
(setq sgml-saved-validate-command command)
(save-some-buffers (not compilation-ask-about-save) nil)
(compilation-start command))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment