[nongnu] elpa/smartparens a1bc0add37 3/5: refactor: initialize maps in defvar instead of additional calls to define-key

[ELPA Syncer]

branch: elpa/smartparens
commit a1bc0add37418c1fdded03098d4314f774aa65b3
Author: Matus Goljer <matus.goljer@gmail.com>
Commit: Matus Goljer <matus.goljer@gmail.com>

    refactor: initialize maps in defvar instead of additional calls to 
define-key
---
 smartparens.el | 20 ++++++++++++--------
 1 file changed, 12 insertions(+), 8 deletions(-)

diff --git a/smartparens.el b/smartparens.el
index cff8b1c0f5..af7fcce48d 100644
--- a/smartparens.el
+++ b/smartparens.el
@@ -2694,17 +2694,21 @@ works again as usual.")
 (defvar-local sp-wrap-tag-overlays nil
   "Cons pair of tag wrap overlays.")
 
-(defvar sp-pair-overlay-keymap (make-sparse-keymap)
+(defvar sp-pair-overlay-keymap
+  (let ((map (make-sparse-keymap)))
+    (define-key map (kbd "C-g")
+      '(menu-item nil sp-remove-active-pair-overlay :filter
+                  (lambda (cmd)
+                    (unless (bound-and-true-p company-my-keymap)
+                      cmd))))
+    map)
   "Keymap for the pair overlays.")
-(define-key sp-pair-overlay-keymap (kbd "C-g")
-  '(menu-item nil sp-remove-active-pair-overlay :filter
-              (lambda (cmd)
-                (unless (bound-and-true-p company-my-keymap)
-                  cmd))))
 
-(defvar sp-wrap-overlay-keymap (make-sparse-keymap)
+(defvar sp-wrap-overlay-keymap
+  (let ((map (make-sparse-keymap)))
+    (define-key map (kbd "C-g") 'sp-wrap-cancel)
+    map)
   "Keymap for the wrap overlays.")
-(define-key sp-wrap-overlay-keymap (kbd "C-g") 'sp-wrap-cancel)
 
 (defun sp--overlays-at (&optional pos)
   "Wrapper around `overlays-at' to get smartparens overlays.