feature/icomplete-vertical 98d65aa 06/20: Add modified local map for icomplete.

[Jimmy Aguilar Mena]

branch: feature/icomplete-vertical
commit 98d65aa3af834ccd1aa0c7130fe6b8d28bee1d52
Author: Jimmy Aguilar Mena <spacibba@aol.com>
Commit: Jimmy Aguilar Mena <spacibba@aol.com>

    Add modified local map for icomplete.
---
 lisp/icomplete.el | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/lisp/icomplete.el b/lisp/icomplete.el
index c6e022c..85aafa0 100644
--- a/lisp/icomplete.el
+++ b/lisp/icomplete.el
@@ -165,7 +165,6 @@ initialized in icomplete--minibuffer-setup")
 This is used when a single prospect is identified and is
 initialized in icomplete--minibuffer-setup")
 
-(defvar icomplete--map nil)
 (defvar icomplete--last-format nil)
 (defvar icomplete--prospects nil)
 (defvar icomplete--rows nil)
@@ -540,9 +539,10 @@ Conditions are:
               icomplete--require-indicators 
icomplete-require-indicators-vertical
               icomplete--list-indicators icomplete-list-indicators-vertical
               icomplete--separator icomplete-separator-vertical
-              icomplete--map (make-composed-keymap icomplete--vertical-mode-map
-                                                   (current-local-map))
-              icomplete--prospects 'icomplete--vertical-prospects))
+              icomplete--prospects 'icomplete--vertical-prospects)
+
+  (use-local-map (make-composed-keymap icomplete--vertical-mode-map
+                                       (current-local-map))))
 
 ;; Horizontal functions
 
@@ -615,9 +615,9 @@ Conditions are:
               icomplete--require-indicators 
icomplete-require-indicators-horizontal
               icomplete--list-indicators icomplete-list-indicators-horizontal
               icomplete--separator icomplete-separator-horizontal
-              icomplete--map (make-composed-keymap 
icomplete--horizontal-mode-map
-                                                   (current-local-map))
-              icomplete--prospects 'icomplete--horizontal-prospects))
+              icomplete--prospects 'icomplete--horizontal-prospects)
+  (use-local-map (make-composed-keymap icomplete--horizontal-mode-map
+                                       (current-local-map))))
 
 
 ;;;_ > icomplete--minibuffer-setup ()