awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases Wiki Activity

Appease byte-compiler senpai

Browse Source
This commit is contained in:
Henrik Lissner
2017-07-14 18:19:08 +02:00
parent ac514d7a0c
commit 6a5bd216e5
12 changed files with 28 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
modules/app/email/autoload/evil.el
View File

@ -5,8 +5,8 @@
"Mark all messages within the current selection in mu4e's header view. Uses
`this-command-keys' to see what flag you mean."
(interactive)
(let* ((beg (or (and (region-active-p) evil-visual-beginning) (line-beginning-position)))
(end (or (and (region-active-p) evil-visual-end) (line-end-position)))
(let* ((beg (or beg (and (region-active-p) evil-visual-beginning) (line-beginning-position)))
(end (or end (and (region-active-p) evil-visual-end) (line-end-position)))
(key (this-command-keys))
(command
(car (cl-find-if (lambda (mark) (equal (car (plist-get (cdr mark) :char)) key))