diff lisp/ange-ftp.el @ 24818:6486c94c16ae

(ange-ftp-shell-command): Handle error-buffer arg.

--- 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)