Mercurial > emacs

comparison lisp/dired.el @ 46086:8f770863ba00

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(dired-view-file): Quote file name for dired-run-shell-command.
author Andreas Schwab <schwab@suse.de>
date Sat, 29 Jun 2002 17:40:14 +0000
parents 9c3e541afa23
children 6e0e9800f72c
comparison
equal deleted inserted replaced
46085:33538dc6ac79 46086:8f770863ba00
1 ;;; dired.el --- directory-browsing commands 1 ;;; dired.el --- directory-browsing commands
2 2
3 ;; Copyright (C) 1985, 86, 92, 93, 94, 95, 96, 1997, 2000, 2001 3 ;; Copyright (C) 1985, 86, 92, 93, 94, 95, 96, 1997, 2000, 2001, 2002
4 ;; Free Software Foundation, Inc. 4 ;; Free Software Foundation, Inc.
5 5
6 ;; Author: Sebastian Kremer <sk@thp.uni-koeln.de> 6 ;; Author: Sebastian Kremer <sk@thp.uni-koeln.de>
7 ;; Maintainer: FSF 7 ;; Maintainer: FSF
8 ;; Keywords: files 8 ;; Keywords: files
1405 ;; Look for some other way to view a certain file. 1405 ;; Look for some other way to view a certain file.
1406 (dolist (elt dired-view-command-alist) 1406 (dolist (elt dired-view-command-alist)
1407 (if (string-match (car elt) file) 1407 (if (string-match (car elt) file)
1408 (setq cmd (cdr elt)))) 1408 (setq cmd (cdr elt))))
1409 (if cmd 1409 (if cmd
1410 (dired-run-shell-command (concat cmd " " file)) 1410 (dired-run-shell-command (concat cmd " "
1411 (shell-quote-argument file)))
1411 (view-file file)))))) 1412 (view-file file))))))
1412 1413
1413 (defun dired-find-file-other-window () 1414 (defun dired-find-file-other-window ()
1414 "In Dired, visit this file or directory in another window." 1415 "In Dired, visit this file or directory in another window."
1415 (interactive) 1416 (interactive)