gitback/doomemacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix alist-get polyfill's use of assoc in Emacs 25

Browse Source 
assoc has only two arguments in Emacs 25, but the polyfill was using its
third argument.

This was discussed in #875
This commit is contained in:
Henrik Lissner 2018-09-10 12:48:19 -04:00
parent 75036cefb0
commit 5b807a1c72
No known key found for this signature in database
GPG Key ID: 5F6C0EA160557395
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
core/core-lib.el
View File

@ -22,9 +22,9 @@ This is a generalized variable suitable for use with `setf'.
When using it to set a value, optional argument REMOVE non-nil
means to remove KEY from ALIST if the new value is `eql' to DEFAULT."
(ignore remove) ;;Silence byte-compiler.
(let ((x (if (not testfn)
(assq key alist)
(assoc key alist testfn))))
(let ((x (cond ((null testfn) (assq key alist))
((eq testfn #'equal) (assoc key alist))
((cl-find key alist :key #'car :test testfn)))))
(if x (cdr x) default)))
(advice-add #'alist-get :override #'doom*alist-get))))