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:
Kyle Hubert 2020-01-31 09:29:43 -05:00 committed by Eli Zaretskii
parent 07e1852c9b
commit 953e7abf5b

View file

@ -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