Mercurial > emacs
comparison lisp/simple.el @ 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 | 3655cc4062e4 |
| children | c92a6fe1fa59 |
comparison
equal
deleted
inserted
replaced
| 111735:1cf4eea48b69 | 111736:52e0dfc06f6c |
|---|---|
| 439 (indent-region start end nil))) | 439 (indent-region start end nil))) |
| 440 | 440 |
| 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 |
| 448 (defvar hard-newline (propertize "\n" 'hard t 'rear-nonsticky '(hard)) | 450 (defvar hard-newline (propertize "\n" 'hard t 'rear-nonsticky '(hard)) |
| 449 "Propertized string representing a hard newline character.") | 451 "Propertized string representing a hard newline character.") |