Mercurial > emacs
changeset 21279:9d5cc9392151
(dired-run-shell-command): Maybe run handler.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Tue, 24 Mar 1998 17:08:34 +0000 |
| parents | df07331ebc84 |
| children | 82fbf42bb989 |
| files | lisp/dired-aux.el |
| diffstat | 1 files changed, 6 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/dired-aux.el Tue Mar 24 17:08:02 1998 +0000 +++ b/lisp/dired-aux.el Tue Mar 24 17:08:34 1998 +0000 @@ -1,6 +1,6 @@ ;;; dired-aux.el --- less commonly used parts of dired -*-byte-compile-dynamic: t;-*- -;; Copyright (C) 1985, 1986, 1992, 1994 Free Software Foundation, Inc. +;; Copyright (C) 1985, 1986, 1992, 1994, 1998 Free Software Foundation, Inc. ;; Author: Sebastian Kremer <sk@thp.uni-koeln.de>. ;; Maintainer: FSF @@ -384,7 +384,11 @@ ;; This is an extra function so that it can be redefined by ange-ftp. (defun dired-run-shell-command (command) - (shell-command command) + (let ((handler + (find-file-name-handler (directory-file-name default-directory) + 'shell-command))) + (if handler (apply handler 'shell-command (list command)) + (shell-command command))) ;; Return nil for sake of nconc in dired-bunch-files. nil)