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

Fix +eval/region failing on first invocation

Browse Source
This commit is contained in:
Henrik Lissner
2017-05-08 10:46:11 +02:00
parent 6259c64866
commit 2405e1aa4c
2 changed files with 16 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
modules/feature/eval/config.el
View File

@@ -71,18 +71,19 @@ invokes the repl. Takes the same arguements as `rtog/add-repl'."
(quickrun-add-command MODE COMMAND :mode MODE).
4. If MODE is not a string and COMMANd is a symbol, add it to
`+eval-runners-alist', which is used by `+eval/region'."
`(after! quickrun
,(cond ((symbolp command)
`(push ',(cons mode command) +eval-runners-alist))
((stringp command)
`(push ',(cons mode command)
,(if (stringp mode)
'quickrun-file-alist
'quickrun--major-mode-alist)))
((listp command)
`(quickrun-add-command
,(symbol-name mode)
',command :mode ',mode)))))
(cond ((symbolp command)
`(push ',(cons mode command) +eval-runners-alist))
((stringp command)
`(after! quickrun
(push ',(cons mode command)
,(if (stringp mode)
'quickrun-file-alist
'quickrun--major-mode-alist))))
((listp command)
`(after! quickrun
(quickrun-add-command
,(symbol-name mode)
',command :mode ',mode)))))
(def-package! quickrun
:commands (quickrun