Improve prefix arg support in 'ediff-scroll-horizontally'
* lisp/vc/ediff-util.el (ediff-scroll-horizontally): Use 'current-prefix-arg' to pass the value of prefix argument to scrolling commands. (Bug#39353) Copyright-paperwork-exempt: yes
This commit is contained in:
parent
07e1852c9b
commit
953e7abf5b
1 changed files with 2 additions and 2 deletions
|
@ -1540,10 +1540,10 @@ the width of the A/B/C windows."
|
|||
;; hscrolling.
|
||||
(if (= last-command-event ?<)
|
||||
(lambda (arg)
|
||||
(let ((prefix-arg arg))
|
||||
(let ((current-prefix-arg arg))
|
||||
(call-interactively #'scroll-left)))
|
||||
(lambda (arg)
|
||||
(let ((prefix-arg arg))
|
||||
(let ((current-prefix-arg arg))
|
||||
(call-interactively #'scroll-right))))
|
||||
;; calculate argument to scroll-left/right
|
||||
;; if there is an explicit argument
|
||||
|
|
Loading…
Add table
Reference in a new issue