diff options
| author | Eli Zaretskii <eliz@is.elta.co.il> | 2003-12-29 13:22:30 +0000 |
|---|---|---|
| committer | Eli Zaretskii <eliz@is.elta.co.il> | 2003-12-29 13:22:30 +0000 |
| commit | ecd5fe1f75272e24ea439052301e089f57adc43c (patch) | |
| tree | 21db7a6dac8277889adfa93121a55233eb2631c2 /lisp/net/ange-ftp.el | |
| parent | 36b99f18645414e61d73812ffe73c7ba85069eef (diff) | |
| download | emacs-ecd5fe1f75272e24ea439052301e089f57adc43c.tar.gz | |
(ange-ftp-name-format): Allow USER to contain
"@", as required by some ISP hosting service. Fix defcustom
argument syntax errors that prevented use of customization.
Diffstat (limited to 'lisp/net/ange-ftp.el')
| -rw-r--r-- | lisp/net/ange-ftp.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el index b96e7f1a298..dc3b5a62da9 100644 --- a/lisp/net/ange-ftp.el +++ b/lisp/net/ange-ftp.el @@ -686,7 +686,7 @@ :prefix "ange-ftp-") (defcustom ange-ftp-name-format - '("^/\\(\\([^@/:]*\\)@\\)?\\([^@/:]*[^@/:.]\\):\\(.*\\)" . (3 2 4)) + '("^/\\(\\([^/:]*\\)@\\)?\\([^@/:]*[^@/:.]\\):\\(.*\\)" . (3 2 4)) "*Format of a fully expanded remote file name. This is a list of the form \(REGEXP HOST USER NAME\), @@ -694,7 +694,7 @@ where REGEXP is a regular expression matching the full remote name, and HOST, USER, and NAME are the numbers of parenthesized expressions in REGEXP for the components (in that order)." :group 'ange-ftp - :type '(list regexp + :type '(list (regexp :tag "Name regexp") (integer :tag "Host group") (integer :tag "User group") (integer :tag "Name group"))) |