From e40b3c33f4750dcbe83012eb4e5b8e786f9f71b1 Mon Sep 17 00:00:00 2001 From: Alex Kost Date: Sat, 21 Nov 2015 12:25:19 +0300 Subject: emacs: Split 'guix-root-map' keymap. * emacs/guix-base.el: (guix-root-map): Split into... (guix-buffer-map): ... this and... * emacs/guix-ui.el (guix-ui-map): ... this. (guix-ui-define-interface): Generate 'guix-ENTRY-TYPE-BUFFER-TYPE-mode-map' keymaps inheriting them from 'guix-ui-map' and 'guix-BUFFER-TYPE-mode-map'. * emacs/guix-info.el (guix-info-mode-map): Use 'guix-buffer-map'. * emacs/guix-list.el (guix-list-mode-map): Likewise. * doc/emacs.texi (Emacs Keymaps): Document new keymaps. --- emacs/guix-base.el | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) (limited to 'emacs/guix-base.el') diff --git a/emacs/guix-base.el b/emacs/guix-base.el index 3aaa2665c0..73c94042ba 100644 --- a/emacs/guix-base.el +++ b/emacs/guix-base.el @@ -283,16 +283,14 @@ This alist is filled by `guix-buffer-define-interface' macro.") "Return 'revert-confirm' value for BUFFER-TYPE/ENTRY-TYPE." (guix-buffer-value buffer-type entry-type 'revert-confirm)) -(defvar guix-root-map +(defvar guix-buffer-map (let ((map (make-sparse-keymap))) (define-key map (kbd "l") 'guix-history-back) (define-key map (kbd "r") 'guix-history-forward) (define-key map (kbd "g") 'revert-buffer) (define-key map (kbd "R") 'guix-redisplay-buffer) - (define-key map (kbd "M") 'guix-apply-manifest) - (define-key map (kbd "C-c C-z") 'guix-switch-to-repl) map) - "Parent keymap for all guix modes.") + "Parent keymap for Guix buffer modes.") (defvar-local guix-profile nil "Profile used for the current buffer.") -- cgit v1.2.3