From 09672b95a2dd2446157b6d442fc810b822e5008a Mon Sep 17 00:00:00 2001 From: 10sr <8slashes+git@gmail.com> Date: Tue, 6 Nov 2012 20:38:35 +0900 Subject: [PATCH] add scroll key bindings as scroll for term-mode --- emacs.el | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/emacs.el b/emacs.el index 4be729a..642d7d4 100644 --- a/emacs.el +++ b/emacs.el @@ -994,7 +994,16 @@ delete; o: select other; j, l: enlarge; h, k: shrink; q: quit." (define-key term-raw-map "\C-x" (lookup-key (current-global-map) "\C-x")) (define-key term-raw-map - "\C-z" (lookup-key (current-global-map) "\C-z"))) + "\C-z" (lookup-key (current-global-map) "\C-z")) + ) + ;; (define-key term-raw-map "\C-xl" 'term-line-mode) + ;; (define-key term-mode-map "\C-xc" 'term-char-mode) + (define-key term-raw-map (kbd "") + (lambda () (interactive) (scroll-down 1))) + (define-key term-raw-map (kbd "") + (lambda () (interactive) (scroll-up 1))) + (define-key term-raw-map (kbd "") 'scroll-up) + (define-key term-raw-map (kbd "") 'scroll-down) (define-key term-raw-map (kbd "C-p") 'term-send-raw) (define-key term-raw-map (kbd "C-n") 'term-send-raw) (define-key term-raw-map "q" 'my-term-quit-or-send-raw)