Variable: fancy-startup-text
fancy-startup-text is a variable defined in startup.el.gz.
Value
Large value
((:face
(variable-pitch font-lock-comment-face)
"Welcome to " :link
("GNU Emacs"
#[257 "\300\301!\207"
[browse-url "https://www.gnu.org/software/emacs/"]
3 "\n\n(fn BUTTON)"]
"Browse https://www.gnu.org/software/emacs/")
", one component of the " :link
#[0 "\301=\203\f�\302\303\304BB\207\305\306\307BB\207"
[system-type gnu/linux "GNU/Linux"
#[257 "\300\301!\207"
[browse-url "https://www.gnu.org/gnu/linux-and-gnu.html"]
3 "\n\n(fn BUTTON)"]
("Browse https://www.gnu.org/gnu/linux-and-gnu.html")
"GNU"
#[257 "\300\301!\207"
[browse-url "https://www.gnu.org/gnu/thegnuproject.html"]
3 "\n\n(fn BUTTON)"]
("Browse https://www.gnu.org/gnu/thegnuproject.html")]
3]
" operating system.\n\n" :face variable-pitch :link
("Emacs Tutorial"
#[257 "\300 \207"
[help-with-tutorial]
2 "\n\n(fn BUTTON)"])
" Learn basic keystroke commands"
#[0 "\302\303\"\206�\304\305\306\307\"r\211q\210\310\311\"\216\312\313 \"\314\"\210\315\316!\210e`S{*\262\304\230\2030�\317\207\320\321Q\207"
[current-language-environment tutorial-directory get-language-info tutorial "TUTORIAL" generate-new-buffer " *temp*" t make-closure
#[0 "\301\300!\205 �\302\300!\207"
[V0 buffer-name kill-buffer]
2]
insert-file-contents expand-file-name nil search-forward "." "" " (" ")"]
6]
"\n" :link
("Emacs Guided Tour"
#[257 "\300\301!\207"
[browse-url "https://www.gnu.org/software/emacs/tour/"]
3 "\n\n(fn BUTTON)"]
"Browse https://www.gnu.org/software/emacs/tour/")
" Overview of Emacs features at gnu.org\n" :link
("View Emacs Manual"
#[257 "\300 \207"
[info-emacs-manual]
2 "\n\n(fn BUTTON)"])
" View the Emacs manual using Info\n" :link
("Absence of Warranty"
#[257 "\300 \207"
[describe-no-warranty]
2 "\n\n(fn BUTTON)"])
" GNU Emacs comes with " :face
(variable-pitch
(:slant oblique))
"ABSOLUTELY NO WARRANTY\n" :face variable-pitch :link
("Copying Conditions"
#[257 "\300 \207"
[describe-copying]
2 "\n\n(fn BUTTON)"])
" Conditions for redistributing and changing Emacs\n" :link
("Ordering Manuals"
#[257 "\300 \207"
[view-order-manuals]
2 "\n\n(fn BUTTON)"])
" Purchasing printed copies of manuals\n" "\n"))
Documentation
A list of texts to show in the middle part of splash screens.
Each element in the list should be a list of strings or pairs
:face FACE, like fancy-splash-insert accepts them.
Source Code
;; Defined in /usr/src/emacs/lisp/startup.el.gz
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Fancy splash screen
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defconst fancy-startup-text
`((:face (variable-pitch font-lock-comment-face)
"Welcome to "
:link ("GNU Emacs"
,(lambda (_button) (browse-url "https://www.gnu.org/software/emacs/"))
"Browse https://www.gnu.org/software/emacs/")
", one component of the "
:link
,(lambda ()
(if (eq system-type 'gnu/linux)
`("GNU/Linux"
,(lambda (_button) (browse-url "https://www.gnu.org/gnu/linux-and-gnu.html"))
"Browse https://www.gnu.org/gnu/linux-and-gnu.html")
`("GNU" ,(lambda (_button)
(browse-url "https://www.gnu.org/gnu/thegnuproject.html"))
"Browse https://www.gnu.org/gnu/thegnuproject.html")))
" operating system.\n\n"
:face variable-pitch
:link ("Emacs Tutorial" ,(lambda (_button) (help-with-tutorial)))
"\tLearn basic keystroke commands"
,(lambda ()
(let* ((en "TUTORIAL")
(tut (or (get-language-info current-language-environment
'tutorial)
en))
(title (with-temp-buffer
(insert-file-contents
(expand-file-name tut tutorial-directory)
;; We used to read only the first 256 bytes of
;; the tutorial, but that prevents the coding:
;; setting, if any, in file-local variables
;; section to be seen by insert-file-contents,
;; and results in gibberish when the language
;; environment's preferred encoding is
;; different from what the file-local variable
;; says. One case in point is Hebrew.
nil)
(search-forward ".")
(buffer-substring (point-min) (1- (point))))))
;; If there is a specific tutorial for the current language
;; environment and it is not English, append its title.
(if (string= en tut)
""
(concat " (" title ")"))))
"\n"
:link ("Emacs Guided Tour"
,(lambda (_button)
(browse-url "https://www.gnu.org/software/emacs/tour/"))
"Browse https://www.gnu.org/software/emacs/tour/")
"\tOverview of Emacs features at gnu.org\n"
:link ("View Emacs Manual" ,(lambda (_button) (info-emacs-manual)))
"\tView the Emacs manual using Info\n"
:link ("Absence of Warranty" ,(lambda (_button) (describe-no-warranty)))
"\tGNU Emacs comes with "
:face (variable-pitch (:slant oblique))
"ABSOLUTELY NO WARRANTY\n"
:face variable-pitch
:link ("Copying Conditions" ,(lambda (_button) (describe-copying)))
"\tConditions for redistributing and changing Emacs\n"
:link ("Ordering Manuals" ,(lambda (_button) (view-order-manuals)))
"\tPurchasing printed copies of manuals\n"
"\n"))
"A list of texts to show in the middle part of splash screens.
Each element in the list should be a list of strings or pairs
`:face FACE', like `fancy-splash-insert' accepts them.")