Browse Source

emacs.el: use scroll-down/up-line

pull/1/head
10sr 10 years ago
parent
commit
1b510373c8
1 changed files with 8 additions and 12 deletions
  1. +8
    -12
      emacs.el

+ 8
- 12
emacs.el View File

@@ -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)


Loading…
Cancel
Save