Commit 5853ec9c authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

("japanese-hankaku-kana"): Don't use

the same translations as for `japanese'.
parent dc2f8de4
......@@ -485,9 +485,24 @@ qq: toggle between this input method and the input method `japanese-ascii'.
nil t t nil nil nil nil nil
'quail-japanese-hankaku-update-translation)
;; Use the same map as that of `japanese'.
(setcar (cdr (cdr quail-current-package))
(nth 2 (assoc "japanese" quail-package-alist)))
(dolist (elt quail-japanese-transliteration-rules)
(quail-defrule (car elt)
(let ((trans (nth 1 elt)))
(when (or (stringp trans) (vectorp trans))
(let ((s (japanese-hankaku (if (stringp trans)
trans
(aref trans 0)))))
;; If the result of the conversion is a string
;; containing more than one character, make the
;; result a vector, so that quail-defrule
;; recognizes the whole string is the
;; translation, instead of interpreting
;; individual characters as alternative
;; translations.
(if (and (stringp s) (> (length s) 1))
(setq trans (vector s))
(setq trans s))))
trans)))
(quail-define-package
"japanese-hiragana" "Japanese" "$B$"(B"
......@@ -520,9 +535,9 @@ qq: toggle between this input method and the input method `japanese-ascii'.
(dolist (elt quail-japanese-transliteration-rules)
(quail-defrule (car elt)
(let ((trans (nth 1 elt)))
(cond((stringp trans)
(japanese-katakana trans))
((vectorp trans)
(vector (japanese-katakana (aref trans 0))))
(t trans)))))
(cond ((stringp trans)
(japanese-katakana trans))
((vectorp trans)
(vector (japanese-katakana (aref trans 0))))
(t trans)))))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment