mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-05 11:45:45 +00:00
Code Issues Releases 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
Show Stats 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))