From 9fb845751aa9e49158505e54f99dd3e72ba630f6 Mon Sep 17 00:00:00 2001 From: Dan Aloni Date: Tue, 29 Sep 2015 10:52:23 +0300 Subject: [PATCH] haskell-load: add haskell-goto-first-error --- haskell-load.el | 6 ++++++ haskell.el | 1 + 2 files changed, 7 insertions(+) diff --git a/haskell-load.el b/haskell-load.el index 592fdd2a9..0d4295c30 100644 --- a/haskell-load.el +++ b/haskell-load.el @@ -345,6 +345,12 @@ correspondingly-named overlay properties of OVL." (t (message "No further notes from Haskell compiler.")))) +(defun haskell-goto-first-error () + (interactive) + (haskell-goto-error-overlay + (first-overlay-in-if 'haskell-check-overlay-p + (buffer-end 0) (buffer-end 1)))) + (defun haskell-goto-prev-error () (interactive) (haskell-goto-error-overlay diff --git a/haskell.el b/haskell.el index 88a4b1003..b40ebc6da 100644 --- a/haskell.el +++ b/haskell.el @@ -51,6 +51,7 @@ (define-key map [?\C-c ?\C-z] 'haskell-interactive-switch) (define-key map (kbd "M-n") 'haskell-goto-next-error) (define-key map (kbd "M-p") 'haskell-goto-prev-error) + (define-key map (kbd "C-c M-p") 'haskell-goto-first-error) map) "Keymap for using haskell-interactive-mode.")