diff options
| author | Jan Djärv <jan.h.d@swipnet.se> | 2002-03-10 16:29:34 +0000 |
|---|---|---|
| committer | Jan Djärv <jan.h.d@swipnet.se> | 2002-03-10 16:29:34 +0000 |
| commit | ca57f55d6f96265d73b4dfadcc82fc58c934e6be (patch) | |
| tree | 8b9504ab38aee5d9d77f735519891261f3ddfae9 /lisp | |
| parent | 941a391a0b3a8c3a663633b913395bd29e5e49dd (diff) | |
| download | emacs-ca57f55d6f96265d73b4dfadcc82fc58c934e6be.tar.gz emacs-ca57f55d6f96265d73b4dfadcc82fc58c934e6be.tar.bz2 emacs-ca57f55d6f96265d73b4dfadcc82fc58c934e6be.zip | |
(command-line): Add call to emacs-session-restore
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/startup.el | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/lisp/startup.el b/lisp/startup.el index b2f60380356..91364af7688 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -236,7 +236,8 @@ This is normally copied from `default-directory' when Emacs starts.") ("--cursor-color" 1 x-handle-switch cursor-color) ("--vertical-scroll-bars" 0 x-handle-switch vertical-scroll-bars t) ("--line-spacing" 1 x-handle-numeric-switch line-spacing) - ("--border-color" 1 x-handle-switch border-width)) + ("--border-color" 1 x-handle-switch border-width) + ("--smid" 1 x-handle-smid)) "Alist of X Windows options. Each element has the form (NAME NUMARGS HANDLER FRAME-PARAM VALUE) @@ -1028,7 +1029,12 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'." (command-line-1 (cdr command-line-args)) ;; If -batch, terminate after processing the command options. - (if noninteractive (kill-emacs t))) + (if noninteractive (kill-emacs t)) + + ;; Run emacs-session-restore (session management) if started by + ;; the session manager and we have a session manager connection. + (if (and (stringp x-session-previous-id) (stringp x-session-id)) + (emacs-session-restore))) (defcustom initial-scratch-message (purecopy "\ ;; This buffer is for notes you don't want to save, and for Lisp evaluation. |