mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-28 10:56:36 +00:00
Code Issues Releases Activity

(doc-view-mode-map): Use remapping.

Browse Source 
Don't rebind C-v, M-v to their default value.
Don't bind mouse-4 and mouse-5: it's mwheel.el's job.
This commit is contained in:
Stefan Monnier 2007-10-19 16:03:09 +00:00
parent cd62539fc7
commit eb8d0216d4
2 changed files with 12 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -1,5 +1,9 @@
2007-10-19 Stefan Monnier <monnier@iro.umontreal.ca>
* doc-view.el (doc-view-mode-map): Use remapping.
Don't rebind C-v, M-v to their default value.
Don't bind mouse-4 and mouse-5: it's mwheel.el's job.
* smerge-mode.el: Add word-granularity refinement.
(smerge-refine-forward-function, smerge-refine-ignore-whitespace)
(smerge-refine-weight-hack): New vars.

22
lisp/doc-view.el
View File

@ -212,8 +212,10 @@ has finished."
;; Navigation in the document
(define-key map (kbd "n") 'doc-view-next-page)
(define-key map (kbd "p") 'doc-view-previous-page)
(define-key map (kbd "<next>") 'doc-view-next-page)
(define-key map (kbd "<prior>") 'doc-view-previous-page)
(define-key map (kbd "<next>") 'forward-page)
(define-key map (kbd "<prior>") 'backward-page)
(define-key map [remap forward-page] 'doc-view-next-page)
(define-key map [remap backward-page] 'doc-view-previous-page)
(define-key map (kbd "SPC") 'doc-view-scroll-up-or-next-page)
(define-key map (kbd "DEL") 'doc-view-scroll-down-or-previous-page)
(define-key map (kbd "M-<") 'doc-view-first-page)
@ -232,18 +234,10 @@ 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)
(define-key map (kbd "M-v") 'scroll-down)
(define-key map [remap forward-char] 'image-forward-hscroll)
(define-key map [remap backward-char] 'image-backward-hscroll)
(define-key map [remap next-line] 'image-next-line)
(define-key map [remap previous-line] 'image-previous-line)
;; Show the tooltip
(define-key map (kbd "C-t") 'doc-view-show-tooltip)
;; Toggle between text and image display or editing