# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1172258866 0
# Node ID 33363c78b6714b2f43493df794a9fd0793b94a5b
# Parent  eb3920a6798d80fdfc9eb0b53944442a67b24f34
(sgml-validate): Quote the file name with shell-quote-argument.

diff -r eb3920a6798d -r 33363c78b671 lisp/textmodes/sgml-mode.el
--- a/lisp/textmodes/sgml-mode.el	Fri Feb 23 19:22:09 2007 +0000
+++ b/lisp/textmodes/sgml-mode.el	Fri Feb 23 19:27:46 2007 +0000
@@ -920,9 +920,10 @@
 		      (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))