From: Eli Zaretskii <eliz@gnu.org>
Date: Fri, 23 Feb 2007 19:27:46 +0000 (+0000)
Subject: (sgml-validate): Quote the file name with shell-quote-argument.
X-Git-Tag: emacs-pretest-22.0.95~148
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=da8092ef54cc9172b56e3aa533a2f4414b792db6;p=emacs.git

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

diff --git a/lisp/textmodes/sgml-mode.el b/lisp/textmodes/sgml-mode.el
index 6757eb9be1c..5e599ea10e6 100644
--- a/lisp/textmodes/sgml-mode.el
+++ b/lisp/textmodes/sgml-mode.el
@@ -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))