From: Dave Love <fx@gnu.org>
Date: Tue, 24 Mar 1998 17:08:34 +0000 (+0000)
Subject: (dired-run-shell-command): Maybe run handler.
X-Git-Tag: emacs-20.3~1795
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=95ffcc7f6ce904700cd3a238d91999099cb16a43;p=emacs.git

(dired-run-shell-command): Maybe run handler.
---

diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index 6d0c3395777..3d17905dd7d 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 <sk@thp.uni-koeln.de>.
 ;; 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)