From e4c9cb20a4419d19f8bbeca35a66fc8388cf430a Mon Sep 17 00:00:00 2001 From: Szymon Szukalski Date: Wed, 8 Apr 2026 10:53:59 +1000 Subject: fix: mark people abbrevs correctly --- config.org | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/config.org b/config.org index c4eaced..1940874 100644 --- a/config.org +++ b/config.org @@ -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." -- cgit v1.2.3