From 8c9f73a21fcbe7f9a6ec4470f8df0eb181217431 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Wed, 10 Jan 2001 17:01:22 +0000 Subject: [PATCH] (eshell-ange-ls-uids): Fix :type. --- lisp/ChangeLog | 2 ++ lisp/eshell/esh-util.el | 11 +++++------ 2 files changed, 7 insertions(+), 6 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 744b3aa2b93..0796a7e8151 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -2,6 +2,8 @@ * ansi-color.el (ansi-colors) : Fix :version. + * eshell/esh-util.el (eshell-ange-ls-uids): Fix :type. + 2001-01-10 Gerd Moellmann * 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 3d8dedc6bae..354905edc24 100644 --- 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 @@ -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: -- 2.39.5