From f9941c218d267417bd8e106549960bd94c48765a Mon Sep 17 00:00:00 2001 From: Andros Fenollosa Date: Mon, 8 Jan 2024 22:56:07 +0100 Subject: [PATCH] Add label --- learning-irregular-verbs-in-English.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/learning-irregular-verbs-in-English.el b/learning-irregular-verbs-in-English.el index 5befffd..f45f18b 100644 --- a/learning-irregular-verbs-in-English.el +++ b/learning-irregular-verbs-in-English.el @@ -670,7 +670,7 @@ (setq lire--verb-to-learn-infinitive (alist-get 'infinitive verbs-random)) (setq lire--verb-to-learn-simple-past (alist-get 'simple-past verbs-random)) (setq lire--verb-to-learn-past-participle (alist-get 'past-participle verbs-random)) - (when (not (null (boundp learning-irregular-verbs-in-English--show-translation))) (setq lire--translation (alist-get learning-irregular-verbs-in-English--show-translation (alist-get 'translations verbs-random)))))) + (when (not (null (boundp 'learning-irregular-verbs-in-English--show-translation))) (setq lire--translation (alist-get learning-irregular-verbs-in-English--show-translation (alist-get 'translations verbs-random)))))) (defun lire--format-value-infinitive () "Format the value of the infinitive." @@ -699,7 +699,7 @@ (defun lire--show-translation () "Show translation if learning-irregular-verbs-in-English--show-translation is t" (when (not (null lire--translation)) - (widget-value-set lire--widget-item-verb (concat (lire--format-value-infinitive) " " lire--translation)))) + (widget-value-set lire--widget-item-verb (concat (lire--format-value-infinitive) " 🇪🇸 " lire--translation)))) (defun lire--toggle-layout-finish () "Toggle the layout to success."