Mercurial > emacs
comparison lisp/net/ange-ftp.el @ 53388:29c86aab2fa2
(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.
author | Eli Zaretskii <eliz@is.elta.co.il> |
---|---|
date | Mon, 29 Dec 2003 13:20:26 +0000 |
parents | d3b9902eacfe |
children | d2a77d389b0e |
comparison
equal
deleted
inserted
replaced
53387:0ff1e2f3d2a9 | 53388:29c86aab2fa2 |
---|---|
684 made as simple and transparent as possible." | 684 made as simple and transparent as possible." |
685 :group 'files | 685 :group 'files |
686 :prefix "ange-ftp-") | 686 :prefix "ange-ftp-") |
687 | 687 |
688 (defcustom ange-ftp-name-format | 688 (defcustom ange-ftp-name-format |
689 '("^/\\(\\([^@/:]*\\)@\\)?\\([^@/:]*[^@/:.]\\):\\(.*\\)" . (3 2 4)) | 689 '("^/\\(\\([^/:]*\\)@\\)?\\([^@/:]*[^@/:.]\\):\\(.*\\)" . (3 2 4)) |
690 "*Format of a fully expanded remote file name. | 690 "*Format of a fully expanded remote file name. |
691 | 691 |
692 This is a list of the form \(REGEXP HOST USER NAME\), | 692 This is a list of the form \(REGEXP HOST USER NAME\), |
693 where REGEXP is a regular expression matching | 693 where REGEXP is a regular expression matching |
694 the full remote name, and HOST, USER, and NAME are the numbers of | 694 the full remote name, and HOST, USER, and NAME are the numbers of |
695 parenthesized expressions in REGEXP for the components (in that order)." | 695 parenthesized expressions in REGEXP for the components (in that order)." |
696 :group 'ange-ftp | 696 :group 'ange-ftp |
697 :type '(list regexp | 697 :type '(list (regexp :tag "Name regexp") |
698 (integer :tag "Host group") | 698 (integer :tag "Host group") |
699 (integer :tag "User group") | 699 (integer :tag "User group") |
700 (integer :tag "Name group"))) | 700 (integer :tag "Name group"))) |
701 | 701 |
702 ;; ange-ftp-multi-skip-msgs should only match ###-, where ### is one of | 702 ;; ange-ftp-multi-skip-msgs should only match ###-, where ### is one of |