Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
252fb32b
Commit
252fb32b
authored
Sep 27, 1995
by
Richard M. Stallman
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(ange-ftp-dumb-unix-host): Avoid error if HOST is nil.
parent
67977ece
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
2 additions
and
1 deletion
+2
-1
lisp/ange-ftp.el
lisp/ange-ftp.el
+2
-1
No files found.
lisp/ange-ftp.el
View file @
252fb32b
...
...
@@ -653,6 +653,7 @@ parenthesized expressions in REGEXP for the components (in that order).")
(
defvar
ange-ftp-skip-msgs
(
concat
"^200 \\(PORT\\|Port\\) \\|^331 \\|^150 \\|^350 \\|^[0-9]+ bytes \\|"
"^Connected \\|^$\\|^Remote system\\|^Using\\|^ \\|Password:\\|"
"^Data connection \\|"
"^local:\\|^Trying\\|^125 \\|^550-\\|^221 .*oodbye"
)
"*Regular expression matching ftp messages that can be ignored."
)
...
...
@@ -2204,7 +2205,7 @@ Works by doing a pwd and examining the directory syntax."
;; Returns whether HOST's FTP server doesn't like \'ls\' or \'dir\' commands
;; to take switch arguments.
(
defun
ange-ftp-dumb-unix-host
(
host
)
(
and
ange-ftp-dumb-unix-host-regexp
(
and
host
ange-ftp-dumb-unix-host-regexp
(
save-match-data
(
string-match
ange-ftp-dumb-unix-host-regexp
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