mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-11 09:20:51 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Karl Heuer 1999-06-05 01:17:08 +00:00
parent 4116ab9feb
commit 75062f5909
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ange-ftp.el
View File

@ -4286,13 +4286,13 @@ NEWNAME should be the name to give the new compressed or uncompressed file.")
(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 @@ NEWNAME should be the name to give the new compressed or uncompressed file.")
;; 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)