[elpa] externals/hyperbole cc3198ccd0 1/4: Add cons of t to each event to ensure is added to this-command-keys

[ELPA Syncer]

branch: externals/hyperbole
commit cc3198ccd04a65453bfd40de3cecec9fea1823c3
Author: Bob Weiner <rsw@gnu.org>
Commit: Bob Weiner <rsw@gnu.org>

    Add cons of t to each event to ensure is added to this-command-keys
---
 ChangeLog    | 7 +++++++
 hib-kbd.el   | 9 ++++++---
 hycontrol.el | 4 ++--
 3 files changed, 15 insertions(+), 5 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 936116dcb0..ce6ef6f6de 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2022-10-27  Bob Weiner  <rsw@gnu.org>
+
+* hui-mini.el (hui:menu-item-key): Add and call from 'hui:menu-item-keys'.
+
+* hib-kbd.el (kbd-key:key-series-to-events): Add cons of t to each
+    event to ensure each event is added to this-command-keys.
+
 2022-10-25  Bob Weiner  <rsw@gnu.org>
 
 * hyrolo.el (hyrolo-backward-same-level):      Add and bind to {b}.
diff --git a/hib-kbd.el b/hib-kbd.el
index b62226be0a..d11a5f1354 100644
--- a/hib-kbd.el
+++ b/hib-kbd.el
@@ -3,7 +3,7 @@
 ;; Author:       Bob Weiner
 ;;
 ;; Orig-Date:    22-Nov-91 at 01:37:57
-;; Last-Mod:      7-Oct-22 at 00:06:09 by Mats Lidell
+;; Last-Mod:     27-Oct-22 at 18:46:16 by Bob Weiner
 ;;
 ;; Copyright (C) 1991-2022  Free Software Foundation, Inc.
 ;; See the "HY-COPY" file for license information.
@@ -204,8 +204,11 @@ Restore M-x binding to ORIG-M-X-BINDING."
 The events are inserted into Emacs unread input stream.  Emacs
 then executes them when its command-loop regains control."
   (setq unread-command-events (nconc unread-command-events
-                                    (listify-key-sequence
-                                     (kbd-key:kbd key-series)))))
+                                    ;; Cons t here to ensure events
+                                    ;; are added to command-keys.
+                                    (mapcar (lambda (e) (cons t e))
+                                            (listify-key-sequence
+                                             (kbd-key:kbd key-series))))))
 
 (defun kbd-key:doc (key-series &optional full)
   "Show first line of doc for binding of keyboard KEY-SERIES in minibuffer.
diff --git a/hycontrol.el b/hycontrol.el
index 04cf8a9548..27499157fe 100644
--- a/hycontrol.el
+++ b/hycontrol.el
@@ -3,7 +3,7 @@
 ;; Author:       Bob Weiner
 ;;
 ;; Orig-Date:     1-Jun-16 at 15:35:36
-;; Last-Mod:      7-Oct-22 at 23:45:01 by Mats Lidell
+;; Last-Mod:     30-Oct-22 at 09:16:51 by Bob Weiner
 ;;
 ;; Copyright (C) 2016-2022  Free Software Foundation, Inc.
 ;; See the "HY-COPY" file for license information.
@@ -483,7 +483,7 @@ associated key: quit {q}, abort {C-g}, or toggle {t}.")
 
 
 (defvar hycontrol--quit-function nil
-  "Stores function to remove the transient-map later.
+  "Store function to remove the transient-map later.
 The function is auto-generated by a call to `set-transient-map'")