/[emacs]/emacs/lisp/startup.el
ViewVC logotype

Diff of /emacs/lisp/startup.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.290 by rms, Wed Feb 6 14:59:10 2002 UTC revision 1.290.2.1 by fx, Thu Jul 18 11:09:22 2002 UTC
# Line 1  Line 1 
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
# Line 1168  where FACE is a valid face specification Line 1168  where FACE is a valid face specification
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")
# Line 1191  where FACE is a valid face specification Line 1194  where FACE is a valid face specification
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

Legend:
Removed from v.1.290  
changed lines
  Added in v.1.290.2.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26