[nongnu] elpa/xah-fly-keys 894cd36c58: workaround a emacs 28.1 clear-transient-map bug see http://xahlee.info/emacs/emacs/clear-transient-map_bug.html

[ELPA Syncer]

branch: elpa/xah-fly-keys
commit 894cd36c580fe397a8b8f48cd0d69698712c8c4c
Author: Xah Lee <xah@xahlee.org>
Commit: Xah Lee <xah@xahlee.org>

    workaround a emacs 28.1 clear-transient-map bug see 
http://xahlee.info/emacs/emacs/clear-transient-map_bug.html
---
 xah-fly-keys.el | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/xah-fly-keys.el b/xah-fly-keys.el
index ed56fa1b62..7a9ebce918 100644
--- a/xah-fly-keys.el
+++ b/xah-fly-keys.el
@@ -4,7 +4,7 @@
 
 ;; Author: Xah Lee ( http://xahlee.info/ )
 ;; Maintainer: Xah Lee <xah@xahlee.org>
-;; Version: 17.13.20220613204648
+;; Version: 17.13.20220615002353
 ;; Created: 10 Sep 2013
 ;; Package-Requires: ((emacs "24.1"))
 ;; Keywords: convenience, emulations, vim, ergoemacs
@@ -4675,6 +4675,14 @@ 
URL`http://xahlee.info/emacs/misc/ergoemacs_vi_mode.html'"
       ;;
       )))
 
+(when (= emacs-major-version 28)
+  ;; 2022-06-14 fix a emacs 28.1 bug.
+  ;; clear-transient-map bug
+  ;; http://xahlee.info/emacs/emacs/clear-transient-map_bug.html
+  (progn
+    (defun xah-clear-pre-command-hook () (setq pre-command-hook nil))
+    (add-hook 'xah-fly-insert-mode-activate-hook 'xah-clear-pre-command-hook)))
+
 (provide 'xah-fly-keys)
 
 ;; Local Variables: