714 |
(and command-line-args |
(and command-line-args |
715 |
(setcdr command-line-args args))) |
(setcdr command-line-args args))) |
716 |
|
|
717 |
;; Under X Windows, this creates the X frame and deletes the terminal frame. |
;; Under X Window, this creates the X frame and deletes the terminal frame. |
718 |
(when (fboundp 'frame-initialize) |
(when (fboundp 'frame-initialize) |
719 |
(frame-initialize)) |
(frame-initialize)) |
720 |
|
|
721 |
|
;; Turn off blinking cursor if so specified in X resources. This is here |
722 |
|
;; only because all other settings of no-blinking-cursor is here. |
723 |
|
(unless (or noninteractive |
724 |
|
emacs-basic-display |
725 |
|
(and (memq window-system '(x w32 mac)) |
726 |
|
(not (member (x-get-resource "cursorBlink" "CursorBlink") |
727 |
|
'("off" "false"))))) |
728 |
|
(setq no-blinking-cursor t)) |
729 |
|
|
730 |
;; If frame was created with a menu bar, set menu-bar-mode on. |
;; If frame was created with a menu bar, set menu-bar-mode on. |
731 |
(unless (or noninteractive |
(unless (or noninteractive |
732 |
emacs-basic-display |
emacs-basic-display |