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 | d23237090f989d8a43bafdb4116416d4b5ec344e (patch) | |
| tree | 571a7d4118c647d82b7f6f8f1979ef9a962fc9c1 /lisp | |
| parent | 7f0feddae256983d4ee6d694ce3f7dab771a837c (diff) | |
| download | emacs-d23237090f989d8a43bafdb4116416d4b5ec344e.tar.gz | |
(ange-ftp-name-format): Fix customize type.
(ange-ftp-smart-gateway-port): Likewise.
Diffstat (limited to 'lisp')
| -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." |