If SPC and DEL are used within a normal text region, just scroll up/down.

This commit is contained in:
John Wiegley 2009-02-11 04:07:44 -04:00
parent c6f796de04
commit c97fa1a0c3

View file

@ -799,10 +799,12 @@ Many Magit faces inherit from this one by default."
(,type (magit-section-type ,section)) (,type (magit-section-type ,section))
(,context (magit-section-context-type ,section))) (,context (magit-section-context-type ,section)))
(cond ,@(mapcar (lambda (clause) (cond ,@(mapcar (lambda (clause)
(let ((prefix (reverse (car clause))) (if (eq (car clause) t)
(body (cdr clause))) clause
`((magit-prefix-p ',prefix ,context) (let ((prefix (reverse (car clause)))
,@body))) (body (cdr clause)))
`((magit-prefix-p ',prefix ,context)
,@body))))
clauses) clauses)
,@(if opname ,@(if opname
`(((not ,type) `(((not ,type)
@ -2684,7 +2686,9 @@ Prefix arg means justify as well."
((commit) ((commit)
(magit-show-commit info #'scroll-up)) (magit-show-commit info #'scroll-up))
((stash) ((stash)
(magit-show-stash info #'scroll-up)))) (magit-show-stash info #'scroll-up))
(t
(scroll-up))))
(defun magit-show-item-or-scroll-down () (defun magit-show-item-or-scroll-down ()
(interactive) (interactive)
@ -2692,7 +2696,9 @@ Prefix arg means justify as well."
((commit) ((commit)
(magit-show-commit info #'scroll-down)) (magit-show-commit info #'scroll-down))
((stash) ((stash)
(magit-show-stash info #'scroll-down)))) (magit-show-stash info #'scroll-down))
(t
(scroll-down))))
(defun magit-mark-item (&optional unmark) (defun magit-mark-item (&optional unmark)
(interactive "P") (interactive "P")