[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/pyim 148da8e 2/2: * pyim-common.el (pyim-add-unread-com
From: |
ELPA Syncer |
Subject: |
[elpa] externals/pyim 148da8e 2/2: * pyim-common.el (pyim-add-unread-command-events): Copy code from quail-add-unread-command-events. |
Date: |
Mon, 31 May 2021 23:57:12 -0400 (EDT) |
branch: externals/pyim
commit 148da8e4e44abe797977c657ecf9d8ee7e29ae97
Author: Feng Shu <tumashu@163.com>
Commit: Feng Shu <tumashu@163.com>
* pyim-common.el (pyim-add-unread-command-events): Copy code from
quail-add-unread-command-events.
---
pyim-common.el | 47 +++++++++++++++++++++++++----------------------
1 file changed, 25 insertions(+), 22 deletions(-)
diff --git a/pyim-common.el b/pyim-common.el
index 0308b3c..c431e8b 100644
--- a/pyim-common.el
+++ b/pyim-common.el
@@ -163,28 +163,31 @@ for example: https://github.com/ch11ng/exwm/pull/831"
(funcall in (1- i) (1- j)))))))
(funcall in l1 l2))))
-(if (fboundp 'quail-add-unread-command-events)
- (defalias 'pyim-add-unread-command-events 'quail-add-unread-command-events)
- (defun pyim-add-unread-command-events (key &optional reset)
- "Add KEY to `unread-command-events', ensuring that it is not recorded.
-If KEY is a character, it is prepended to `unread-command-events' as
-a cons cell of the form (no-record . KEY).
-If KEY is a vector of events, the events in the vector are prepended
-to `unread-command-events', after converting each event to a cons cell
-of the form (no-record . EVENT).
-Quail puts keys back in `unread-command-events' to be handled again,
-and when it does this these keys have already been recorded in the
-recent keys and in the keyboard macro being defined, which means that
-recording them again creates duplicates.
-When RESET is non-nil, the events in `unread-command-events' are first
-discarded."
- (if reset (setq unread-command-events nil))
- (setq unread-command-events
- (if (characterp key)
- (cons (cons 'no-record key) unread-command-events)
- (append (mapcan (lambda (e) (list (cons 'no-record e)))
- (append key nil))
- unread-command-events)))))
+(defun pyim-add-unread-command-events (key &optional reset)
+ "Add KEY to `unread-command-events', ensuring that it is not recorded.
+
+If KEY is a character, it is prepended to `unread-command-events'
+as a cons cell of the form (no-record . KEY).
+
+If KEY is a vector of events, the events in the vector are
+prepended to `unread-command-events', after converting each event
+to a cons cell of the form (no-record . EVENT).
+
+Pyim puts keys back in `unread-command-events' to be handled
+again, and when it does this these keys have already been
+recorded in the recent keys and in the keyboard macro being
+defined, which means that recording them again creates
+duplicates. When RESET is non-nil, the events in
+`unread-command-events' are first discarded.
+
+This function is a fork of `quail-add-unread-command-events'."
+ (if reset (setq unread-command-events nil))
+ (setq unread-command-events
+ (if (characterp key)
+ (cons (cons 'no-record key) unread-command-events)
+ (append (mapcan (lambda (e) (list (cons 'no-record e)))
+ (append key nil))
+ unread-command-events))))
;; * Footer
(provide 'pyim-common)