If SPC and DEL are used within a normal text region, just scroll up/down.
This commit is contained in:
parent
c6f796de04
commit
c97fa1a0c3
1 changed files with 12 additions and 6 deletions
18
magit.el
18
magit.el
|
@ -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")
|
||||||
|
|
Loading…
Add table
Reference in a new issue