Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
414dd971
Commit
414dd971
authored
Oct 18, 2007
by
Reiner Steib
Browse files
(doc-view-mode-map): Use the image-mode scrolling commands. Don't rebind C-x k.
parent
d27180ec
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
12 additions
and
1 deletion
+12
-1
lisp/ChangeLog
lisp/ChangeLog
+3
-0
lisp/doc-view.el
lisp/doc-view.el
+9
-1
No files found.
lisp/ChangeLog
View file @
414dd971
...
...
@@ -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>
...
...
lisp/doc-view.el
View file @
414dd971
...
...
@@ -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
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment