From: Gerd Moellmann 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 @@ -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 '-)))