Mercurial > emacs
comparison lisp/startup.el @ 31736:64e334e97502
(fancy-splash-screen) <defgroup>: Fix syntax. Add
:version here.
(fancy-splash-delay, fancy-splash-image): Remove :version here.
author | Dave Love <fx@gnu.org> |
---|---|
date | Tue, 19 Sep 2000 17:04:52 +0000 |
parents | 7c35dd8b31dc |
children | 85e162a05e58 |
comparison
equal
deleted
inserted
replaced
31735:9d50fe5df6ce | 31736:64e334e97502 |
---|---|
1 ;;; startup.el --- process Emacs shell arguments | 1 ;;; startup.el --- process Emacs shell arguments |
2 | 2 |
3 ;; Copyright (C) 1985, 86, 92, 94, 95, 96, 97, 1998, 1999 Free Software Foundation, Inc. | 3 ;; Copyright (C) 1985, 86, 92, 94, 95, 96, 97, 98, 99, 2000 Free Software Foundation, Inc. |
4 | 4 |
5 ;; Maintainer: FSF | 5 ;; Maintainer: FSF |
6 ;; Keywords: internal | 6 ;; Keywords: internal |
7 | 7 |
8 ;; This file is part of GNU Emacs. | 8 ;; This file is part of GNU Emacs. |
871 "A list of texts to show in the middle part of splash screens. | 871 "A list of texts to show in the middle part of splash screens. |
872 Each element in the list should be a list of strings or pairs | 872 Each element in the list should be a list of strings or pairs |
873 `:face FACE', like `fancy-splash-insert' accepts them.") | 873 `:face FACE', like `fancy-splash-insert' accepts them.") |
874 | 874 |
875 | 875 |
876 (defgroup 'fancy-splash-screen | 876 (defgroup fancy-splash-screen () |
877 "Fancy splash screen when Emacs starts." | 877 "Fancy splash screen when Emacs starts." |
878 :version "21.1" | |
878 :group 'initialization) | 879 :group 'initialization) |
879 | 880 |
880 | 881 |
881 (defcustom fancy-splash-delay 5 | 882 (defcustom fancy-splash-delay 5 |
882 "Delay in seconds between splash screens." | 883 "Delay in seconds between splash screens." |
883 :group 'fancy-splash-screen | 884 :group 'fancy-splash-screen |
884 :version "21.1" | |
885 :type 'integer) | 885 :type 'integer) |
886 | 886 |
887 | 887 |
888 (defcustom fancy-splash-image "splash.xpm" | 888 (defcustom fancy-splash-image "splash.xpm" |
889 "The image to show in the splash screens." | 889 "The image to show in the splash screens." |
890 :group 'fancy-splash-screen | 890 :group 'fancy-splash-screen |
891 :version "21.1" | |
892 :type 'file) | 891 :type 'file) |
893 | 892 |
894 | 893 |
895 (defun fancy-splash-insert (&rest args) | 894 (defun fancy-splash-insert (&rest args) |
896 "Insert text into the current buffer, with faces. | 895 "Insert text into the current buffer, with faces. |