[elpa] externals/tempel 836de584d0: tempel-abbrev-mode: Specify no-self-insert for abbreviations (Fix #69)

[ELPA Syncer]

branch: externals/tempel
commit 836de584d064bfd2c581ce9ade87a9d4cee88acb
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    tempel-abbrev-mode: Specify no-self-insert for abbreviations (Fix #69)
---
 tempel.el | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/tempel.el b/tempel.el
index 3d77a1f9c9..1be90c4064 100644
--- a/tempel.el
+++ b/tempel.el
@@ -721,9 +721,11 @@ If called interactively, select a template with 
`completing-read'."
   (when tempel-abbrev-mode
     (let ((table (make-abbrev-table)))
       (dolist (template (tempel--templates))
-        (define-abbrev table (symbol-name (car template)) 'Template
-          (apply-partially #'tempel--abbrev-hook (symbol-name (car template)) 
(cdr template))
-          :system t))
+        (let* ((name (symbol-name (car template)))
+               (hook (make-symbol name)))
+          (fset hook (apply-partially #'tempel--abbrev-hook name (cdr 
template)))
+          (put hook 'no-self-insert t)
+          (define-abbrev table name 'Template hook :system t)))
       (setq-local abbrev-minor-mode-table-alist
                   (cons `(tempel-abbrev-mode . ,table)
                         abbrev-minor-mode-table-alist)))))