如何在elisp中找到所有可用的缩写？

在elisp中，可以使用abbrev-table-name-list函数来找到所有可用的缩写。

具体步骤如下：

使用(setq abbrev-file-name "~/.emacs.d/abbrev_defs")设置缩写文件的路径，这里假设路径为"~/.emacs.d/abbrev_defs"。
使用(quietly-read-abbrev-file)函数读取缩写文件。
使用(setq abbrev-mode t)启用缩写模式。
使用(abbrev-table-name-list)函数获取所有可用的缩写表的名称。
遍历缩写表的名称列表，使用(abbrev-table-abbrevs)函数获取每个缩写表中的所有缩写。

以下是一个示例代码：

(setq abbrev-file-name "~/.emacs.d/abbrev_defs")
(quietly-read-abbrev-file)
(setq abbrev-mode t)

(defun find-all-abbrevs ()
  (interactive)
  (let ((abbrev-table-names (abbrev-table-name-list)))
    (dolist (table-name abbrev-table-names)
      (message "Abbreviations in table: %s" table-name)
      (let ((abbrev-table (symbol-value table-name)))
        (dolist (abbrev (abbrev-table-abbrevs abbrev-table))
          (message "Abbreviation: %s" (car abbrev)))))))

你可以将以上代码添加到你的.emacs文件中，然后在Emacs中执行M-x find-all-abbrevs命令，即可找到所有可用的缩写，并在消息区显示出来。

请注意，以上代码只是一个示例，你可以根据自己的需求进行修改和扩展。