Commit 414dd971 authored by Reiner Steib's avatar Reiner Steib
Browse files

(doc-view-mode-map): Use the image-mode scrolling commands. Don't rebind C-x k.

parent d27180ec
......@@ -5,6 +5,9 @@
(doc-view-pdf->txt-sentinel, doc-view-pdf->txt)
(doc-view-ps->pdf-sentinel, doc-view-ps->pdf): Remove superfluous
messages.
(doc-view-mode-map): Use the image-mode scrolling commands. Don't
rebind C-x k.
2007-10-18 Reiner Steib <Reiner.Steib@gmx.de>
......
......@@ -102,6 +102,7 @@
;;; Code:
(require 'dired)
(require 'image-mode)
(eval-when-compile (require 'cl))
;;;; Customization Options
......@@ -222,7 +223,6 @@ has finished."
;; Killing/burying the buffer (and the process)
(define-key map (kbd "q") 'bury-buffer)
(define-key map (kbd "k") 'doc-view-kill-proc-and-buffer)
(define-key map (kbd "C-x k") 'doc-view-kill-proc-and-buffer)
;; Slicing the image
(define-key map (kbd "s s") 'doc-view-set-slice)
(define-key map (kbd "s m") 'doc-view-set-slice-using-mouse)
......@@ -233,6 +233,14 @@ has finished."
(define-key map (kbd "C-S-n") 'doc-view-search-next-match)
(define-key map (kbd "C-S-p") 'doc-view-search-previous-match)
;; Scrolling
(define-key map (kbd "<right>") 'image-forward-hscroll)
(define-key map (kbd "<left>") 'image-backward-hscroll)
(define-key map (kbd "<down>") 'image-next-line)
(define-key map (kbd "<up>") 'image-previous-line)
(define-key map (kbd "C-f") 'image-forward-hscroll)
(define-key map (kbd "C-b") 'image-backward-hscroll)
(define-key map (kbd "C-n") 'image-next-line)
(define-key map (kbd "C-p") 'image-previous-line)
(define-key map (kbd "C-v") 'scroll-up)
(define-key map (kbd "<mouse-4>") 'mwheel-scroll)
(define-key map (kbd "<mouse-5>") 'mwheel-scroll)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment