[解決済み] Emacsでカーソル下のフォントフェイスを取得する

質問

私は独自のカスタムカラーテーマを開発しています。カーソル下のテキストに影響を与えるフォントフェイスのリストを得ることができれば、本当に便利なのですが。

Textmate の show current scope コマンドのようなものです。

M-x customize-faceを実行して、利用可能なオプションを調べ、どれが今いる単語に影響するかを推測する手間を省くことができます。

何かアイデアはありますか？

どのように解決するのですか？

以下のように what-face をこのコードで定義することができます。

(defun what-face (pos)
  (interactive "d")
  (let ((face (or (get-char-property (pos) 'read-face-name)
                  (get-char-property (pos) 'face))))
    (if face (message "Face: %s" face) (message "No face at %d" pos))))

その後に

M-x what-face

は、現在の地点で見つかった面を表示します。

(この機能は thedz を指摘してくれた what-face は組み込まれていませんでした)。