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
252fb32b
Commit
252fb32b
authored
Sep 27, 1995
by
Richard M. Stallman
Browse files
(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