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. |