elispで利用できるすべての略語はどうやって見つかりますか？

Question

ちょっとした理由から、私はEmacsの略語を読むための補完読み込み関数を書いてみたいと思います。

(defun ivy-abbrev (abbrev-name) 
    (interactive 
    (list 
    (ivy-completing-read "Insert abbrev: " (...get abbrev names here...)))) 
    (progn 
    (abbrev-insert (abbrev-symbol abbrev-name ..appropriate abbrev-table...)))) 

残念ながら何もやる可能なを見て... ...略称名を取得作るドキュメントにありません：

abbrev--before-pointのソースで探し

https://www.gnu.org/software/emacs/manual/html_node/elisp/Abbrevs.html#Abbrevs

ありますかのように見えます各呼び出しで再帰的検索abbrev--active-tablesを実行します。

これを簡単にするために、この略語APIにヘルパーメソッドがありますか？あなたは次のようなものを使用することができ

Answer 1

、

(cl-loop for table in (abbrev--active-tables) 
    unless (abbrev-table-empty-p table) 
    append (append (delete 0 table)())) 

注意ベクトルにnilを追加すると、リストを作成するためのトリックであること。