Mercurial > emacs

changeset 76104:33363c78b671

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(sgml-validate): Quote the file name with shell-quote-argument.
author Eli Zaretskii <eliz@gnu.org>
date Fri, 23 Feb 2007 19:27:46 +0000
parents eb3920a6798d
children 470beaab19ed
files lisp/textmodes/sgml-mode.el
diffstat 1 files changed, 4 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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))