Commit 6df73ca3 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(ange-ftp-error): Add save-excursion.

parent 606f5e75
......@@ -1469,14 +1469,15 @@ only return the directory part of FILE."
;; Display the last chunk of output from the ftp process for the given HOST
;; USER pair, and signal an error including MSG in the text.
(defun ange-ftp-error (host user msg)
(let ((cur (selected-window))
(pop-up-windows t))
(pop-to-buffer
(get-buffer-create
(ange-ftp-ftp-process-buffer host user)))
(goto-char (point-max))
(select-window cur))
(signal 'ftp-error (list (format "FTP Error: %s" msg))))
(save-excursion ;; Prevent pop-to-buffer from changing current buffer.
(let ((cur (selected-window))
(pop-up-windows t))
(pop-to-buffer
(get-buffer-create
(ange-ftp-ftp-process-buffer host user)))
(goto-char (point-max))
(select-window cur))
(signal 'ftp-error (list (format "FTP Error: %s" msg)))))
(defun ange-ftp-set-buffer-mode ()
"Set correct modes for the current buffer if visiting a remote file."
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment