branch: externals/cus-abbrev
commit e0553e35800f23840a12e02f572c63a52d4262cd
Author: Mauro Aranda <maurooara...@gmail.com>
Commit: Mauro Aranda <maurooara...@gmail.com>
; Add some comments to customize-abbrevs
---
cus-abbrev.el | 4 ++++
1 file changed, 4 insertions(+)
diff --git a/cus-abbrev.el b/cus-abbrev.el
index 57a4cede77..b69c841abc 100644
--- a/cus-abbrev.el
+++ b/cus-abbrev.el
@@ -229,9 +229,12 @@ the abbrev table to customize. If nil, it defaults to
`global-abbrev-table'."
(table (symbol-value table-name))
abbrevs)
(mapatoms (lambda (abbrev)
+ ;; Guard against ##.
(unless (string= (symbol-name abbrev) "")
(let ((exp (abbrev-expansion abbrev table)))
(when exp
+ ;; We treat each abbrev as a list:
+ ;; (ABBREV EXPANSION HOOK ENABLE-FUNCTION CASE-FIXED)
(push (list (symbol-name abbrev) exp
(symbol-function abbrev)
(abbrev-get abbrev :enable-function)
@@ -248,6 +251,7 @@ the abbrev table to customize. If nil, it defaults to
`global-abbrev-table'."
(widget-insert " in the Emacs manual for more information.\n\n")
(custom-abbrev--insert-buttons)
(setq custom-abbrev-widgets
+ ;; It's always a list, even when customizing a single abbrev-table.
(list
(widget-create 'custom-abbrev :value abbrevs
:custom-abbrev-table table-name
