Source of Nothingness - xyzzy lisp : 候補の絞込みをするpopup-listxyzzy.s53.xrea.com/wiki/index.php?%BC%C1%CC%E4%C8%A2%2F173 上のページにいくつかありますが元のpopup-listと引数が異なっていて置き換えにくいので書き直し。正規表現を使っていなかった佐野さんのがベース。 (defun popup-list-loop (list callback &optional point with-insert) (let ((str "") (matched list) matched1 selected input) (loop (if with-insert (insert str)) (popup-list matched (lambda (x) (setq selected x)) point) ; #\ESC (refresh-screen) (while (not (or selected
