Mercurial > emacs

changeset 53388:29c86aab2fa2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 0ff1e2f3d2a9
children d8b0f26cdd44
files lisp/net/ange-ftp.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/net/ange-ftp.el	Mon Dec 29 13:09:14 2003 +0000
+++ b/lisp/net/ange-ftp.el	Mon Dec 29 13:20:26 2003 +0000
@@ -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 @@
 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")))