--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/buffer-edit/insert-line-to-buffer.el	Mon Aug 25 21:14:00 2008 +0900
@@ -0,0 +1,16 @@
+;; 
+;; insert-line-to-buffer.el ... 指定したバッファの、指定した行に、指定した文字列を挿入。
+;; buf : 編集するバッファ
+;; lineno : 編集するbufの行番号
+;; str : lineno行目に挿入する文字列
+
+(defun insert-line-to-buffer (buf lineno str)
+  (let ((oldbuf (current-buffer)))
+    (save-current-buffer
+      (set-buffer (get-buffer-create buf))
+      (goto-line lineno) ;;指定の行位置へ移動
+      ;; 行頭から末尾までのテキストを削除
+      (delete-region (progn (beginning-of-line) (point))
+		     (progn (end-of-line) (point)))
+      ;; 新しい行を挿入
+      (insert str))))
\ No newline at end of file