# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1290798626 -7200
# Node ID 52e0dfc06f6cd8331cef23810defae7e9fe79993
# Parent  1cf4eea48b69ab16849bb0b0d83e81db0b577d59
Force left-to-right paragraph direction in echo area and prog-mode buffers.

 src/xdisp.c (set_message_1): Force paragraph direction in echo area
 be left-to-right.
 lisp/simple.el (prog-mode): Set bidi-paragraph-direction to left-to-right.

diff -r 1cf4eea48b69 -r 52e0dfc06f6c lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Nov 26 20:40:37 2010 +0200
+++ b/lisp/ChangeLog	Fri Nov 26 21:10:26 2010 +0200
@@ -1,5 +1,8 @@
 2010-11-26  Eli Zaretskii  <eliz@gnu.org>
 
+	* simple.el (prog-mode): Set bidi-paragraph-direction to
+	left-to-right.
+
 	* term/pc-win.el (x-get-selection-internal): Emulation for MS-DOS.
 
 2010-11-26  Glenn Morris  <rgm@gnu.org>
diff -r 1cf4eea48b69 -r 52e0dfc06f6c lisp/simple.el
--- a/lisp/simple.el	Fri Nov 26 20:40:37 2010 +0200
+++ b/lisp/simple.el	Fri Nov 26 21:10:26 2010 +0200
@@ -441,7 +441,9 @@
 (define-derived-mode prog-mode fundamental-mode "Prog"
   "Major mode for editing programming language source code."
   (set (make-local-variable 'require-final-newline) mode-require-final-newline)
-  (set (make-local-variable 'parse-sexp-ignore-comments) t))
+  (set (make-local-variable 'parse-sexp-ignore-comments) t)
+  ;; Any programming language is always written left to right.
+  (setq bidi-paragraph-direction 'left-to-right))
 
 ;; Making and deleting lines.
 
diff -r 1cf4eea48b69 -r 52e0dfc06f6c src/ChangeLog
--- a/src/ChangeLog	Fri Nov 26 20:40:37 2010 +0200
+++ b/src/ChangeLog	Fri Nov 26 21:10:26 2010 +0200
@@ -1,5 +1,8 @@
 2010-11-26  Eli Zaretskii  <eliz@gnu.org>
 
+	* xdisp.c (set_message_1): Force paragraph direction in echo area
+	be left-to-right.
+
 	* keyboard.c (make_lispy_position): Put a meaningful value in yret
 	when the click is on the header or mode line.
 
diff -r 1cf4eea48b69 -r 52e0dfc06f6c src/xdisp.c
--- a/src/xdisp.c	Fri Nov 26 20:40:37 2010 +0200
+++ b/src/xdisp.c	Fri Nov 26 21:10:26 2010 +0200
@@ -9384,6 +9384,8 @@
     Fset_buffer_multibyte (message_enable_multibyte ? Qt : Qnil);
 
   current_buffer->truncate_lines = message_truncate_lines ? Qt : Qnil;
+  if (!NILP (current_buffer->bidi_display_reordering))
+    current_buffer->bidi_paragraph_direction = Qleft_to_right;
 
   /* Insert new message at BEG.  */
   TEMP_SET_PT_BOTH (BEG, BEG_BYTE);