From 1b510373c8efa590ea451df55e2c4ada22271bf4 Mon Sep 17 00:00:00 2001
From: 10sr <8slashes+git@gmail.com>
Date: Sun, 9 Mar 2014 01:57:25 +0900
Subject: [PATCH] emacs.el: use scroll-down/up-line

---
 emacs.el | 20 ++++++++------------
 1 file changed, 8 insertions(+), 12 deletions(-)

diff --git a/emacs.el b/emacs.el
index b15ec7a..16cb409 100644
--- a/emacs.el
+++ b/emacs.el
@@ -294,8 +294,8 @@ found, otherwise returns nil."
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; global keys
 
-(global-set-key (kbd "<up>") (lambda() (interactive) (scroll-down 1)))
-(global-set-key (kbd "<down>") (lambda() (interactive) (scroll-up 1)))
+(global-set-key (kbd "<up>") 'scroll-down-line)
+(global-set-key (kbd "<down>") 'scroll-up-line)
 (global-set-key (kbd "<left>") 'scroll-down)
 (global-set-key (kbd "<right>") 'scroll-up)
 
@@ -700,8 +700,8 @@ found, otherwise returns nil."
 (define-key esc-map "p" 'backward-paragraph)
 ;; (global-set-key (kbd "M-n") 'forward-paragraph)
 (define-key esc-map "n" 'forward-paragraph)
-(global-set-key (kbd "C-<up>") (lambda () (interactive)(scroll-down 1)))
-(global-set-key (kbd "C-<down>") (lambda () (interactive)(scroll-up 1)))
+(global-set-key (kbd "C-<up>") 'scroll-down-line)
+(global-set-key (kbd "C-<down>") 'scroll-up-line)
 (global-set-key (kbd "C-<left>") 'scroll-down)
 (global-set-key (kbd "C-<right>") 'scroll-up)
 (global-set-key (kbd "<select>") 'ignore) ; 'previous-line-mark)
@@ -1079,10 +1079,8 @@ found, otherwise returns nil."
 
 (add-hook 'view-mode-hook
           (lambda()
-            (define-key view-mode-map "j"
-              (lambda() (interactive) (scroll-up 1)))
-            (define-key view-mode-map "k"
-              (lambda() (interactive) (scroll-down 1)))
+            (define-key view-mode-map "j" 'scroll-up-line)
+            (define-key view-mode-map "k" 'scroll-down-line)
             (define-key view-mode-map "v" 'toggle-read-only)
             (define-key view-mode-map "q" 'bury-buffer)
             ;; (define-key view-mode-map "/" 'nonincremental-re-search-forward)
@@ -1231,10 +1229,8 @@ found, otherwise returns nil."
                 )
               ;; (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 "<up>")
-                (lambda () (interactive) (scroll-down 1)))
-              (define-key term-raw-map (kbd "<down>")
-                (lambda () (interactive) (scroll-up 1)))
+              (define-key term-raw-map (kbd "<up>") 'scroll-down-line)
+              (define-key term-raw-map (kbd "<down>") 'scroll-up-line)
               (define-key term-raw-map (kbd "<right>") 'scroll-up)
               (define-key term-raw-map (kbd "<left>") 'scroll-down)
               (define-key term-raw-map (kbd "C-p") 'term-send-raw)