mirror of
git://git.sv.gnu.org/emacs.git
synced 2025-12-15 10:30:25 -08:00
(emacs-session-restore): Take previous id as an argument.
This commit is contained in:
parent
70646cf0fc
commit
1e4f6cec82
2 changed files with 10 additions and 2 deletions
|
|
@ -1,3 +1,11 @@
|
|||
2002-03-12 Jan D. <Jan.Djarv@mbox200.swipnet.se>
|
||||
|
||||
* term/x-win.el (emacs-session-restore): Take previous id as
|
||||
an argument.
|
||||
|
||||
* startup.el (command-line): Must check that x-session-previous-id
|
||||
is bound also, for non-X platforms.
|
||||
|
||||
2002-03-12 Gerd Moellmann <gerd@gnu.org>
|
||||
|
||||
* emacs-lisp/cl-indent.el (lisp-loop-keyword-indentation)
|
||||
|
|
|
|||
|
|
@ -290,11 +290,11 @@ that it should abort the window system shutdown."
|
|||
(kill-buffer buf)
|
||||
cancel-shutdown))))
|
||||
|
||||
(defun emacs-session-restore ()
|
||||
(defun emacs-session-restore (previous-session-id)
|
||||
"Restore the Emacs session if started by a session manager.
|
||||
The file saved by `emacs-session-save' is evaluated and deleted if it
|
||||
exists."
|
||||
(let ((filename (emacs-session-filename x-session-previous-id)))
|
||||
(let ((filename (emacs-session-filename previous-session-id)))
|
||||
(when (file-exists-p filename)
|
||||
(load-file filename)
|
||||
(delete-file filename)
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue