comparison lisp/dired-aux.el @ 21279:9d5cc9392151

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

21278:df07331ebc84

;;; dired-aux.el --- less commonly used parts of dired  -*-byte-compile-dynamic: t;-*-

;; Copyright (C) 1985, 1986, 1992, 1994 Free Software Foundation, Inc.

;; Author: Sebastian Kremer <[e-mail]>.
;; Maintainer: FSF

;; This file is part of GNU Emacs.

	    (setq fns (concat dired-mark-prefix fns dired-mark-postfix)))
	(funcall stuff-it fns)))))

;; This is an extra function so that it can be redefined by ange-ftp.
(defun dired-run-shell-command (command)
  (shell-command command)
  ;; Return nil for sake of nconc in dired-bunch-files.
  nil)

;; In Emacs 19 this will return program's exit status.
;; This is a separate function so that ange-ftp can redefine it.

21279:9d5cc9392151

;;; dired-aux.el --- less commonly used parts of dired  -*-byte-compile-dynamic: t;-*-

;; Copyright (C) 1985, 1986, 1992, 1994, 1998 Free Software Foundation, Inc.

;; Author: Sebastian Kremer <[e-mail]>.
;; Maintainer: FSF

;; This file is part of GNU Emacs.

	    (setq fns (concat dired-mark-prefix fns dired-mark-postfix)))
	(funcall stuff-it fns)))))

;; This is an extra function so that it can be redefined by ange-ftp.
(defun dired-run-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)

;; In Emacs 19 this will return program's exit status.
;; This is a separate function so that ange-ftp can redefine it.