caddr => cl-caddr

This commit is contained in:
Henrik Lissner 2017-02-13 04:41:27 -05:00
parent 6f67dff8f2
commit b4e9f1312d
4 changed files with 6 additions and 5 deletions

View file

@ -102,8 +102,8 @@
(require 'yasnippet)
(unless yas-minor-mode
(yas-minor-mode-on))
(let ((snippet (let ((template (cdar (mapcan #'(lambda (table) (yas--fetch table key))
(yas--get-snippet-tables mode)))))
(let ((snippet (let ((template (cdar (cl-mapcan #'(lambda (table) (yas--fetch table key))
(yas--get-snippet-tables mode)))))
(if template (yas--template-content template) nil))))
(when (and yas-minor-mode snippet)
(yas-expand-snippet snippet)