branch: externals/tempel
commit 04d4f6c0553598ba9f1ce6e930af5c338947f013
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
Use named key function
Proposed by @Luis-Henriquez-Perez
---
tempel.el | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/tempel.el b/tempel.el
index 7740897a35..cad63e0cfa 100644
--- a/tempel.el
+++ b/tempel.el
@@ -427,8 +427,9 @@ If called interactively, select a template with
`completing-read'."
;;;###autoload
(defun tempel-key (key name &optional map)
"Bind KEY to NAME in MAP."
- (define-key (or map global-map) (kbd key)
- (lambda () (interactive) (tempel-insert name))))
+ (let ((cmd (intern (format "tempel-insert-%s" name))))
+ (fset cmd (lambda () (interactive) (tempel-insert name)))
+ (define-key (or map global-map) (kbd key) cmd)))
(provide 'tempel)
;;; tempel.el ends here
