(ange-ftp-passive-host-alist)

(ange-ftp-bs2000-additional-pubsets):  Fix custom type.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index edeafa6aa945e3215b732d488d8d5e3b2bf83ee0..9d3de96d41dd6ac57113a1f409c0acb140a4c851 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2002-04-28  Markus Rost  <rost@math.ohio-state.edu>
+
+       * net/ange-ftp.el (ange-ftp-passive-host-alist) 
+       (ange-ftp-bs2000-additional-pubsets):  Fix custom type.
+
+       * files.el (small-temporary-file-directory): Fix custom type.
+
 2002-04-28  Glenn Morris  <gmorris@ast.cam.ac.uk>
 
        * progmodes/f90.el (f90-xemacs-flag): New variable.

diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el
index 7e4daa2c7357d907f35c76ee7db7e2b84db886b4..3e12c7ee647ffd394314249bd7fd372b57932c5a 100644 (file)
--- a/lisp/net/ange-ftp.el
+++ b/lisp/net/ange-ftp.el
@@ -1009,9 +1009,9 @@ HOSTNAME is a regular expression to match the FTP server host name(s).
 SETTING is \"on\" to turn passive mode on, \"off\" to turn it off,
 or nil meaning don't change it."
   :group 'ange-ftp
-  :type '(list (cons regex (choice (const :tag "On" "on")
-                                  (const :tag "Off" "off")
-                                  (const :tag "Don't change" nil))))
+  :type '(repeat (cons regexp (choice (const :tag "On" "on")
+                                     (const :tag "Off" "off")
+                                     (const :tag "Don't change" nil))))
   :version 21.3)
 \f
 ;;;; ------------------------------------------------------------
@@ -6111,7 +6111,7 @@ Other orders of $ and _ seem to all work just fine.")
   nil
   "*List of additional pubsets available to all users."
   :group 'ange-ftp
-  :type 'string)
+  :type '(repeat string))
 
 ;; These parsing functions are as general as possible because the syntax
 ;; of ftp listings from BS2000 hosts is a bit erratic. What saves us is that