[Emacs-diffs] emacs-24 r117583: Fix display of R2L entries in tabulated-list-mode.

[Eli Zaretskii]

------------------------------------------------------------
revno: 117583
revision-id: address@hidden
parent: address@hidden
committer: Eli Zaretskii <address@hidden>
branch nick: emacs-24
timestamp: Tue 2014-10-14 22:29:47 +0300
message:
  Fix display of R2L entries in tabulated-list-mode.
  
   lisp/emacs-lisp/tabulated-list.el (tabulated-list-mode): Force
   bidi-paragraph-direction to 'left-to-right'.  This fixes
   buffer-menu display when the first buffer happens to start with
   R2L letter.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/emacs-lisp/tabulated-list.el 
tabulatedlist.el-20110406172122-j9szk2wsofzcear8-1

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-10-13 19:32:14 +0000
+++ b/lisp/ChangeLog    2014-10-14 19:29:47 +0000
@@ -1,3 +1,10 @@
+2014-10-14  Eli Zaretskii  <address@hidden>
+
+       * emacs-lisp/tabulated-list.el (tabulated-list-mode): Force
+       bidi-paragraph-direction to 'left-to-right'.  This fixes
+       buffer-menu display when the first buffer happens to start with
+       R2L letter.
+
 2014-10-13  Glenn Morris  <address@hidden>
 
        * emacs-lisp/authors.el (authors-aliases, authors-fixed-case)

=== modified file 'lisp/emacs-lisp/tabulated-list.el'
--- a/lisp/emacs-lisp/tabulated-list.el 2014-01-01 07:43:34 +0000
+++ b/lisp/emacs-lisp/tabulated-list.el 2014-10-14 19:29:47 +0000
@@ -518,7 +518,10 @@
   (setq-local buffer-read-only t)
   (setq-local buffer-undo-list t)
   (setq-local revert-buffer-function #'tabulated-list-revert)
-  (setq-local glyphless-char-display tabulated-list-glyphless-char-display))
+  (setq-local glyphless-char-display tabulated-list-glyphless-char-display)
+  ;; Avoid messing up the entries' display just because the first
+  ;; column of the first entry happens to begin with a R2L letter.
+  (setq bidi-paragraph-direction 'left-to-right))
 
 (put 'tabulated-list-mode 'mode-class 'special)