[xyzzy:09057] Re: カナ入力モードでは、Alt+ で半角カナが入力される

[southly <southly@xxxxxxxxxxxx>]

NANRIです。

お役に立てたようでよかったです。

自分はローマ字入力なので判断できなかったんですが、
回避策として使えそうなのでWikiにも上げておくことにします。

もうひとつ。
早速なのですが、バグに気付きました。
末尾に修正を示しておきます。
# Wikiのも最新なのでそちらでも OK です。

以上です。
-----
NANRI
southly@xxxxxxxxxxxx

--- hankana.l~	Sat Sep 18 05:15:38 2004
+++ hankana.l	Sat Sep 18 05:17:38 2004
@@ -2,12 +2,11 @@
 
 (defun self-insert-command (&optional (arg 1))
   (interactive "*p")
-  (when (< #xA0 (char-code *last-command-char*) #xDF)
+  (when (<= #xA0 (char-code *last-command-char*) #xDF)
     (let ((key (gethash *last-command-char* *hankana2key* nil))
           (command nil))
       (and key
-           (setq command (or (lookup-keymap (local-keymap) key)
-                             (lookup-keymap *global-keymap* key)))
+           (setq command (lookup-key-command key))
            (progn
              (call-interactively command)
              (return-from self-insert-command t)))))