diff options
| author | Dave Love <[email protected]> | 1998-03-24 17:08:34 +0000 |
|---|---|---|
| committer | Dave Love <[email protected]> | 1998-03-24 17:08:34 +0000 |
| commit | 95ffcc7f6ce904700cd3a238d91999099cb16a43 (patch) | |
| tree | 73c8aeac85f4dfebd19f7da725dee3cce17114cd /lisp/dired-aux.el | |
| parent | 1c65319ffb499f483f32c8cbd8d7b81c262c2f4e (diff) | |
(dired-run-shell-command): Maybe run handler.
Diffstat (limited to 'lisp/dired-aux.el')
| -rw-r--r-- | lisp/dired-aux.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el index 6d0c339577..3d17905dd7 100644 --- a/lisp/dired-aux.el +++ b/lisp/dired-aux.el @@ -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 <[email protected]>. ;; Maintainer: FSF @@ -384,7 +384,11 @@ output files usually are created there instead of in a subdir." ;; 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) |