[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
feature/completions-highlight-modifications 3d11040 06/14: Fix recursive
From: |
Jimmy Aguilar Mena |
Subject: |
feature/completions-highlight-modifications 3d11040 06/14: Fix recursive set-keymap-parent in completions-highlight. |
Date: |
Sun, 15 Nov 2020 17:35:46 -0500 (EST) |
branch: feature/completions-highlight-modifications
commit 3d11040fae3629b3e50dd88c76a5f39a457ba96f
Author: Jimmy Aguilar Mena <spacibba@aol.com>
Commit: Jimmy Aguilar Mena <spacibba@aol.com>
Fix recursive set-keymap-parent in completions-highlight.
*
lisp/completions-highlight.el (completions-highlight-minibuffer-bindings)
:
(completions-highlight-completions-bindings) : Condition
set-keymap-parent to avoid error.
---
lisp/completions-highlight.el | 17 ++++++++++-------
1 file changed, 10 insertions(+), 7 deletions(-)
diff --git a/lisp/completions-highlight.el b/lisp/completions-highlight.el
index a16e4f9..00b7382 100644
--- a/lisp/completions-highlight.el
+++ b/lisp/completions-highlight.el
@@ -211,9 +211,12 @@ suffix."
When SET is nil the bindings are removed."
(if set
(let ((local-map (current-local-map)))
- (setq completions-highlight-minibuffer-map-save local-map)
- (set-keymap-parent completions-highlight-minibuffer-map local-map)
- (use-local-map completions-highlight-minibuffer-map))
+ (unless (eq local-map completions-highlight-minibuffer-map)
+ (setq completions-highlight-minibuffer-map-save local-map)
+ (unless (eq local-map
+ (keymap-parent completions-highlight-minibuffer-map))
+ (set-keymap-parent completions-highlight-minibuffer-map local-map))
+ (use-local-map completions-highlight-minibuffer-map)))
(use-local-map completions-highlight-minibuffer-map-save)))
@@ -222,11 +225,11 @@ When SET is nil the bindings are removed."
"Add extra keybindings to `completion-list-mode-map'.
When SET is nil the bindings are removed."
(if set
- (unless (keymap-parent completions-highlight-completions-map)
(let ((local-map (current-local-map)))
- (setq completions-highlight-completions-map-save local-map)
- (set-keymap-parent completions-highlight-completions-map local-map)
- (use-local-map completions-highlight-completions-map)))
+ (unless (eq local-map completions-highlight-completions-map)
+ (setq completions-highlight-completions-map-save local-map)
+ (set-keymap-parent completions-highlight-completions-map local-map)
+ (use-local-map completions-highlight-completions-map)))
;; Set is called already inside *Completions* but unset not
(when-let ((parent (keymap-parent completions-highlight-completions-map))
- branch feature/completions-highlight-modifications created (now 6824c83), Jimmy Aguilar Mena, 2020/11/15
- feature/completions-highlight-modifications cf9e5c6 10/14: Simplify overlay handling, Jimmy Aguilar Mena, 2020/11/15
- feature/completions-highlight-modifications d94f38d 08/14: Simplify numeric argument, Jimmy Aguilar Mena, 2020/11/15
- feature/completions-highlight-modifications 581fad2 05/14: Improve keymap handling., Jimmy Aguilar Mena, 2020/11/15
- feature/completions-highlight-modifications de350a2 01/14: Insert some modifications to implement completions highlighting., Jimmy Aguilar Mena, 2020/11/15
- feature/completions-highlight-modifications 4dc578c 13/14: Add # to function bindings, Jimmy Aguilar Mena, 2020/11/15
- feature/completions-highlight-modifications 88c2d6f 09/14: Simplify setting keymaps., Jimmy Aguilar Mena, 2020/11/15
- feature/completions-highlight-modifications d4a6a66 12/14: Add parent maps, Jimmy Aguilar Mena, 2020/11/15
- feature/completions-highlight-modifications 558b585 04/14: Fix initial comment in completions-highlight file., Jimmy Aguilar Mena, 2020/11/15
- feature/completions-highlight-modifications 3d11040 06/14: Fix recursive set-keymap-parent in completions-highlight.,
Jimmy Aguilar Mena <=
- feature/completions-highlight-modifications fd6ef31 02/14: Document the changes in the API for Completions., Jimmy Aguilar Mena, 2020/11/15
- feature/completions-highlight-modifications afadeac 03/14: Add completions-highlight-mode initial implementation., Jimmy Aguilar Mena, 2020/11/15
- feature/completions-highlight-modifications 0057e0d 11/14: Add autoload decorator., Jimmy Aguilar Mena, 2020/11/15
- feature/completions-highlight-modifications 6824c83 14/14: Improve completions-highlight description in file header., Jimmy Aguilar Mena, 2020/11/15
- feature/completions-highlight-modifications 9b58753 07/14: Fix corner case when going out of bounds, Jimmy Aguilar Mena, 2020/11/15