Mercurial > emacs
changeset 85420:de8f3f575afc
(doc-view-mode-map): Use the image-mode scrolling commands. Don't rebind C-x k.
| author | Reiner Steib <Reiner.Steib@gmx.de> |
|---|---|
| date | Thu, 18 Oct 2007 19:33:57 +0000 |
| parents | 7e8f1ed0c57c |
| children | fbc2287ee475 |
| files | lisp/ChangeLog lisp/doc-view.el |
| diffstat | 2 files changed, 12 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Thu Oct 18 19:30:23 2007 +0000 +++ b/lisp/ChangeLog Thu Oct 18 19:33:57 2007 +0000 @@ -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>
--- a/lisp/doc-view.el Thu Oct 18 19:30:23 2007 +0000 +++ b/lisp/doc-view.el Thu Oct 18 19:33:57 2007 +0000 @@ -102,6 +102,7 @@ ;;; Code: (require 'dired) +(require 'image-mode) (eval-when-compile (require 'cl)) ;;;; Customization Options @@ -222,7 +223,6 @@ ;; 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 @@ (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)