[nongnu] elpa/iedit 1d070b7d36 029/301: move init code for iedit-mode-map inside defvar

[ELPA Syncer]

branch: elpa/iedit
commit 1d070b7d36b0a6cd986b1e2b932a5ac1be297f64
Author: Le Wang <le.wang@agworld.com.au>
Commit: Le Wang <le.wang@agworld.com.au>

    move init code for iedit-mode-map inside defvar
---
 iedit.el | 27 +++++++++++++--------------
 1 file changed, 13 insertions(+), 14 deletions(-)

diff --git a/iedit.el b/iedit.el
index 6cf31a74bd..ac5a831c2e 100644
--- a/iedit.el
+++ b/iedit.el
@@ -242,22 +242,21 @@ This is like `describe-bindings', but displays only Iedit 
keys."
     (describe-function 'iedit-mode)))
 
 ;;; Define iedit mode map
-(defvar iedit-mode-map nil
+(defvar iedit-mode-map
+  (let ((map (make-sparse-key-map)))
+    (setq iedit-mode-map (make-sparse-keymap))
+    ;; Default key bindings
+    (define-key iedit-mode-map (kbd "TAB") 'iedit-next-occurrence)
+    (define-key iedit-mode-map (kbd "<S-tab>") 'iedit-prev-occurrence)
+    (define-key iedit-mode-map (kbd "<S-iso-lefttab>") 'iedit-prev-occurrence)
+    (define-key iedit-mode-map (kbd "<backtab>") 'iedit-prev-occurrence)
+    (define-key iedit-mode-map (kbd "C-'") 
'iedit-toggle-unmatched-lines-visible)
+    (define-key iedit-mode-map (char-to-string help-char) iedit-help-map)
+    (define-key iedit-mode-map [help] iedit-help-map)
+    (define-key iedit-mode-map [f1] iedit-help-map)
+    map)
   "Keymap used while iedit mode is enabled.")
 
-(if iedit-mode-map
-    nil
-  (setq iedit-mode-map (make-sparse-keymap))
-  ;; Default key bindings
-  (define-key iedit-mode-map (kbd "TAB") 'iedit-next-occurrence)
-  (define-key iedit-mode-map (kbd "<S-tab>") 'iedit-prev-occurrence)
-  (define-key iedit-mode-map (kbd "<S-iso-lefttab>") 'iedit-prev-occurrence)
-  (define-key iedit-mode-map (kbd "<backtab>") 'iedit-prev-occurrence)
-  (define-key iedit-mode-map (kbd "C-'") 'iedit-toggle-unmatched-lines-visible)
-  (define-key iedit-mode-map (char-to-string help-char) iedit-help-map)
-  (define-key iedit-mode-map [help] iedit-help-map)
-  (define-key iedit-mode-map [f1] iedit-help-map))
-
 (or (assq 'iedit-mode minor-mode-map-alist)
     (setq minor-mode-map-alist
           (cons (cons 'iedit-mode iedit-mode-map) minor-mode-map-alist)))