procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Eli Zaretskii 2007-02-23 19:27:46 +00:00
parent d695bd172e
commit da8092ef54
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

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

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