[表示 : 全て 最新50 1-99 101- 201- 301- 401- 501- 601- 701- 801- 901- 2chのread.cgiへ]
Update time : 05/09 22:28 / Filesize : 293 KB / Number-of Response : 920
[このスレッドの書き込みを削除する]
[+板 最近立ったスレ&熱いスレ一覧 : +板 最近立ったスレ/記者別一覧] [類似スレッド一覧]


↑キャッシュ検索、類似スレ動作を修正しました、ご迷惑をお掛けしました

xyzzyの使い方が分からぬやし 励ましあえ その11



629 名前:名無しさん@お腹いっぱい。 mailto:sage [2008/04/16(水) 13:27:05 ID:shO2krtg0]
>>628
357行目 remember-append-to-fileを
(defun remember-append-to-file ()
(let ((text (buffer-substring (point-min) (point-max)))
(desc (remember-buffer-desc)))
(remember-with-temp-buffer
(insert "\n" remember-leader-text (format-date-string remember-date-format)
" (" desc ")\n\n" text)
(if (not (bolp)) (insert "\n"))
(if (get-file-buffer remember-data-file)
(let ((remember-text (buffer-substring (point-min) (point-max))))
(set-buffer (get-file-buffer remember-data-file))
(save-excursion
(insert remember-text)
(save-buffer)))
(progn (insert-file remember-data-file)
(write-region (point-min) (point-max) remember-data-file
nil remember-char-encoding remember-eol-code))))))






[ 続きを読む ] / [ 携帯版 ]

全部読む 前100 次100 最新50 [ このスレをブックマーク! 携帯に送る ] 2chのread.cgiへ
[+板 最近立ったスレ&熱いスレ一覧 : +板 最近立ったスレ/記者別一覧]( ´∀`)<293KB

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef