Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
6df73ca3
Commit
6df73ca3
authored
Aug 17, 2003
by
Richard M. Stallman
Browse files
(ange-ftp-error): Add save-excursion.
parent
606f5e75
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
9 additions
and
8 deletions
+9
-8
lisp/net/ange-ftp.el
lisp/net/ange-ftp.el
+9
-8
No files found.
lisp/net/ange-ftp.el
View file @
6df73ca3
...
...
@@ -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."
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment