290 |
(kill-buffer buf) |
(kill-buffer buf) |
291 |
cancel-shutdown)))) |
cancel-shutdown)))) |
292 |
|
|
293 |
(defun emacs-session-restore () |
(defun emacs-session-restore (previous-session-id) |
294 |
"Restore the Emacs session if started by a session manager. |
"Restore the Emacs session if started by a session manager. |
295 |
The file saved by `emacs-session-save' is evaluated and deleted if it |
The file saved by `emacs-session-save' is evaluated and deleted if it |
296 |
exists." |
exists." |
297 |
(let ((filename (emacs-session-filename x-session-previous-id))) |
(let ((filename (emacs-session-filename previous-session-id))) |
298 |
(when (file-exists-p filename) |
(when (file-exists-p filename) |
299 |
(load-file filename) |
(load-file filename) |
300 |
(delete-file filename) |
(delete-file filename) |