branch: externals/urgrep
commit ccd6fe0d4cbfb8fdf4f41fbdeb45279f3a72ca85
Author: Jim Porter <jporterb...@gmail.com>
Commit: Jim Porter <jporterb...@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
