Mercurial > emacs

comparison lisp/generic.el @ 34793:ddeab24202fc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
comparison
equal deleted inserted replaced
34792:294c98d5718b 34793:ddeab24202fc
171 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 171 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
172 172
173 (defsubst generic-read-type () 173 (defsubst generic-read-type ()
174 (completing-read 174 (completing-read
175 "Generic Type: " 175 "Generic Type: "
176 generic-mode-list 176 (mapcar (lambda (elt) (list (symbol-name (car elt))))
177 nil t)) 177 nil t))
178 178
179 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 179 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
180 ;; Functions 180 ;; Functions
181 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 181 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;