emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] trunk r117712: Fix horizontal scrolling in non-selected wi


From: Eli Zaretskii
Subject: [Emacs-diffs] trunk r117712: Fix horizontal scrolling in non-selected windows.
Date: Mon, 18 Aug 2014 14:40:10 +0000
User-agent: Bazaar (2.6b2)

------------------------------------------------------------
revno: 117712
revision-id: address@hidden
parent: address@hidden
committer: Eli Zaretskii <address@hidden>
branch nick: trunk
timestamp: Mon 2014-08-18 17:39:26 +0300
message:
  Fix horizontal scrolling in non-selected windows.
  
   lisp/scroll-bar.el (scroll-bar-horizontal-drag-1)
   (scroll-bar-toolkit-horizontal-scroll): When determining the
   paragraph direction, use the buffer of the window designated in
   the event.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/scroll-bar.el             
scrollbar.el-20091113204419-o5vbwnq5f7feedwu-535
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-08-16 19:51:27 +0000
+++ b/lisp/ChangeLog    2014-08-18 14:39:26 +0000
@@ -1,3 +1,10 @@
+2014-08-18  Eli Zaretskii  <address@hidden>
+
+       * scroll-bar.el (scroll-bar-horizontal-drag-1)
+       (scroll-bar-toolkit-horizontal-scroll): When determining the
+       paragraph direction, use the buffer of the window designated in
+       the event.
+
 2014-08-16  Andreas Schwab  <address@hidden>
 
        * vc/diff-mode.el (diff-fixup-modifs): Handle empty line in

=== modified file 'lisp/scroll-bar.el'
--- a/lisp/scroll-bar.el        2014-08-16 15:47:38 +0000
+++ b/lisp/scroll-bar.el        2014-08-18 14:39:26 +0000
@@ -327,7 +327,8 @@
         (window (nth 0 start-position))
         (portion-whole (nth 2 start-position))
         (unit (frame-char-width (window-frame window))))
-    (if (eq (current-bidi-paragraph-direction) 'left-to-right)
+    (if (eq (current-bidi-paragraph-direction (window-buffer window))
+           'left-to-right)
        (set-window-hscroll
         window (/ (1- (+ (car portion-whole) unit)) unit))
       (set-window-hscroll
@@ -454,9 +455,11 @@
   (let* ((end-position (event-end event))
         (window (nth 0 end-position))
         (part (nth 4 end-position))
-        (bidi-factor (if (eq (current-bidi-paragraph-direction) 'left-to-right)
-                         1
-                       -1))
+        (bidi-factor
+         (if (eq (current-bidi-paragraph-direction (window-buffer window))
+                 'left-to-right)
+             1
+           -1))
         before-scroll)
     (cond
      ((eq part 'end-scroll))


reply via email to

[Prev in Thread] Current Thread [Next in Thread]