- 551 名前：login:Penguin mailto:sage [2008/11/19(水) 04:30:15 ID: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 "\")"))
))))
