- 830 名前：823 mailto:sage [2007/01/14(日) 03:25:03 ]
- レス下さった方々、どうもありがとうございました。
非常に無駄な処理をしていますが、望む結果が得られました。
(defun change-font ()
(interactive)
(let ((p (point)))
(goto-char (point-min))
(while (not (eobp))
(if (search-forward "Led Hat" nil t) (replace-match "赤帽")
(forward-line 1)))
(goto-char (point-min))
(while (not (eobp))
(if (search-forward "Vine" nil t) (replace-match "葡萄")
(forward-line 1)))
(goto-char (point-min))
(while (not (eobp))
(if (search-forward "Windows" nil t) (replace-match "窓")
(forward-line 1)))
(goto-char p)))
過去ログ読んで勉強してきます。
|
 |
