diff options
| author | Karl Heuer <kwzh@gnu.org> | 1997-10-02 02:55:24 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1997-10-02 02:55:24 +0000 |
| commit | d9c6456886d99d0cf99af41cd382b1eaecc355a1 (patch) | |
| tree | 8715dfc37c3b03cb9f75db05ecf02b48dac0f978 | |
| parent | 64c0124f7bfb3045a24e37e24b7c8f75afd1a529 (diff) | |
| download | emacs-d9c6456886d99d0cf99af41cd382b1eaecc355a1.tar.gz | |
(ange-ftp-name-format): Fix customize type.
(ange-ftp-smart-gateway-port): Likewise.
| -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." |