diff options
Diffstat (limited to 'init.el')
| -rw-r--r-- | init.el | 25 |
1 files changed, 13 insertions, 12 deletions
@@ -797,18 +797,19 @@ "Install CRM abbrevs into the current prose buffer." (when (and (not (ss-crm-source-buffer-p)) (ss-crm-file-available-p)) - (setq-local local-abbrev-table (copy-abbrev-table local-abbrev-table)) - (ss-crm-clear-installed-abbrevs) - (dolist (entry (ss-crm-entries)) - (let* ((name (ss-crm-entry-get entry :name)) - (abbrev (ss-crm-entry-get entry :abbrev)) - (abbrev-name - (if (and abbrev (not (string-empty-p abbrev))) - abbrev - (ss-crm-default-abbrev name)))) - (define-abbrev local-abbrev-table abbrev-name name) - (when-let ((symbol (abbrev-symbol abbrev-name local-abbrev-table))) - (abbrev-put symbol :ss/crm t)))))) + (let ((abbrevs-changed abbrevs-changed)) + (setq-local local-abbrev-table (copy-abbrev-table local-abbrev-table)) + (ss-crm-clear-installed-abbrevs) + (dolist (entry (ss-crm-entries)) + (let* ((name (ss-crm-entry-get entry :name)) + (abbrev (ss-crm-entry-get entry :abbrev)) + (abbrev-name + (if (and abbrev (not (string-empty-p abbrev))) + abbrev + (ss-crm-default-abbrev name)))) + (define-abbrev local-abbrev-table abbrev-name name) + (when-let ((symbol (abbrev-symbol abbrev-name local-abbrev-table))) + (abbrev-put symbol :ss/crm t))))))) (defun ss-crm-refresh-buffers () "Refresh CRM abbrevs in text and Org buffers." |