diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2001-03-01 14:52:03 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2001-03-01 14:52:03 +0000 |
| commit | 8a673c10210cbf09f85e71d043c74853ceabf821 (patch) | |
| tree | 3d0d499bed17ef618a94d873bb10709622315c74 /lisp/ediff-util.el | |
| parent | 52ec6cdcfb158608829a1ba06d9e8e044c0bca92 (diff) | |
| download | emacs-8a673c10210cbf09f85e71d043c74853ceabf821.tar.gz | |
(ediff-scroll-horizontally): Arrange for
scroll-left and scroll-right being called interactively so that
they set the window's min_hscroll.
Diffstat (limited to 'lisp/ediff-util.el')
| -rw-r--r-- | lisp/ediff-util.el | 14 |
1 files changed, 11 insertions, 3 deletions
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 '-))) |