mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

(describe-language-environment): Indent sample text.

Browse source
This commit is contained in:
Kenichi Handa 2008-10-23 08:05:36 +00:00
parent f54857320d
commit fd0dd4c366
2 changed files with 8 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2008-10-23 Ulrich Mueller <ulm@kph.uni-mainz.de>
* international/mule-cmds.el (describe-language-environment):
Indent sample text.
2008-10-23 Glenn Morris <rgm@gnu.org>
* pcmpl-rpm.el (pcomplete/rpm): Doc fix.

4
lisp/international/mule-cmds.el
View file

@ -2039,7 +2039,9 @@ Setting this variable directly does not take effect. See
(condition-case nil
(let ((str (eval (get-language-info language-name 'sample-text))))
(if (stringp str)
(insert "Sample text:\n " str "\n\n")))
(insert "Sample text:\n "
(replace-regexp-in-string "\n" "\n " str)
"\n\n")))
(error nil))
(let ((input-method (get-language-info language-name 'input-method))
(l (copy-sequence input-method-alist))