procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(dired-view-file): Let viewer program run asynchronously.

Browse source
This commit is contained in:
Richard M. Stallman 2003-04-06 20:17:43 +00:00
parent 56708dce08
commit 90c1e36a73
1 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/dired.el
View file

@ -1417,8 +1417,11 @@ see `dired-view-command-alist'. Otherwise, display it in another buffer."
(if (string-match (car elt) file) (if (string-match (car elt) file)
(setq cmd (cdr elt)))) (setq cmd (cdr elt))))
(if cmd (if cmd
(dired-run-shell-command (concat cmd " " (call-process shell-file-name nil 0 nil
(shell-quote-argument file))) "-c"
(concat cmd " "
(shell-quote-argument file)
" &"))
(view-file file)))))) (view-file file))))))
(defun dired-find-file-other-window () (defun dired-find-file-other-window ()