emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages 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