changeset 34793:ddeab24202fc

Build an alist for completing-read as in 20.7.
author Gerd Moellmann <gerd@gnu.org>
date Thu, 21 Dec 2000 16:39:28 +0000
parents 294c98d5718b
children 12ca043196d7
files lisp/generic.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/generic.el	Thu Dec 21 16:13:06 2000 +0000
+++ b/lisp/generic.el	Thu Dec 21 16:39:28 2000 +0000
@@ -173,7 +173,7 @@
 (defsubst generic-read-type ()
   (completing-read
    "Generic Type: "
-   generic-mode-list
+   (mapcar (lambda (elt) (list (symbol-name (car elt))))
    nil t))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;