branch: externals/ergoemacs-mode
commit bcaf49b631d3744a5ee11288aae689d319578e95
Author: Fidler <[email protected]>
Commit: Fidler <[email protected]>
Don't allow infinite recursion on mapkeymap.
Should fix Issues #442 and #440
---
ergoemacs-mapkeymap.el | 23 ++++++++++++++---------
1 file changed, 14 insertions(+), 9 deletions(-)
diff --git a/ergoemacs-mapkeymap.el b/ergoemacs-mapkeymap.el
index b7d9e9c..f7c52cc 100644
--- a/ergoemacs-mapkeymap.el
+++ b/ergoemacs-mapkeymap.el
@@ -84,6 +84,8 @@ If `ergoemacs-mode' cant determine the value, return nil."
(and (fboundp keymap) (setq tmp (symbol-function
keymap))
(ergoemacs-keymapp tmp) tmp))))))))
+(defvar ergoemacs-map-keymap--submap-stack nil)
+
(defun ergoemacs-map-keymap--map-submap (sub-keymap function &optional
original prefix flat-keymap nil-keys)
"Expose SUB-KEYMAP, then apply `ergoemacs-map-keymap'.
@@ -95,15 +97,18 @@ FLAT-KEYMAP and NIL-KEYS arguments. It is missing the
keymap
argument, since it is calculated from the exposed sub-keymap."
(let ((tmp (ergoemacs-map-keymap--expose-keymap sub-keymap)))
(when tmp
- (ergoemacs-map-keymap function
- (cond
- ((eq original :setcdr)
- (ergoemacs-setcdr (cdr tmp)
- (cdr (ergoemacs :original
tmp))))
- (original
- (ergoemacs :original tmp))
- (t tmp))
- original prefix flat-keymap nil-keys))))
+ (unless (memq tmp ergoemacs-map-keymap--submap-stack)
+ (push tmp ergoemacs-map-keymap--submap-stack)
+ (ergoemacs-map-keymap function
+ (cond
+ ((eq original :setcdr)
+ (ergoemacs-setcdr (cdr tmp)
+ (cdr (ergoemacs :original
tmp))))
+ (original
+ (ergoemacs :original tmp))
+ (t tmp))
+ original prefix flat-keymap nil-keys)
+ (pop ergoemacs-map-keymap--submap-stack)))))
(defun ergoemacs-map-keymap (function keymap &optional original prefix
flat-keymap nil-keys)
"Call FUNCTION for all keys in hash table KEYMAP.
