[elpa] externals/urgrep ccd6fe0d4c 002/115: Add a basic keymap

[ELPA Syncer]

branch: externals/urgrep
commit ccd6fe0d4cbfb8fdf4f41fbdeb45279f3a72ca85
Author: Jim Porter <jporterbugs@gmail.com>
Commit: Jim Porter <jporterbugs@gmail.com>

    Add a basic keymap
---
 urgrep.el | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/urgrep.el b/urgrep.el
index 6926cd3737..97d85b9bfa 100644
--- a/urgrep.el
+++ b/urgrep.el
@@ -63,6 +63,19 @@
 ;; number explicitly in the output.
 (defvar urgrep-first-column 0)
 
+(defvar urgrep-mode-map
+  (let ((map (make-sparse-keymap)))
+    (set-keymap-parent map compilation-minor-mode-map)
+    (define-key map "n" 'next-error-no-select)
+    (define-key map "p" 'previous-error-no-select)
+    (define-key map "{" 'compilation-previous-file)
+    (define-key map "}" 'compilation-next-file)
+    (define-key map "\t" 'compilation-next-error)
+    (define-key map [backtab] 'compilation-previous-error)
+    map)
+  "Keymap for urgrep buffers.
+`compilation-minor-mode-map' is a parent of this.")
+
 (defconst urgrep-mode-line-matches
   `(" [" (:propertize (:eval (int-to-string urgrep-num-matches-found))
                       face 'urgrep-match-count-face