[elpa] externals/hyperbole c2e2c79e28 1/2: Use lexical binding in hui-mini (#141)

[ELPA Syncer]

branch: externals/hyperbole
commit c2e2c79e28d42772111500d528e98d7847b1946a
Author: Mats Lidell <mats.lidell@lidells.se>
Commit: GitHub <noreply@github.com>

    Use lexical binding in hui-mini (#141)
---
 ChangeLog   |  4 ++++
 hui-mini.el | 28 +++++++++++++---------------
 2 files changed, 17 insertions(+), 15 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 36cadfed0b..2d38ff54b4 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2021-12-31  Mats Lidell  <matsl@gnu.org>
+
+* hui-mini.el: Use lexical binding.
+
 2021-12-31  Bob Weiner  <rsw@gnu.org>
 
 * hui.el (hui:gbut-modify): Fix 'src-dir' to be dir of 'gbut:file' not 
default-directory.
diff --git a/hui-mini.el b/hui-mini.el
index 301374ab72..1295d9bb5d 100644
--- a/hui-mini.el
+++ b/hui-mini.el
@@ -1,4 +1,4 @@
-;;; hui-mini.el --- Single line command menus for GNU Hyperbole
+;;; hui-mini.el --- Single line command menus for GNU Hyperbole   -*- 
lexical-binding: t; -*-
 ;;
 ;; Author:       Bob Weiner
 ;;
@@ -124,15 +124,14 @@ non-nil means show documentation for any item that is 
selected by the
 user.  HELP-STRING-FLAG non-nil means show only the first line of the
 documentation, not the full text."
   (setq hui:menu-keys "")
-  (let ((set-menu '(or (and menu (symbolp menu)
-                           (setq menu-alist
-                                 (cdr (assq menu (or menu-list hui:menus)))))
-                      (hypb:error "(hui:menu-act): Invalid menu symbol arg: 
`%s'"
-                                  menu)))
-       (show-menu t)
+  (let ((show-menu t)
        (rtn)
        menu-alist act-form)
-    (while (and show-menu (eval set-menu))
+    (while (and show-menu (or (and menu (symbolp menu)
+                                  (setq menu-alist
+                                        (cdr (assq menu (or menu-list 
hui:menus)))))
+                             (hypb:error "(hui:menu-act): Invalid menu symbol 
arg: `%s'"
+                                         menu)))
       (cond ((and (consp (setq act-form (hui:menu-select menu-alist doc-flag 
help-string-flag)))
                  (cdr act-form)
                  (symbolp (cdr act-form)))
@@ -174,14 +173,13 @@ Optional second argument MENU-LIST is a Hyperbole menu 
list structure from
 which to extract MENU.  It defaults to `hui:menus'.  See its definition for
 the menu list structure."
   (setq hui:menu-keys "")
-  (let ((set-menu '(or (and menu (symbolp menu)
-                           (setq menu-alist
-                                 (cdr (assq menu (or menu-list hui:menus)))))
-                      (hypb:error "(hui:menu-get-keys): Invalid menu symbol 
arg: `%s'"
-                             menu)))
-       (show-menu t)
+  (let ((show-menu t)
        menu-alist act-form)
-    (while (and show-menu (eval set-menu))
+    (while (and show-menu (or (and menu (symbolp menu)
+                                  (setq menu-alist
+                                        (cdr (assq menu (or menu-list 
hui:menus)))))
+                             (hypb:error "(hui:menu-get-keys): Invalid menu 
symbol arg: `%s'"
+                                         menu)))
       (cond ((and (consp (setq act-form (hui:menu-select menu-alist)))
                  (cdr act-form)
                  (symbolp (cdr act-form)))