(dired-view-file): Quote file name for dired-run-shell-command.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8c0fbf783b3c32698e84df62a0fddb7e191b06f9..fd5ffe2b3c87a4be5cbf861eb08fa21d969c580c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-06-29  Andreas Schwab  <schwab@suse.de>
+
+       * dired.el (dired-view-file): Quote file name for
+       dired-run-shell-command.
+
 2002-06-29  Kim F. Storm  <storm@cua.dk>
 
        * kmacro.el: New file.

diff --git a/lisp/dired.el b/lisp/dired.el
index 16333a458589e754614c389caf18f191d3d743aa..d4ddc9b53a38bdc3faccf72331fabc94bfe33b5c 100644 (file)
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -1,6 +1,6 @@
 ;;; dired.el --- directory-browsing commands
 
-;; Copyright (C) 1985, 86, 92, 93, 94, 95, 96, 1997, 2000, 2001
+;; Copyright (C) 1985, 86, 92, 93, 94, 95, 96, 1997, 2000, 2001, 2002
 ;;  Free Software Foundation, Inc.
 
 ;; Author: Sebastian Kremer <sk@thp.uni-koeln.de>
@@ -1407,7 +1407,8 @@ see `dired-view-command-alist'.  Otherwise, display it in another buffer."
          (if (string-match (car elt) file)
              (setq cmd (cdr elt))))
        (if cmd
-           (dired-run-shell-command (concat cmd " " file))
+           (dired-run-shell-command (concat cmd " "
+                                            (shell-quote-argument file)))
          (view-file file))))))
 
 (defun dired-find-file-other-window ()