Mercurial > emacs
changeset 111736:52e0dfc06f6c
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.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Fri, 26 Nov 2010 21:10:26 +0200 |
| parents | 1cf4eea48b69 |
| children | 67a08cfa1976 |
| files | lisp/ChangeLog lisp/simple.el src/ChangeLog src/xdisp.c |
| diffstat | 4 files changed, 11 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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>
--- 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.
--- 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.
--- 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);