Mercurial > emacs
comparison lisp/international/quail.el @ 41538:63a5d03689eb
(quail-help): Require help-mode in top-level instead.
author | Pavel Janík <Pavel@Janik.cz> |
---|---|
date | Mon, 26 Nov 2001 07:36:00 +0000 |
parents | f2e8fb1e1928 |
children | 281baedc1a99 |
comparison
equal
deleted
inserted
replaced
41537:c2c6a8f6067a | 41538:63a5d03689eb |
---|---|
41 ;; alphabets) to Hiragana text, which is then converted to | 41 ;; alphabets) to Hiragana text, which is then converted to |
42 ;; Kanji-and-Kana mixed text or Katakana text by commands specified in | 42 ;; Kanji-and-Kana mixed text or Katakana text by commands specified in |
43 ;; CONVERSION-KEYS argument of the Quail package. | 43 ;; CONVERSION-KEYS argument of the Quail package. |
44 | 44 |
45 ;;; Code: | 45 ;;; Code: |
46 | |
47 (require 'help-mode) | |
46 | 48 |
47 (defgroup quail nil | 49 (defgroup quail nil |
48 "Quail: multilingual input method." | 50 "Quail: multilingual input method." |
49 :group 'leim) | 51 :group 'leim) |
50 | 52 |
2409 (defun quail-help (&optional package) | 2411 (defun quail-help (&optional package) |
2410 "Show brief description of the current Quail package. | 2412 "Show brief description of the current Quail package. |
2411 Optional arg PACKAGE specifies the name of alternative Quail | 2413 Optional arg PACKAGE specifies the name of alternative Quail |
2412 package to describe." | 2414 package to describe." |
2413 (interactive) | 2415 (interactive) |
2414 (require 'help-mode) | |
2415 (let ((help-xref-mule-regexp help-xref-mule-regexp-template) | 2416 (let ((help-xref-mule-regexp help-xref-mule-regexp-template) |
2416 (default-enable-multibyte-characters enable-multibyte-characters) | 2417 (default-enable-multibyte-characters enable-multibyte-characters) |
2417 (package-def | 2418 (package-def |
2418 (if package | 2419 (if package |
2419 (assoc package quail-package-alist) | 2420 (assoc package quail-package-alist) |