Mercurial > emacs
changeset 24818:6486c94c16ae
(ange-ftp-shell-command): Handle error-buffer arg.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Sat, 05 Jun 1999 01:17:08 +0000 |
| parents | 3e8c8a06329b |
| children | 649cfea33b84 |
| files | lisp/ange-ftp.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ange-ftp.el Sat Jun 05 01:15:26 1999 +0000 +++ b/lisp/ange-ftp.el Sat Jun 05 01:17:08 1999 +0000 @@ -4286,13 +4286,13 @@ (ange-ftp-real-file-name-sans-versions file keep-backup-version)))) ;; This is the handler for shell-command. -(defun ange-ftp-shell-command (command &optional output-buffer) +(defun ange-ftp-shell-command (command &optional output-buffer error-buffer) (let* ((parsed (ange-ftp-ftp-name default-directory)) (host (nth 0 parsed)) (user (nth 1 parsed)) (name (nth 2 parsed))) (if (not parsed) - (ange-ftp-real-shell-command command output-buffer) + (ange-ftp-real-shell-command command output-buffer error-buffer) (if (> (length name) 0) ; else it's $HOME (setq command (concat "cd " name "; " command))) (setq command @@ -4303,7 +4303,7 @@ ;; Cannot call ange-ftp-real-dired-run-shell-command here as it ;; would prepend "cd default-directory" --- which bombs because ;; default-directory is in ange-ftp syntax for remote file names. - (ange-ftp-real-shell-command command output-buffer)))) + (ange-ftp-real-shell-command command output-buffer error-buffer)))) ;;; This is the handler for call-process. (defun ange-ftp-dired-call-process (program discard &rest arguments)