236 |
("--cursor-color" 1 x-handle-switch cursor-color) |
("--cursor-color" 1 x-handle-switch cursor-color) |
237 |
("--vertical-scroll-bars" 0 x-handle-switch vertical-scroll-bars t) |
("--vertical-scroll-bars" 0 x-handle-switch vertical-scroll-bars t) |
238 |
("--line-spacing" 1 x-handle-numeric-switch line-spacing) |
("--line-spacing" 1 x-handle-numeric-switch line-spacing) |
239 |
("--border-color" 1 x-handle-switch border-width)) |
("--border-color" 1 x-handle-switch border-width) |
240 |
|
("--smid" 1 x-handle-smid)) |
241 |
"Alist of X Windows options. |
"Alist of X Windows options. |
242 |
Each element has the form |
Each element has the form |
243 |
(NAME NUMARGS HANDLER FRAME-PARAM VALUE) |
(NAME NUMARGS HANDLER FRAME-PARAM VALUE) |
1029 |
(command-line-1 (cdr command-line-args)) |
(command-line-1 (cdr command-line-args)) |
1030 |
|
|
1031 |
;; If -batch, terminate after processing the command options. |
;; If -batch, terminate after processing the command options. |
1032 |
(if noninteractive (kill-emacs t))) |
(if noninteractive (kill-emacs t)) |
1033 |
|
|
1034 |
|
;; Run emacs-session-restore (session management) if started by |
1035 |
|
;; the session manager and we have a session manager connection. |
1036 |
|
(if (and (stringp x-session-previous-id) (stringp x-session-id)) |
1037 |
|
(emacs-session-restore))) |
1038 |
|
|
1039 |
(defcustom initial-scratch-message (purecopy "\ |
(defcustom initial-scratch-message (purecopy "\ |
1040 |
;; This buffer is for notes you don't want to save, and for Lisp evaluation. |
;; This buffer is for notes you don't want to save, and for Lisp evaluation. |