diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-11-19 14:03:23 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-11-19 14:03:23 +0000 |
| commit | cc66b32b04bb852a2b6dd1c47b56f7d58b50f17d (patch) | |
| tree | 4bad39fd9ded6227e00d4d257a8816e60a19972a | |
| parent | ebdb2d6d9eade255a73b5bd641cf62c4930edb60 (diff) | |
| download | emacs-cc66b32b04bb852a2b6dd1c47b56f7d58b50f17d.tar.gz emacs-cc66b32b04bb852a2b6dd1c47b56f7d58b50f17d.tar.bz2 emacs-cc66b32b04bb852a2b6dd1c47b56f7d58b50f17d.zip | |
(start-process-shell-command): Function deleted.
| -rw-r--r-- | lisp/find-dired.el | 25 |
1 files changed, 3 insertions, 22 deletions
diff --git a/lisp/find-dired.el b/lisp/find-dired.el index 6844699eb36..53f62d71ed4 100644 --- a/lisp/find-dired.el +++ b/lisp/find-dired.el @@ -7,8 +7,8 @@ ;; Maintainer: Sebastian Kremer <sk@thp.uni-koeln.de> ;; Keywords: unix -(defconst find-dired-version (substring "$Revision: 1.15 $" 11 -2) - "$Id: find-dired.el,v 1.15 1994/04/24 08:15:55 rms Exp kwzh $") +(defconst find-dired-version (substring "$Revision: 1.16 $" 11 -2) + "$Id: find-dired.el,v 1.16 1994/05/03 23:39:55 kwzh Exp rms $") ;;; This program is free software; you can redistribute it and/or modify ;;; it under the terms of the GNU General Public License as published by @@ -33,7 +33,7 @@ ;; find-dired|Roland McGrath, Sebastian Kremer ;; |roland@gnu.ai.mit.edu, sk@thp.uni-koeln.de ;; |Run a `find' command and dired the output -;; |$Date: 1994/04/24 08:15:55 $|$Revision: 1.15 $| +;; |$Date: 1994/05/03 23:39:55 $|$Revision: 1.16 $| ;; INSTALLATION ====================================================== @@ -215,25 +215,6 @@ Thus ARG can also contain additional grep options." ;; Force mode line redisplay soon. (set-buffer-modified-p (buffer-modified-p)))) (message "find-dired %s finished." (current-buffer)))))) - -(or (fboundp 'start-process-shell-command) - ;; From version 19 subr.el. -(defun start-process-shell-command (name buffer &rest args) - "Start a program in a subprocess. Return the process object for it. -Args are NAME BUFFER COMMAND &rest COMMAND-ARGS. -NAME is name for process. It is modified if necessary to make it unique. -BUFFER is the buffer or (buffer-name) to associate with the process. - Process output goes at end of that buffer, unless you specify - an output stream or filter function to handle the output. - BUFFER may be also nil, meaning that this process is not associated - with any buffer -Third arg is command name, the name of a shell command. -Remaining arguments are the arguments for the command. -Wildcards and redirection are handled as usual in the shell." - (if (eq system-type 'vax-vms) - (apply 'start-process name buffer args) - (start-process name buffer shell-file-name "-c" - (concat "exec " (mapconcat 'identity args " ")))))) (provide 'find-dired) |