Mercurial > emacs
comparison lisp/international/quail.el @ 18642:0fc832264117
(quail-conversion-help): Source code indentation changed.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Mon, 07 Jul 1997 00:53:02 +0000 |
| parents | 99e8ae18137f |
| children | e9aa787f0154 |
comparison
equal
deleted
inserted
replaced
| 18641:9830b54653b7 | 18642:0fc832264117 |
|---|---|
| 1682 (defun quail-conversion-help () | 1682 (defun quail-conversion-help () |
| 1683 "Show help message while converting in Quail mode." | 1683 "Show help message while converting in Quail mode." |
| 1684 (interactive) | 1684 (interactive) |
| 1685 (let ((package quail-current-package) | 1685 (let ((package quail-current-package) |
| 1686 (str (buffer-substring (overlay-start quail-conv-overlay) | 1686 (str (buffer-substring (overlay-start quail-conv-overlay) |
| 1687 (overlay-end quail-conv-overlay)))) | 1687 (overlay-end quail-conv-overlay)))) |
| 1688 (with-output-to-temp-buffer "*Quail-Help*" | 1688 (with-output-to-temp-buffer "*Quail-Help*" |
| 1689 (save-excursion | 1689 (save-excursion |
| 1690 (set-buffer standard-output) | 1690 (set-buffer standard-output) |
| 1691 (let ((quail-current-package package)) | 1691 (let ((quail-current-package package)) |
| 1692 (princ "You are converting the string ") | 1692 (princ "You are converting the string ") |
| 1693 (prin1 str) | 1693 (prin1 str) |
| 1694 (princ " in Quail mode.\n") | 1694 (princ " in Quail mode.\n") |
| 1695 (quail-help-insert-keymap-description | 1695 (quail-help-insert-keymap-description |
| 1696 (quail-conversion-keymap) | 1696 (quail-conversion-keymap) |
| 1697 "----------------------- | 1697 "----------------------- |
| 1698 key binding | 1698 key binding |
| 1699 --- -------\n")) | 1699 --- -------\n")) |
| 1700 (help-mode))))) | 1700 (help-mode))))) |
| 1701 | 1701 |
| 1702 | 1702 |