# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1049660263 0
# Node ID 5f5babd538abe58fbac095b3bd23de882b7f86ed
# Parent  b4b69a752c69428607942c2b46cc9e6615b4e3d1
(dired-view-file): Let viewer program run asynchronously.

diff -r b4b69a752c69 -r 5f5babd538ab lisp/dired.el
--- a/lisp/dired.el	Sun Apr 06 20:17:01 2003 +0000
+++ b/lisp/dired.el	Sun Apr 06 20:17:43 2003 +0000
@@ -1417,8 +1417,11 @@
 	  (if (string-match (car elt) file)
 	      (setq cmd (cdr elt))))
 	(if cmd
-	    (dired-run-shell-command (concat cmd " "
-					     (shell-quote-argument file)))
+	    (call-process shell-file-name nil 0 nil
+			  "-c"
+			  (concat cmd " "
+				  (shell-quote-argument file)
+				  " &"))
 	  (view-file file))))))
 
 (defun dired-find-file-other-window ()