(provide (quote abbrevlist)) (defun list-one-abbrev-table (abbrev-table output-buffer) "\ Display alphabetical listing of ABBREV-TABLE in buffer BUFFER." (byte-code " q \" \" K \\ V)cƉ j @!c \\j @Jc \\ A*)" [output-buffer abbrev-list nil first-column standard-output abbrev-table 0 mapatoms (lambda (abbrev) (byte-code " B" [abbrev-list abbrev] 2)) sort string-lessp 40 screen-width " " symbol-name 8] 8))