diff options
| -rw-r--r-- | config.org | 18 |
1 files changed, 9 insertions, 9 deletions
@@ -695,15 +695,15 @@ short and phrase-like so summaries and completion annotations stay readable. (setq-local local-abbrev-table (copy-abbrev-table local-abbrev-table)) (ss/people--clear-installed-abbrevs) (dolist (entry (ss/people-entries)) - (let ((name (ss/people--entry-name entry)) - (abbrev (ss/people--entry-abbrev entry))) - (abbrev-put - (define-abbrev local-abbrev-table - (if (or (null abbrev) (string-empty-p abbrev)) - (ss/people-default-abbrev name) - abbrev) - name) - :ss/people t))))) + (let* ((name (ss/people--entry-name entry)) + (abbrev (ss/people--entry-abbrev entry)) + (abbrev-name + (if (or (null abbrev) (string-empty-p abbrev)) + (ss/people-default-abbrev name) + abbrev))) + (define-abbrev local-abbrev-table abbrev-name name) + (when-let ((abbrev-symbol (abbrev-symbol abbrev-name local-abbrev-table))) + (abbrev-put abbrev-symbol :ss/people t)))))) (defun ss/people-refresh-buffers () "Refresh people abbrevs in every prose buffer." |