From: Kyle Hubert <khubert@gmail.com>
Date: Fri, 31 Jan 2020 14:29:43 +0000 (-0500)
Subject: Improve prefix arg support in 'ediff-scroll-horizontally'
X-Git-Tag: emacs-28.0.90~7903
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=953e7abf5befc560d1c88b6dfbbeb5f52d60e8b6;p=emacs.git

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

diff --git a/lisp/vc/ediff-util.el b/lisp/vc/ediff-util.el
index a8af9ba37a2..5f8a4a86b15 100644
--- a/lisp/vc/ediff-util.el
+++ b/lisp/vc/ediff-util.el
@@ -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