maciej/counsel-projectile
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix(elisp): use cl-caddr instead of caddr

Browse source 
Current emacs (25.3 on fedora at least) does not define the alias
anymore, replace it with a symbol that is still available on both old
and new versions!
This commit is contained in:
Kelsey Zapata 2018-02-18 20:49:23 +13:00
parent edba681cd7
commit bf98fbd198
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
counsel-projectile.el
View file

@ -116,7 +116,7 @@ actions (a key, a function, and a name for each action)."
((stringp action-item) ((stringp action-item)
(lambda (action) (lambda (action)
(member action-item (member action-item
(list (car action) (caddr action)))))) (list (car action) (cl-caddr action))))))
(cdr action-list))) (cdr action-list)))
(when index (when index
(setq index (1+ index)))) (setq index (1+ index))))
@ -225,7 +225,7 @@ If anything goes wrong, throw an error and do not modify ACTION-VAR."
(setq action-list (cl-loop for a in action-list (setq action-list (cl-loop for a in action-list
for count from 0 for count from 0
if (= count index) if (= count index)
collect (list (car a) fun (caddr a)) collect (list (car a) fun (cl-caddr a))
else else
collect a)))) collect a))))
(`(setname ,action-item ,name) (`(setname ,action-item ,name)