1 |
;;; startup.el --- process Emacs shell arguments |
;;; startup.el --- process Emacs shell arguments |
2 |
|
|
3 |
;; Copyright (C) 1985, 86, 92, 94, 95, 96, 97, 98, 99, 2000, 2001 |
;; Copyright (C) 1985, 86, 92, 94, 95, 96, 97, 98, 99, 2000, 01, 02 |
4 |
;; Free Software Foundation, Inc. |
;; Free Software Foundation, Inc. |
5 |
|
|
6 |
;; Maintainer: FSF |
;; Maintainer: FSF |
1168 |
(insert-image img (propertize "xxx" 'help-echo help-echo |
(insert-image img (propertize "xxx" 'help-echo help-echo |
1169 |
'keymap map))) |
'keymap map))) |
1170 |
(insert "\n")))) |
(insert "\n")))) |
1171 |
|
(fancy-splash-insert |
1172 |
|
:face '(variable-pitch :background "red") |
1173 |
|
"\n!! This version is ALPHA status. It may lose your data!!\n\n") |
1174 |
(if (eq system-type 'gnu/linux) |
(if (eq system-type 'gnu/linux) |
1175 |
(fancy-splash-insert |
(fancy-splash-insert |
1176 |
:face '(variable-pitch :foreground "red") |
:face '(variable-pitch :foreground "red") |
1194 |
(emacs-version) |
(emacs-version) |
1195 |
"\n" |
"\n" |
1196 |
:face '(variable-pitch :height 0.5) |
:face '(variable-pitch :height 0.5) |
1197 |
"Copyright (C) 2001 Free Software Foundation, Inc.") |
"Copyright (C) 2002 Free Software Foundation, Inc.") |
1198 |
(and auto-save-list-file-prefix |
(and auto-save-list-file-prefix |
1199 |
;; Don't signal an error if the |
;; Don't signal an error if the |
1200 |
;; directory for auto-save-list files |
;; directory for auto-save-list files |