SKK Part5 - 暇つぶし2ch

SKK Part5 ..

551:login:Penguin
08/11/19 04:30:15 vsis5MUZ
AAなどを辞書に登録しやすくするための関数を書いてみました.
リージョンをSKKの辞書形式でコピーします.
(defun copy-as-skk-jisyo-format ()
(interactive)
(if mark-active
(progn
(let (
(AA (buffer-substring (region-beginning) (region-end)))
)
(dolist (c '("\\\\" ";" "/" "\r" "\n" "\""))
(setq AA (replace-regexp-in-string c (concat "\\x" (format "%x" (string-to-char c))) AA nil t))
)
(kill-new (concat "(concat \"" AA "\")"))
))))

次ページ

続きを表示

1を表示