diff options
| author | Kyle Hubert | 2020-01-31 09:29:43 -0500 |
|---|---|---|
| committer | Eli Zaretskii | 2020-02-08 12:00:55 +0200 |
| commit | 953e7abf5befc560d1c88b6dfbbeb5f52d60e8b6 (patch) | |
| tree | 4a46b53da26e9b997fc071472727b258b590aa43 | |
| parent | 07e1852c9b58ffa86443f61705e3dae4af0736f7 (diff) | |
| download | emacs-953e7abf5befc560d1c88b6dfbbeb5f52d60e8b6.tar.gz emacs-953e7abf5befc560d1c88b6dfbbeb5f52d60e8b6.zip | |
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
| -rw-r--r-- | lisp/vc/ediff-util.el | 4 |
1 files changed, 2 insertions, 2 deletions
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." | |||
| 1540 | ;; hscrolling. | 1540 | ;; hscrolling. |
| 1541 | (if (= last-command-event ?<) | 1541 | (if (= last-command-event ?<) |
| 1542 | (lambda (arg) | 1542 | (lambda (arg) |
| 1543 | (let ((prefix-arg arg)) | 1543 | (let ((current-prefix-arg arg)) |
| 1544 | (call-interactively #'scroll-left))) | 1544 | (call-interactively #'scroll-left))) |
| 1545 | (lambda (arg) | 1545 | (lambda (arg) |
| 1546 | (let ((prefix-arg arg)) | 1546 | (let ((current-prefix-arg arg)) |
| 1547 | (call-interactively #'scroll-right)))) | 1547 | (call-interactively #'scroll-right)))) |
| 1548 | ;; calculate argument to scroll-left/right | 1548 | ;; calculate argument to scroll-left/right |
| 1549 | ;; if there is an explicit argument | 1549 | ;; if there is an explicit argument |