comparison lisp/ediff-util.el @ 36456:1474cd438ac1

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

36455:0f5618d75b4a

;;; ediff-util.el --- the core commands and utilities of ediff

;; Copyright (C) 1994, 1995, 1996, 1997 Free Software Foundation, Inc.

;; Author: Michael Kifer <[e-mail]>

;; This file is part of GNU Emacs.

		    (ediff-buffer-live-p ediff-buffer-C))
		))
      (error ediff-KILLED-VITAL-BUFFER))
    
  (ediff-operate-on-windows
   (if (= last-command-char ?<)
       'scroll-left
     'scroll-right)
   ;; calculate argument to scroll-left/right
   ;; if there is an explicit argument
   (if (and arg (not (equal arg '-)))
       ;; use it
       (prefix-numeric-value arg)

36456:1474cd438ac1

;;; ediff-util.el --- the core commands and utilities of ediff

;; Copyright (C) 1994, 1995, 1996, 1997, 2001 Free Software Foundation, Inc.

;; Author: Michael Kifer <[e-mail]>

;; This file is part of GNU Emacs.

		    (ediff-buffer-live-p ediff-buffer-C))
		))
      (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 ?<)
       (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 '-)))
       ;; use it
       (prefix-numeric-value arg)