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

(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)))))))