# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1160834962 0
# Node ID d0dd803ef151ef301f2f0232bed2061ff89c160b
# Parent  b6b9827aea0323ae3a6dca85fe9b3a5ce01a3c1d
(filesets-cmd-shell-command): Quote buffer-file-name to protect whitespace and
metacharacters from the shell.

diff -r b6b9827aea03 -r d0dd803ef151 lisp/filesets.el
--- a/lisp/filesets.el	Sat Oct 14 13:03:17 2006 +0000
+++ b/lisp/filesets.el	Sat Oct 14 14:09:22 2006 +0000
@@ -1701,7 +1701,7 @@
 		  ok)
 	      t)))
     (when ok
-      (let ((cmd (format txt (buffer-file-name))))
+      (let ((cmd (format txt (shell-quote-argument (buffer-file-name)))))
 	(message "Filesets: %s" cmd)
 	(filesets-cmd-show-result cmd
 				  (shell-command-to-string cmd))))))