andros/lirve.el
1
0
Fork 0
mirror of https://github.com/tanrax/lirve.el.git synced 2024-09-19 20:47:20 +02:00
Code Issues Actions Packages Projects Releases Wiki Activity

Test compile

Browse Source
This commit is contained in:
Andros Fenollosa 2024-02-20 12:10:15 +01:00
parent aae90a6ad1
commit cf70d4b683
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lirve.el
View File

@ -228,7 +228,7 @@ Argument INFINITIVE verb to remove."
:size 20
:notify (lambda (&rest ignore) (lirve--kill-app))
lirve--text-button-quit))
(eval-when-compile (widget-backward 2)))
(widget-backward 2))
(progn
(when (not (eq lirve--widget-item-space-before-success nil)) (widget-delete lirve--widget-item-space-before-success))
(when (not (eq lirve--widget-message-success nil)) (widget-delete lirve--widget-message-success))
@ -293,7 +293,7 @@ Argument INFINITIVE verb to remove."
"Replay the challenge."
(interactive)
(lirve--start)
(eval-when-compile (widget-backward 1)))
(widget-backward 1))
(defun lirve--update ()
"Update state and show temps layouts."
@ -376,7 +376,7 @@ Argument INFINITIVE verb to remove."
(lirve--load-verbs-unresolved)
(lirve--main-layout)
(lirve--start)
(eval-when-compile (widget-backward 4)))
(widget-backward 4))
(provide 'lirve)