- 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))))))
|
 |
