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