From: Gerd Moellmann <gerd@gnu.org>
Date: Thu, 1 Mar 2001 14:52:03 +0000 (+0000)
Subject: (ediff-scroll-horizontally): Arrange for
X-Git-Tag: emacs-pretest-21.0.99~69
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8a673c10210cbf09f85e71d043c74853ceabf821;p=emacs.git

(ediff-scroll-horizontally): Arrange for
scroll-left and scroll-right being called interactively so that
they set the window's min_hscroll.
---

diff --git a/lisp/ediff-util.el b/lisp/ediff-util.el
index 1e49926e36e..dff95ce4cb8 100644
--- a/lisp/ediff-util.el
+++ b/lisp/ediff-util.el
@@ -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 @@ the width of the A/B/C windows."
       (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 '-)))