1 |
;;; dired.el --- directory-browsing commands |
;;; dired.el --- directory-browsing commands |
2 |
|
|
3 |
;; 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 |
4 |
;; Free Software Foundation, Inc. |
;; Free Software Foundation, Inc. |
5 |
|
|
6 |
;; Author: Sebastian Kremer <sk@thp.uni-koeln.de> |
;; Author: Sebastian Kremer <sk@thp.uni-koeln.de> |
1407 |
(if (string-match (car elt) file) |
(if (string-match (car elt) file) |
1408 |
(setq cmd (cdr elt)))) |
(setq cmd (cdr elt)))) |
1409 |
(if cmd |
(if cmd |
1410 |
(dired-run-shell-command (concat cmd " " file)) |
(dired-run-shell-command (concat cmd " " |
1411 |
|
(shell-quote-argument file))) |
1412 |
(view-file file)))))) |
(view-file file)))))) |
1413 |
|
|
1414 |
(defun dired-find-file-other-window () |
(defun dired-find-file-other-window () |