[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/zuul 05c652ccec: Move zuul-log-mode-map before zuul-log
From: |
ELPA Syncer |
Subject: |
[elpa] externals/zuul 05c652ccec: Move zuul-log-mode-map before zuul-log-mode |
Date: |
Tue, 30 Aug 2022 16:58:19 -0400 (EDT) |
branch: externals/zuul
commit 05c652cceccf52ec2cf48c3c6839cfc64f93c963
Author: Niklas Eklund <niklas.eklund@posteo.net>
Commit: Niklas Eklund <niklas.eklund@posteo.net>
Move zuul-log-mode-map before zuul-log-mode
---
zuul.el | 28 ++++++++++++++--------------
1 file changed, 14 insertions(+), 14 deletions(-)
diff --git a/zuul.el b/zuul.el
index 903239ec55..ddd17f8df8 100644
--- a/zuul.el
+++ b/zuul.el
@@ -1120,20 +1120,6 @@ Optionally provide extra parameters PARAMS, PARSER,
METHOD, BUFFER or HEADERS."
;;;; Major mode
-(define-derived-mode zuul-log-mode fundamental-mode "Zuul Log"
- "Mode for `zuul' build log."
- (ansi-color-apply-on-region (point-min) (point-max))
- (comint-carriage-motion (point-min) (point-max))
- (setq zuul--project-files (zuul--project-files))
- (setq-local compilation-parse-errors-filename-function #'zuul--locate-file)
- (setq-local imenu-create-index-function #'zuul--imenu-index)
- (compilation-minor-mode)
- (setq-local font-lock-defaults '(compilation-mode-font-lock-keywords t))
- (add-hook 'eldoc-documentation-functions #'zuul--eldoc-function nil t)
- (read-only-mode)
- (font-lock-mode)
- (zuul--highlight-cmd))
-
(defvar zuul-log-mode-map
(let ((map (make-sparse-keymap)))
(define-key map (kbd "C-c C-b") #'zuul-switch-build)
@@ -1148,6 +1134,20 @@ Optionally provide extra parameters PARAMS, PARSER,
METHOD, BUFFER or HEADERS."
(define-key map (kbd "C-c C-r") #'zuul-run-build-command)
map))
+(define-derived-mode zuul-log-mode fundamental-mode "Zuul Log"
+ "Mode for `zuul' build log."
+ (ansi-color-apply-on-region (point-min) (point-max))
+ (comint-carriage-motion (point-min) (point-max))
+ (setq zuul--project-files (zuul--project-files))
+ (setq-local compilation-parse-errors-filename-function #'zuul--locate-file)
+ (setq-local imenu-create-index-function #'zuul--imenu-index)
+ (compilation-minor-mode)
+ (setq-local font-lock-defaults '(compilation-mode-font-lock-keywords t))
+ (add-hook 'eldoc-documentation-functions #'zuul--eldoc-function nil t)
+ (read-only-mode)
+ (font-lock-mode)
+ (zuul--highlight-cmd))
+
(provide 'zuul)
;;; zuul.el ends here
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/zuul 05c652ccec: Move zuul-log-mode-map before zuul-log-mode,
ELPA Syncer <=