From 1e7085c87b0ac5726333f6bd88fa3e0fa4417410 Mon Sep 17 00:00:00 2001 From: Allen Li Date: Sun, 31 Dec 2017 20:14:09 -0800 Subject: [PATCH] Preserve special abbrev properties when writing Fixes bug#29924 * lisp/abbrev.el (abbrev--write): Write abbrev properties when set. --- lisp/abbrev.el | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/lisp/abbrev.el b/lisp/abbrev.el index 734cefbb7b..f2eaab039e 100644 --- a/lisp/abbrev.el +++ b/lisp/abbrev.el @@ -909,7 +909,14 @@ abbrev--write (insert " ") (prin1 (symbol-function sym)) (insert " ") + (insert " :count ") (prin1 (abbrev-get sym :count)) + (when (abbrev-get sym :case-fixed) + (insert " :case-fixed ") + (prin1 (abbrev-get sym :case-fixed))) + (when (abbrev-get sym :enable-function) + (insert " :enable-function ") + (prin1 (abbrev-get sym :enable-function))) (insert ")\n"))) (defun abbrev--describe (sym) -- 2.16.0