diff options
| author | Eli Zaretskii | 2010-11-26 21:10:26 +0200 |
|---|---|---|
| committer | Eli Zaretskii | 2010-11-26 21:10:26 +0200 |
| commit | 228482b229c76c443ee4dea077bd0303cfbf5bc9 (patch) | |
| tree | 84829b4b339ae8284fbe0a95556e307f51736a72 /lisp | |
| parent | a2249e66f36a6454602b8f17593095881a4894a3 (diff) | |
| download | emacs-228482b229c76c443ee4dea077bd0303cfbf5bc9.tar.gz emacs-228482b229c76c443ee4dea077bd0303cfbf5bc9.zip | |
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.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 3 | ||||
| -rw-r--r-- | lisp/simple.el | 4 |
2 files changed, 6 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 0e9bd5bc718..47d352df116 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,5 +1,8 @@ | |||
| 1 | 2010-11-26 Eli Zaretskii <eliz@gnu.org> | 1 | 2010-11-26 Eli Zaretskii <eliz@gnu.org> |
| 2 | 2 | ||
| 3 | * simple.el (prog-mode): Set bidi-paragraph-direction to | ||
| 4 | left-to-right. | ||
| 5 | |||
| 3 | * term/pc-win.el (x-get-selection-internal): Emulation for MS-DOS. | 6 | * term/pc-win.el (x-get-selection-internal): Emulation for MS-DOS. |
| 4 | 7 | ||
| 5 | 2010-11-26 Glenn Morris <rgm@gnu.org> | 8 | 2010-11-26 Glenn Morris <rgm@gnu.org> |
diff --git a/lisp/simple.el b/lisp/simple.el index aa4b9a97182..3b9bfc0519a 100644 --- a/lisp/simple.el +++ b/lisp/simple.el | |||
| @@ -441,7 +441,9 @@ Other major modes are defined by comparison with this one." | |||
| 441 | (define-derived-mode prog-mode fundamental-mode "Prog" | 441 | (define-derived-mode prog-mode fundamental-mode "Prog" |
| 442 | "Major mode for editing programming language source code." | 442 | "Major mode for editing programming language source code." |
| 443 | (set (make-local-variable 'require-final-newline) mode-require-final-newline) | 443 | (set (make-local-variable 'require-final-newline) mode-require-final-newline) |
| 444 | (set (make-local-variable 'parse-sexp-ignore-comments) t)) | 444 | (set (make-local-variable 'parse-sexp-ignore-comments) t) |
| 445 | ;; Any programming language is always written left to right. | ||
| 446 | (setq bidi-paragraph-direction 'left-to-right)) | ||
| 445 | 447 | ||
| 446 | ;; Making and deleting lines. | 448 | ;; Making and deleting lines. |
| 447 | 449 | ||