awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-09-22 16:21: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

10
modules/tools/pdf/config.el
View File

@@ -33,12 +33,10 @@
:around '(pdf-annot-show-annotation
pdf-isearch-hl-matches
pdf-view-display-region)
(cl-letf* ((old-create-image (symbol-function #'create-image))
((symbol-function #'create-image)
(lambda (file-or-data &optional type data-p &rest props)
(apply old-create-image file-or-data type data-p
:width (car (pdf-view-image-size))
props))))
(letf! (defun create-image (file-or-data &optional type data-p &rest props)
(apply create-image file-or-data type data-p
:width (car (pdf-view-image-size))
props))
(apply orig-fn args))))
;; Handle PDF-tools related popups better