emacs-elpa-diffs
[Top][All Lists]
Advanced

[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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]