diff options
| author | Allen Li <darkfeline@felesatra.moe> | 2017-12-31 20:14:09 -0800 |
|---|---|---|
| committer | Noam Postavsky <npostavs@gmail.com> | 2018-02-17 08:47:20 -0500 |
| commit | 0f5cc9a085565c4f6d6d7e124a8b2965d8800ae5 (patch) | |
| tree | e1847d6e6ee652a23deb1704f013fc0ea71ac91a /lisp/abbrev.el | |
| parent | 5b464a9ceab6aa48138d0353669b426ff69e5365 (diff) | |
| download | emacs-0f5cc9a085565c4f6d6d7e124a8b2965d8800ae5.tar.gz | |
Preserve special abbrev properties when writing
Fixes bug#29924
* lisp/abbrev.el (abbrev--write): Write abbrev properties when set.
Diffstat (limited to 'lisp/abbrev.el')
| -rw-r--r-- | lisp/abbrev.el | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/lisp/abbrev.el b/lisp/abbrev.el index 734cefbb7be..197276cc9ce 100644 --- a/lisp/abbrev.el +++ b/lisp/abbrev.el @@ -908,8 +908,14 @@ Presumes that `standard-output' points to `current-buffer'." (prin1 (symbol-value sym)) (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) |