SKK Part5 - 暇つぶし2ch

SKK Part5 ..

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

234:login:Penguin
 04/03/06 17:12 sfaiyf++
>>232 
試してみました。なかなか見易いと思います。 
アノテーションがあると色付かないようですが、 
そーいうエントリは少ないので殆ど問題無いかな。 
font-lockは全然分かってないので、自分であれこれ 
試行錯誤できないのが辛いっす。

235:login:Penguin
 04/03/06 21:10 9Mnms1BB
>>234 
アノテーションか、見逃してますた。これだとよさげ。 
(setq skk-jisyo-edit-font-lock-keywords 
 '(("^\$;; okuri-ari entries\\.\$$" 1 font-lock-keyword-face) 
   ("^\$;; okuri-nasi entries\\.\$$" 1 font-lock-keyword-face) 
   ("^\$;.+\$$" 1 font-lock-comment-face) 
   ("^\$[^; ]+ \$/" 1 font-lock-function-name-face) 
   ("\$\\[.+?/\\]\$" 1 font-lock-doc-face) 
   ("\$;[^/\n]*\$/" 1 font-lock-type-face t) 
   ("/\$[^/\n]+\$$" 1 highlight) 
   ("\$/\$" 1 font-lock-warning-face)))

236:login:Penguin
 04/03/06 23:16 sfaiyf++
>>235 
おー、バッチリです。tnx. 
 
久し振りに XEmacs立ち上げたので >>135をちょっと改訂。ほとんど検証してないけど。 
 
      (when kakutei-henkan 
        ;; A, S, D, F, ... なら 'ignoreに 
        (if (cond 
             ((featurep 'xemacs) 
              (memq (int-to-char (+ last-input-char (- ?a ?A))) ;[return] → ?\r 
                    skk-henkan-show-candidates-keys)) 
             (t 
              (and (numberp last-input-char) ;skk-henkan-in-minibuff で [return] → 'return, \C-m → 13 
                   (memq (+ (- ?a ?A) last-input-char) 
                         skk-henkan-show-candidates-keys)))) 
            (let ((skk-update-jisyo-function 'ignore)) 
              (skk-kakutei new-word)) 
          (skk-kakutei new-word)))))) 
 
FSF Emacsでは last-input-charは完全に last-input-eventと同値という事なのかな? 
read-char()と read-event()はちゃんと違うのにね。

次ページ