Mercurial > emacs
comparison lisp/international/quail.el @ 18349:f468344dd2bd
(quail-help): Use with-output-to-temp-buffer.
(quail-translation-help): Likewise.
(quail-conversion-help): Likewise.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Sat, 21 Jun 1997 01:14:06 +0000 |
parents | 5c8e37591da5 |
children | 8b4a66c66dd6 |
comparison
equal
deleted
inserted
replaced
18348:157cdb505495 | 18349:f468344dd2bd |
---|---|
1459 (newline))))) | 1459 (newline))))) |
1460 | 1460 |
1461 (defun quail-help () | 1461 (defun quail-help () |
1462 "Show brief description of the current Quail package." | 1462 "Show brief description of the current Quail package." |
1463 (interactive) | 1463 (interactive) |
1464 (let ((package quail-current-package) | 1464 (let ((package quail-current-package)) |
1465 (buf (get-buffer-create "*Quail-help*"))) | 1465 (with-output-to-temp-buffer "*Quail-Help*" |
1466 (save-excursion | 1466 (save-excursion |
1467 (set-buffer buf) | 1467 (set-buffer standard-output) |
1468 (erase-buffer) | 1468 (let ((quail-current-package package)) |
1469 (setq quail-current-package package) | 1469 (insert "Quail input method (name:" |
1470 (insert "Quail input method (name:" | 1470 (quail-name) |
1471 (quail-name) | 1471 ", mode line indicator:[" |
1472 ", mode line indicator:[" | 1472 (quail-title) |
1473 (quail-title) | 1473 "])\n---- Documentation ----\n" |
1474 "])\n---- Documentation ----\n" | 1474 (quail-docstring)) |
1475 (quail-docstring)) | 1475 (newline) |
1476 (newline) | 1476 (if (quail-show-layout) (quail-show-kbd-layout)) |
1477 (if (quail-show-layout) (quail-show-kbd-layout)) | 1477 (quail-help-insert-keymap-description |
1478 (insert ) | 1478 quail-mode-map |
1479 (quail-help-insert-keymap-description | 1479 "---- Key bindings (before starting translation) ---- |
1480 quail-mode-map | |
1481 "---- Key bindings (before starting translation) ---- | |
1482 key binding | 1480 key binding |
1483 --- -------\n") | 1481 --- -------\n") |
1484 (quail-help-insert-keymap-description | 1482 (quail-help-insert-keymap-description |
1485 (quail-translation-keymap) | 1483 (quail-translation-keymap) |
1486 "--- Key bindings (while translating) --- | 1484 "--- Key bindings (while translating) --- |
1487 key binding | 1485 key binding |
1488 --- -------\n") | 1486 --- -------\n") |
1489 (if (quail-conversion-keymap) | 1487 (if (quail-conversion-keymap) |
1490 (quail-help-insert-keymap-description | 1488 (quail-help-insert-keymap-description |
1491 (quail-conversion-keymap) | 1489 (quail-conversion-keymap) |
1492 "--- Key bindings (while converting) --- | 1490 "--- Key bindings (while converting) --- |
1493 key binding | 1491 key binding |
1494 --- -------\n")) | 1492 --- -------\n")) |
1495 (goto-char (point-min)) | 1493 (help-mode)))))) |
1496 (set-buffer-modified-p nil) | 1494 |
1497 (help-mode)) | |
1498 (display-buffer buf))) | |
1499 | 1495 |
1500 (defun quail-help-insert-keymap-description (keymap &optional header) | 1496 (defun quail-help-insert-keymap-description (keymap &optional header) |
1501 (let (from to) | 1497 (let (from to) |
1502 (if header | 1498 (if header |
1503 (insert header)) | 1499 (insert header)) |
1541 | 1537 |
1542 (defun quail-translation-help () | 1538 (defun quail-translation-help () |
1543 "Show help message while translating in Quail mode." | 1539 "Show help message while translating in Quail mode." |
1544 (interactive) | 1540 (interactive) |
1545 (let ((package quail-current-package) | 1541 (let ((package quail-current-package) |
1546 (current-key quail-current-key) | 1542 (current-key quail-current-key)) |
1547 (buf (get-buffer-create "*Quail-Help*"))) | 1543 (with-output-to-temp-buffer "*Quail-Help*" |
1548 (save-excursion | 1544 (save-excursion |
1549 (set-buffer buf) | 1545 (set-buffer standard-output) |
1550 (erase-buffer) | 1546 (let ((quail-current-package package)) |
1551 (setq quail-current-package package) | 1547 (princ "You are translating the key sequence ") |
1552 (insert | 1548 (prin1 quail-current-key) |
1553 (format "You are translating the key sequence \"%s\" in Quail mode.\n" | 1549 (princ" in Quail mode.\n") |
1554 quail-current-key)) | 1550 (quail-help-insert-keymap-description |
1555 (quail-help-insert-keymap-description | 1551 (quail-translation-keymap) |
1556 (quail-translation-keymap) | 1552 "----------------------- |
1553 key binding | |
1554 --- -------\n")) | |
1555 (help-mode))))) | |
1556 | |
1557 (defun quail-conversion-help () | |
1558 "Show help message while converting in Quail mode." | |
1559 (interactive) | |
1560 (let ((package quail-current-package) | |
1561 (str (buffer-substring (overlay-start quail-conv-overlay) | |
1562 (overlay-end quail-conv-overlay)))) | |
1563 (with-output-to-temp-buffer "*Quail-Help*" | |
1564 (save-excursion | |
1565 (set-buffer standard-output) | |
1566 (let ((quail-current-package package)) | |
1567 (princ "You are converting the string ") | |
1568 (prin1 str) | |
1569 (princ " in Quail mode.\n") | |
1570 (quail-help-insert-keymap-description | |
1571 (quail-conversion-keymap) | |
1557 "----------------------- | 1572 "----------------------- |
1558 key binding | 1573 key binding |
1559 --- -------\n") | 1574 --- -------\n")) |
1560 (goto-char (point-min)) | 1575 (help-mode))))) |
1561 (set-buffer-modified-p nil)) | |
1562 (display-buffer buf))) | |
1563 | |
1564 (defun quail-conversion-help () | |
1565 "Show help message while converting in Quail mode." | |
1566 (interactive) | |
1567 (let ((package quail-current-package) | |
1568 (str (buffer-substring (overlay-start quail-conv-overlay) | |
1569 (overlay-end quail-conv-overlay))) | |
1570 (buf (get-buffer-create "*Quail-Help*"))) | |
1571 (save-excursion | |
1572 (set-buffer buf) | |
1573 (erase-buffer) | |
1574 (setq quail-current-package package) | |
1575 (insert | |
1576 (format "You are converting the string \"%s\" in Quail mode.\n" str)) | |
1577 (quail-help-insert-keymap-description | |
1578 (quail-conversion-keymap) | |
1579 "----------------------- | |
1580 key binding | |
1581 --- -------\n") | |
1582 (goto-char (point-min)) | |
1583 (set-buffer-modified-p nil)) | |
1584 (display-buffer buf))) | |
1585 | 1576 |
1586 | 1577 |
1587 (defvar quail-directory-name "quail" | 1578 (defvar quail-directory-name "quail" |
1588 "Name of Quail directory which cotains Quail packages. | 1579 "Name of Quail directory which cotains Quail packages. |
1589 This is a sub-directory of LEIM directory.") | 1580 This is a sub-directory of LEIM directory.") |