TSfree 発言

みなさまへ
　
　可能であればご教示いただきたいのは、メニューの分岐の部分についてです。
　emacs の read-char はASCIIコードの番号を受け取り、その数値を操作することができるようで、footnote のオリジナルであるRAMIFAさんのスクリプトでは、キー入力が大文字の英数字だった場合、小文字に変換して処理するようになっています（以下を参照のこと）。移植版でもなんとかこうしたすっきりした形にしたいと考えたのですが、結局、分からずじまいで、無理矢理に処理しました。アドバイスいただければ、幸甚です。

----RAMIFA版のメニュー分岐の関数-----------

(defun footnote-menu ()
  "Show menu about footnote"
  (interactive)
  (message "n)ew e)dit s)how d)el r)earrange c)heck q)uit")
  (let ((c (read-char)))
    (if (and (> c 64) (< c 91))
	(setq c (+ c 32)))
    (cond 
     ((= c ?n) (footnote-new))
     ((= c ?e) (footnote-edit))
     ((= c ?s) (footnote-show))
     ((= c ?d) (footnote-del))
;     ((= c ?j) (footnote-jump))
     ((= c ?r) (footnote-rearrange-mark-number))
     ((= c ?c) (footnote-check-footnote-number))
     ((= c ?q) (footnote-quit)))))
---------------------------------