equal
deleted
inserted
replaced
1068 (let ( (mgs-list '("Welcome to emacs, the thermonuclear editor." |
1068 (let ( (mgs-list '("Welcome to emacs, the thermonuclear editor." |
1069 "You enter to Out Space. Emacs on." |
1069 "You enter to Out Space. Emacs on." |
1070 "Nice day for Emacsing!")) ) |
1070 "Nice day for Emacsing!")) ) |
1071 (message (nth (random (length mgs-list)) mgs-list))))) |
1071 (message (nth (random (length mgs-list)) mgs-list))))) |
1072 |
1072 |
|
1073 ;; Size of emacs area and its position. |
|
1074 (when window-system |
|
1075 ;; This size for 1280x1024 resolusion and 13pt font to occupy almost all screen. |
|
1076 (run-at-time (format "%d sec" 1) nil '(lambda () (set-frame-position (selected-frame) 1 1))) |
|
1077 (run-at-time (format "%d sec" 2) nil '(lambda () (set-frame-width (selected-frame) 150 t))) |
|
1078 (run-at-time (format "%d sec" 3) nil '(lambda () (set-frame-height (selected-frame) 60 t))) |
|
1079 ) |
|
1080 |
1073 ;; End loading... |
1081 ;; End loading... |