From 71ff941f82036ecc2136937bec5902d388617634 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 | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/lisp/abbrev.el b/lisp/abbrev.el index dbda5b5d2e..5faffd4e17 100644 --- a/lisp/abbrev.el +++ b/lisp/abbrev.el @@ -910,6 +910,12 @@ abbrev--write (prin1 (symbol-function sym)) (insert " ") (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.15.1