From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 8 May 2010 09:29:49 +0000 (+0300)
Subject: Fix fringe truncation bitmaps in R2L lines.
X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~438^2~228
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=96d79611095cd8e906676d871a033549f0ec98b4;p=emacs.git

Fix fringe truncation bitmaps in R2L lines.

 fringe.c (update_window_fringes): Set up truncation bitmaps for R2L lines.
---

diff --git a/src/ChangeLog b/src/ChangeLog
index 296c468f2ee..1ec145b72fd 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2010-05-08  Eli Zaretskii  <eliz@gnu.org>
+
+	* fringe.c (update_window_fringes): Set up truncation bitmaps for
+	R2L lines.
+
 2010-05-08  Glenn Morris  <rgm@gnu.org>
 
 	* Makefile.in (THIS_IS_MAKEFILE): Remove, unused.
diff --git a/src/fringe.c b/src/fringe.c
index cfb944d58d1..6dcacbbcd3f 100644
--- a/src/fringe.c
+++ b/src/fringe.c
@@ -1082,7 +1082,8 @@ update_window_fringes (w, keep_current_p)
 	  left = row->left_user_fringe_bitmap;
 	  left_face_id = row->left_user_fringe_face_id;
 	}
-      else if (row->truncated_on_left_p)
+      else if ((!row->reversed_p && row->truncated_on_left_p)
+	       || (row->reversed_p && row->truncated_on_right_p))
 	left = LEFT_FRINGE(0, Qtruncation, 0);
       else if (row->indicate_bob_p && EQ (boundary_top, Qleft))
 	left = ((row->indicate_eob_p && EQ (boundary_bot, Qleft))
@@ -1110,7 +1111,8 @@ update_window_fringes (w, keep_current_p)
 	  right = row->right_user_fringe_bitmap;
 	  right_face_id = row->right_user_fringe_face_id;
 	}
-      else if (row->truncated_on_right_p)
+      else if ((!row->reversed_p && row->truncated_on_right_p)
+	       || (row->reversed_p && row->truncated_on_left_p))
 	right = RIGHT_FRINGE (0, Qtruncation, 0);
       else if (row->indicate_bob_p && EQ (boundary_top, Qright))
 	right = ((row->indicate_eob_p && EQ (boundary_bot, Qright))