1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-26 10:49:33 +00:00

Fix display of Hebrew tutorial title on splash screen.

lisp/startup.el (fancy-startup-text): Read the whole tutorial, not
 just its first 256 bytes.  Prevents gibberish in display of the
 tutorial title.
 etc/tutorials/TUTORIAL.he: Make the first sentence display correctly
 in a left-to-right paragraph, such as what is shown on the fancy
 splash screen, by using directional control characters.
This commit is contained in:
Eli Zaretskii 2012-07-20 13:29:32 +03:00
parent d7ea76b4f3
commit 87ab808f0c
4 changed files with 22 additions and 2 deletions

View File

@ -1,3 +1,9 @@
2012-07-20 Eli Zaretskii <eliz@gnu.org>
* tutorials/TUTORIAL.he: Make the first sentence display correctly
in a left-to-right paragraph, such as what is shown on the fancy
splash screen.
2012-07-15 Leo Liu <sdl.web@gmail.com>
* NEWS: Mention exclamation-mark and flymake.

View File

@ -1,4 +1,4 @@
שיעור ראשון בשימוש ב־Emacs. זכויות שימוש ראה בסוף המסמך.
שיעור ראשון בשימוש ב־Emacs. זכויות שימוש ראה בסוף המסמך.
פקודות רבות של Emacs משתמשות במקש CONTROL (לפעמים הוא מסומן ב־CTRL או CTL)
או במקש META (לפעמים מסומן EDIT או ALT). במקום לציין את כל השמות האפשריים

View File

@ -1,3 +1,9 @@
2012-07-20 Eli Zaretskii <eliz@gnu.org>
* startup.el (fancy-startup-text): Read the whole tutorial, not
just its first 256 bytes. Prevents gibberish in display of the
tutorial title.
2012-07-20 Dmitry Antipov <dmantipov@yandex.ru>
Drop idle buffer compaction due to an absence of the

View File

@ -1311,7 +1311,15 @@ If this is nil, no message will be displayed."
(title (with-temp-buffer
(insert-file-contents
(expand-file-name tut tutorial-directory)
nil 0 256)
;; We used to read only the first 256 bytes of
;; the tutorial, but that prevents the coding:
;; setting, if any, in file-local variables
;; section to be seen by insert-file-contents,
;; and results in gibberish when the language
;; environment's preferred encoding is
;; different from what the file-local variable
;; says. One case in point is Hebrew.
nil)
(search-forward ".")
(buffer-substring (point-min) (1- (point))))))
;; If there is a specific tutorial for the current language