fix: mark people abbrevs correctly

1 files 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."