レス数が1000を超えています。残念ながら全部は表示しません。

SKK専用スレッド

581 ：580 ：01/12/20 09:46

例えば
(defun skk-insert-comma (arg)
(interactive "P")
(insert
(let (c)
(if (bobp)
"、"
(setq c (char-to-string (char-before)))
(if (string-match "[0-9,.]" c)
","
"、")))))
こんな感じかな?
;; buffer の先頭での',' が',' か'、'かは微妙だが

read.cgi ver5.26+ (01/10/21-)