awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-03 12:27:26 -05:00
Code Issues 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
1 changed files with 3 additions and 3 deletions
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 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." means to remove KEY from ALIST if the new value is `eql' to DEFAULT."
(ignore remove) ;;Silence byte-compiler. (ignore remove) ;;Silence byte-compiler.
(let ((x (if (not testfn) (let ((x (cond ((null testfn) (assq key alist))
(assq key alist) ((eq testfn #'equal) (assoc key alist))
(assoc key alist testfn)))) ((cl-find key alist :key #'car :test testfn)))))
(if x (cdr x) default))) (if x (cdr x) default)))
(advice-add #'alist-get :override #'doom*alist-get)))) (advice-add #'alist-get :override #'doom*alist-get))))