Mercurial > emacs

changeset 20015:d5c245242a88

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ange-ftp-name-format): Fix customize type. (ange-ftp-smart-gateway-port): Likewise.
author Karl Heuer <kwzh@gnu.org>
date Thu, 02 Oct 1997 02:55:24 +0000
parents 2ecea967337d
children 14f83589db18
files lisp/ange-ftp.el
diffstat 1 files changed, 5 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ange-ftp.el	Thu Oct 02 02:47:57 1997 +0000
+++ b/lisp/ange-ftp.el	Thu Oct 02 02:55:24 1997 +0000
@@ -641,7 +641,10 @@
 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 @@
 (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."