equal
deleted
inserted
replaced
1096 "Nice day for Emacsing!")) ) |
1096 "Nice day for Emacsing!")) ) |
1097 (message (nth (random (length mgs-list)) mgs-list))))) |
1097 (message (nth (random (length mgs-list)) mgs-list))))) |
1098 |
1098 |
1099 ;; Size of emacs area and its position. |
1099 ;; Size of emacs area and its position. |
1100 (when window-system |
1100 (when window-system |
1101 ;; This size for 1280x1024 resolusion and 13pt font to occupy almost all screen. |
|
1102 (run-at-time (format "%d sec" 1) nil '(lambda () (set-frame-position (selected-frame) 1 1))) |
1101 (run-at-time (format "%d sec" 1) nil '(lambda () (set-frame-position (selected-frame) 1 1))) |
1103 (run-at-time (format "%d sec" 2) nil '(lambda () (set-frame-width (selected-frame) 150 t))) |
1102 (when (boundp 'my-frame-width) |
1104 (run-at-time (format "%d sec" 3) nil '(lambda () (set-frame-height (selected-frame) 60 t))) |
1103 (run-at-time (format "%d sec" 2) nil '(lambda () (set-frame-width (selected-frame) my-frame-width t))) ) |
|
1104 (when (boundp 'my-frame-height) |
|
1105 (run-at-time (format "%d sec" 3) nil '(lambda () (set-frame-height (selected-frame) my-frame-height t))) ) |
1105 ) |
1106 ) |
1106 |
1107 |
1107 ;; End loading... |
1108 ;; End loading... |