From c42e6c6c2f7163396cec977f60bcc3d02d87bd3c Mon Sep 17 00:00:00 2001
From: Alex Kost <alezost@gmail.com>
Date: Thu, 29 Oct 2015 21:05:17 +0300
Subject: emacs: Disable minor modes in 'guix-build-log-mode'.

* emacs/guix-build-log.el (guix-build-log-mode-hook): Remove
  'compilation-shell-minor-mode' as it is slow on big buffers, and
  'view-mode' as it rebinds too many keys.
  (guix-build-log-mode-map): Add "c" and "v" key bindings for the
  removed minor modes.
---
 emacs/guix-build-log.el | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

(limited to 'emacs')

diff --git a/emacs/guix-build-log.el b/emacs/guix-build-log.el
index e28dce4471..c209100ffd 100644
--- a/emacs/guix-build-log.el
+++ b/emacs/guix-build-log.el
@@ -102,10 +102,7 @@
   "Face for the number of seconds for a phase."
   :group 'guix-build-log-faces)
 
-(defcustom guix-build-log-mode-hook
-  ;; Not using `compilation-minor-mode' because it rebinds some standard
-  ;; keys, including M-n/M-p.
-  '(compilation-shell-minor-mode view-mode)
+(defcustom guix-build-log-mode-hook '()
   "Hook run after `guix-build-log-mode' is entered."
   :type 'hook
   :group 'guix-build-log)
@@ -196,6 +193,8 @@ For `guix-build-log-minor-mode' this map is prefixed with 'C-c'.")
     (set-keymap-parent
      map (make-composed-keymap (list guix-build-log-common-map)
                                special-mode-map))
+    (define-key map (kbd "c") 'compilation-shell-minor-mode)
+    (define-key map (kbd "v") 'view-mode)
     map)
   "Keymap for `guix-build-log-mode' buffers.")
 
-- 
cgit v1.2.3

/packages/figlet.scm?id=71ec12d8bacd3901e8c7853d3c9403f3d09dfb31'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/gnu/packages/figlet.scm'>
<input type='hidden' name='id' value='71ec12d8bacd3901e8c7853d3c9403f3d09dfb31'/><select name='qt'>
<option value='grep'>log msg</option>
<option value='author'>author</option>
<option value='committer'>committer</option>
<option value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/guix/log/?id=71ec12d8bacd3901e8c7853d3c9403f3d09dfb31'>root</a>/<a href='/guix/log/gnu?id=71ec12d8bacd3901e8c7853d3c9403f3d09dfb31'>gnu</a>/<a href='/guix/log/gnu/packages?id=71ec12d8bacd3901e8c7853d3c9403f3d09dfb31'>packages</a>/<a href='/guix/log/gnu/packages/figlet.scm?id=71ec12d8bacd3901e8c7853d3c9403f3d09dfb31'>figlet.scm</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/gnu/packages/figlet.scm?id=71ec12d8bacd3901e8c7853d3c9403f3d09dfb31&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>