awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-09-26 16:41:04 -05:00
Code Issues Packages Projects Releases Wiki Activity

Introduce letf! convenience macro

Browse Source 
A more succinct cl-letf, which allows for local functions and macros.
This commit is contained in:
Henrik Lissner
2020-04-29 21:08:17 -04:00
parent c3a84f0fbf
commit d12752324a
12 changed files with 113 additions and 115 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
core/core-ui.el
View File

@@ -619,10 +619,8 @@ This offers a moderate boost in startup (or theme switch) time, so long as
:around #'load-theme
(if (or (null after-init-time)
doom--prefer-theme-elc)
(cl-letf* ((old-locate-file (symbol-function 'locate-file))
((symbol-function 'locate-file)
(lambda (filename path &optional _suffixes predicate)
(funcall old-locate-file filename path '("c" "") predicate))))
(letf! (defun locate-file (filename path &optional _suffixes predicate)
(funcall locate-file filename path '("c" "") predicate))
(apply orig-fn args))
(apply orig-fn args))))