mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(ediff-scroll-horizontally): Arrange for

Browse source 
scroll-left and scroll-right being called interactively so that
they set the window's min_hscroll.
This commit is contained in:
Gerd Moellmann 2001-03-01 14:52:03 +00:00
parent 52ec6cdcfb
commit 8a673c1021
1 changed files with 11 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lisp/ediff-util.el
View file

@ -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 '-)))