mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-05 20:43:08 +00:00
Code Issues Releases Activity

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

Browse Source 
the same translations as for `japanese'.
This commit is contained in:
Gerd Moellmann 2001-04-05 10:09:36 +00:00
parent dc2f8de441
commit 5853ec9c7c
1 changed files with 23 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
leim/quail/japanese.el
View File

@ -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)))))