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

1 files changed, 4 insertions, 3 deletions

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))