Mercurial > emacs
changeset 36456:1474cd438ac1
(ediff-scroll-horizontally): Arrange for
scroll-left and scroll-right being called interactively so that
they set the window's min_hscroll.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Thu, 01 Mar 2001 14:52:03 +0000 |
| parents | 0f5618d75b4a |
| children | b0905c60d1ab |
| files | lisp/ediff-util.el |
| diffstat | 1 files changed, 11 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ediff-util.el Thu Mar 01 14:29:05 2001 +0000 +++ b/lisp/ediff-util.el Thu Mar 01 14:52:03 2001 +0000 @@ -1,6 +1,6 @@ ;;; ediff-util.el --- the core commands and utilities of ediff -;; Copyright (C) 1994, 1995, 1996, 1997 Free Software Foundation, Inc. +;; Copyright (C) 1994, 1995, 1996, 1997, 2001 Free Software Foundation, Inc. ;; Author: Michael Kifer <kifer@cs.sunysb.edu> @@ -1516,9 +1516,17 @@ (error ediff-KILLED-VITAL-BUFFER)) (ediff-operate-on-windows + ;; Arrange for scroll-left and scroll-right being called + ;; interactively so that they set the window's min_hscroll. + ;; Otherwise, automatic hscrolling will undo the effect of + ;; hscrolling. (if (= last-command-char ?<) - 'scroll-left - 'scroll-right) + (lambda (arg) + (let ((prefix-arg arg)) + (call-interactively 'scroll-left))) + (lambda (arg) + (let ((prefix-arg arg)) + (call-interactively 'scroll-right)))) ;; calculate argument to scroll-left/right ;; if there is an explicit argument (if (and arg (not (equal arg '-)))