diff options
| author | Reiner Steib <Reiner.Steib@gmx.de> | 2007-10-18 19:33:57 +0000 |
|---|---|---|
| committer | Reiner Steib <Reiner.Steib@gmx.de> | 2007-10-18 19:33:57 +0000 |
| commit | 414dd971eb69040f206a89f26426c925a1bcfa57 (patch) | |
| tree | 3d8c5f4e760129bdf5af5cebb4c18b50b81a6ee1 /lisp/doc-view.el | |
| parent | d27180ec629f761684bfa5c3bf6b4cb6dd1cb93e (diff) | |
| download | emacs-414dd971eb69040f206a89f26426c925a1bcfa57.tar.gz emacs-414dd971eb69040f206a89f26426c925a1bcfa57.tar.bz2 emacs-414dd971eb69040f206a89f26426c925a1bcfa57.zip | |
(doc-view-mode-map): Use the image-mode scrolling commands. Don't rebind C-x k.
Diffstat (limited to 'lisp/doc-view.el')
| -rw-r--r-- | lisp/doc-view.el | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/lisp/doc-view.el b/lisp/doc-view.el index da116fa2bde..dd7565ced87 100644 --- a/lisp/doc-view.el +++ b/lisp/doc-view.el @@ -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) |