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
68eabf10
Commit
68eabf10
authored
May 23, 1994
by
Richard M. Stallman
Browse files
(ange-ftp-gwp-start): Call internal-ange-ftp-mode.
parent
596122a7
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
6 additions
and
3 deletions
+6
-3
lisp/ange-ftp.el
lisp/ange-ftp.el
+6
-3
No files found.
lisp/ange-ftp.el
View file @
68eabf10
...
...
@@ -851,7 +851,7 @@ SIZE, if supplied, should be a prime number."
;;;; Internal variables.
;;;; ------------------------------------------------------------
(
defconst
ange-ftp-version
"$Revision: 1.5
0
$"
)
(
defconst
ange-ftp-version
"$Revision: 1.5
1
$"
)
(
defvar
ange-ftp-data-buffer-name
" *ftp data*"
"Buffer name to hold directory listing data received from ftp process."
)
...
...
@@ -1621,14 +1621,17 @@ good, skip, fatal, or unknown."
;; but that doesn't work: ftp never responds.
;; Can anyone find a fix for that?
(
proc
(
let
((
process-connection-type
t
))
(
start-process
name
name
(
start-process
name
name
ange-ftp-gateway-program
ange-ftp-gateway-host
)))
(
ftp
(
mapconcat
(
function
identity
)
args
" "
)))
(
process-kill-without-query
proc
)
(
set-process-sentinel
proc
(
function
ange-ftp-gwp-sentinel
))
(
set-process-filter
proc
(
function
ange-ftp-gwp-filter
))
(
set-marker
(
process-mark
proc
)
(
point
))
(
save-excursion
(
set-buffer
(
process-buffer
proc
))
(
internal-ange-ftp-mode
)
(
set-marker
(
process-mark
proc
)
(
point
)))
(
setq
ange-ftp-gwp-running
t
ange-ftp-gwp-status
nil
)
(
ange-ftp-message
"Connecting to gateway %s..."
ange-ftp-gateway-host
)
...
...
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