mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

org-tempo: Small refactoring 

* lisp/org-tempo.el (org-tempo-add-templates): Small refactoring.
This commit is contained in:
Nicolas Goaziou 2018-02-04 08:56:15 +01:00
parent a2471b1bb6
commit 878f2ae68b
1 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/org-tempo.el
View File

@ -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)))