branch: externals/objed
commit 354d5fa4ad9517ed64978d7cba72a42bb3a93d37
Author: Clemens Radermacher <[email protected]>
Commit: Clemens Radermacher <[email protected]>
Don't bind scrolling commands, use char object for scrolling
---
objed.el | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/objed.el b/objed.el
index 72a5d36..98c7a3b 100644
--- a/objed.el
+++ b/objed.el
@@ -198,8 +198,10 @@ The function should return nil if objed should not
initialize."
(next-line . line)
(beginning-of-buffer . buffer)
(end-of-buffer . buffer)
- (scroll-up-command . line)
- (scroll-down-command . line)
+ (scroll-up-command . char)
+ (scroll-down-command . char)
+ (View-scroll-half-page-forward . char)
+ (View-scroll-half-page-backward . char)
(move-to-window-line-top-bottom . line)
(imenu . line)
(backward-paragraph . paragraph)
@@ -637,8 +639,6 @@ selected one."
(define-key map (kbd "C-SPC") 'set-mark-command)
(define-key map (kbd "C-x C-x") 'objed-exchange-point-and-mark)
;; TODO: birdview mode/scroll mode
- (define-key map (kbd "C-v") 'scroll-up-command)
- (define-key map "\ev" 'scroll-down-command)
(define-key map (kbd "C-h k") 'objed-describe-key)
(when objed-use-which-key-if-available-p
