(eshell-ange-ls-uids): Fix :type.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 744b3aa2b9377fb339b81fc4eddba516b7374a3b..0796a7e8151349ad3e24a6ea6c662543103707b4 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,8 @@
 
        * ansi-color.el (ansi-colors) <defgroup>: Fix :version.
 
+       * eshell/esh-util.el (eshell-ange-ls-uids): Fix :type.
+
 2001-01-10  Gerd Moellmann  <gerd@gnu.org>
 
        * simple.el (set-variable): Force a thorough redisplay for the

diff --git a/lisp/eshell/esh-util.el b/lisp/eshell/esh-util.el
index 3d8dedc6bae6bde1a2aa18a4bc3efea4085fec6c..354905edc24ea8535e9e3bd6c747e80c093bd98d 100644 (file)
--- a/lisp/eshell/esh-util.el
+++ b/lisp/eshell/esh-util.el
@@ -1,6 +1,6 @@
 ;;; esh-util --- general utilities
 
-;; Copyright (C) 1999, 2000 Free Software Foundation
+;; Copyright (C) 1999, 2000, 2001 Free Software Foundation
 
 ;; Author: John Wiegley <johnw@gnu.org>
 
@@ -98,11 +98,10 @@ function `string-to-number'."
 
 (defcustom eshell-ange-ls-uids nil
   "*List of user/host/id strings, used to determine remote ownership."
-  :type '(list (cons :tag "Host/User Pair"
-                    (string :tag "Hostname")
-                    (repeat (cons :tag "User/UID List"
-                                  (string :tag "Username")
-                                  (repeat :tag "UIDs" string)))))
+  :type '(alist :key-type (string :tag "Hostname")
+               :value-type (alist :tag "User/UID List"
+                                  :key-type (string :tag "Username")
+                                  :value-type (repeat :tag "UIDs" string)))
   :group 'eshell-util)
 
 ;;; Internal Variables: