diff options
| -rw-r--r-- | lisp/ange-ftp.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el index 6760dba5cb9..6ca24f9df87 100644 --- a/lisp/ange-ftp.el +++ b/lisp/ange-ftp.el @@ -641,7 +641,10 @@ 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 'regexp) + :type '(list regexp + (integer :tag "Host group") + (integer :tag "User group") + (integer :tag "Name group"))) ;; ange-ftp-multi-skip-msgs should only match ###-, where ### is one of ;; the number codes corresponding to ange-ftp-good-msgs or ange-ftp-fatal-msgs. @@ -853,7 +856,7 @@ or just issue a user@host command in case \`ange-ftp-gateway-host\' is non-nil." (defcustom ange-ftp-smart-gateway-port "21" "*Port on gateway machine to use when smart gateway is in operation." :group 'ange-ftp - :type 'integer) + :type 'string) (defcustom ange-ftp-send-hash t "*If non-nil, send the HASH command to the FTP client." |