From 878f2ae68bd2150de21a0f5cc0d21c82355e4d4b Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Sun, 4 Feb 2018 08:56:15 +0100 Subject: [PATCH] org-tempo: Small refactoring * lisp/org-tempo.el (org-tempo-add-templates): Small refactoring. --- lisp/org-tempo.el | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) diff --git a/lisp/org-tempo.el b/lisp/org-tempo.el index 37c849cae..42bf44dcf 100644 --- a/lisp/org-tempo.el +++ b/lisp/org-tempo.el @@ -94,12 +94,8 @@ Goes through `org-structure-template-alist' and "Duplicated keys in `org-structure-template-alist' and `org-tempo-keywords-alist'")) ;; Remove any keys already defined in case they have been updated. - (mapc (lambda (key) - (if (assoc-string key org-tempo-tags) - (setq org-tempo-tags - (delete (assoc-string key org-tempo-tags) - org-tempo-tags)))) - keys) + (setq org-tempo-tags + (cl-remove-if (lambda (tag) (member (car tag) keys)) org-tempo-tags)) (mapc #'org-tempo-add-block org-structure-template-alist) (mapc #'org-tempo-add-keyword org-tempo-keywords-alist)))