[xyzzy:06458] filer で１文字入力

[mii <minoura@xxxxxxxxxxxxxxxxx>]

ども、いつも楽しく使わせていただいております。

ひさびさにバージョンアップをして、filer でステータスバーにファイル名を表示させる
機能を便利だなぁと思い、ながめています。
リクエスト投稿みたときは、「いらないじゃん」とか思ってクセに……。

それで今回の件ですけど、
filer 上で、(read-char *keyboard*) が返ってこないかと思いまして。
-----
;; filer-goto-name は故意にはずしてあります。
(defun filer-isearch-ex ()
  (let ((searchname "") code)
    (loop
      (setq code (read-char *keyboard*))
      (when (char= code #\C-g)
	(return))
      (setq searchname (concat searchname (format nil "~A" code)))
      (message searchname))))
-----
最初、こんなコードを書いていると、固まったのでびっくりしたです。