Merge from emacs--devo--0

[gnu-emacs] / lisp / textmodes / sgml-mode.el

diff --git a/lisp/textmodes/sgml-mode.el b/lisp/textmodes/sgml-mode.el
index b4ecc325e0d76ebe0484795f0a62b40954dc7e3f..0c4613202c393fb736f09d980553521ce516083b 100644 (file)
--- a/lisp/textmodes/sgml-mode.el
+++ b/lisp/textmodes/sgml-mode.el
@@ -918,9 +918,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))