mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 18:40:39 -08:00
Code Issues Projects Releases Wiki Activity

(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 (or sgml-saved-validate-command
(concat sgml-validate-command (concat sgml-validate-command
" " " "
(let ((name (buffer-file-name))) (shell-quote-argument
(and name (let ((name (buffer-file-name)))
(file-name-nondirectory name)))))))) (and name
(file-name-nondirectory name)))))))))
(setq sgml-saved-validate-command command) (setq sgml-saved-validate-command command)
(save-some-buffers (not compilation-ask-about-save) nil) (save-some-buffers (not compilation-ask-about-save) nil)
(compilation-start command)) (compilation-start command))