(defun f ()
"thisandthat."
(interactive)
(re-search-forward "[_a-zA-z]+" nil t)
(setq s (buffer-substring (match-beginning 0) (match-end 0)))
(delete-region (match-beginning 0) (match-end 0))
(insert "(*") (insert s) (insert ")")
(goto-char (+ (match-end 0) 3))
)
kkato (2010-09-10 19:32) | コメント(2)| トラックバック(0)
トラックバックURL:
プロフィール
kkato
・10年以上前からのdebian使いです。
・C++, Ruby, perl, ocamlなどの言語をよく使います。
・数値計算などが得意です。
・スパムメールの文面をよく読むのが好きです。
ホームページ:
http://sites.google.com/site/kimikazu/
カテゴリ
月別アーカイブ
Copyright (C) 2004-2011 Nihon Unisys, Ltd. All Rights Reserved.
Powered by Movable Type Open Source