# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 890759314 0
# Node ID 9d5cc93921517737dc98a7c898fef3490705ad45
# Parent  df07331ebc845b128f4b0fce413367d84b6e45c2
(dired-run-shell-command): Maybe run handler.

diff -r df07331ebc84 -r 9d5cc9392151 lisp/dired-aux.el
--- 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)