diff lisp/generic.el @ 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 c443d63bec69
children ce9ed5ad8fa2
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))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;