# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 928545428 0
# Node ID 6486c94c16aed328042466be5a4a5018dc797b19
# Parent  3e8c8a06329b6db93e77a8cdaa5666e11bd0db6b
(ange-ftp-shell-command): Handle error-buffer arg.

diff -r 3e8c8a06329b -r 6486c94c16ae lisp/ange-ftp.el
--- 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)