07/07/13 15:32:14 NM/xRDYc0
>>711
(defun write-scratch ()
(let ((buf (find-buffer "*scratch*")))
(when buf
(save-window-excursion
(set-buffer buf)
(set-buffer-file-name "~/scratch")
(save-buffer)
(set-buffer-file-name nil)))))
(defun resume-scratch ()
(let ((f "~/scratch"))
(when (file-exist-p f)
(save-window-excursion
(set-buffer (find-buffer "*scratch*"))
(insert-file-contents f t)
;(set-buffer-file-name "~/scratch")
))))
(add-hook '*kill-xyzzy-hook* 'write-scratch)
(add-hook '*post-startup-hook* 'resume-scratch)