Variable: fancy-about-text
fancy-about-text is a variable defined in startup.el.gz.
Value
Large value
((:face
(variable-pitch font-lock-comment-face)
"This is " :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 \207"
[describe-gnu-project]
2 "\n\n(fn BUTTON)"]
("Display info on the GNU project.")]
3]
" operating system.\n" :face
(variable-pitch font-lock-builtin-face)
"\n"
#[0 "\300 \207"
[emacs-version]
1]
"\n" :face
(variable-pitch
(:height 0.8))
#[0 "\207"
[emacs-copyright]
1]
"\n\n" :face variable-pitch :link
("Authors"
#[257 "\301\302\303\"!\210eb\207"
[data-directory view-file expand-file-name "AUTHORS"]
5 "\n\n(fn BUTTON)"])
" Many people have contributed code included in GNU Emacs\n" :link
("Contributing"
#[257 "\300\301!\207"
[info "(emacs)Contributing"]
3 "\n\n(fn BUTTON)"])
" How to report bugs and contribute improvements to Emacs\n" "\n" :link
("GNU and Freedom"
#[257 "\300 \207"
[describe-gnu-project]
2 "\n\n(fn BUTTON)"])
" Why we developed GNU Emacs, and the GNU operating system\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
("Getting New Versions"
#[257 "\300 \207"
[describe-distribution]
2 "\n\n(fn BUTTON)"])
" How to obtain the latest version of Emacs\n" :link
("Ordering Manuals"
#[257 "\300 \207"
[view-order-manuals]
2 "\n\n(fn BUTTON)"])
" Buying printed manuals from the FSF\n" "\n" :link
("Emacs Tutorial"
#[257 "\300 \207"
[help-with-tutorial]
2 "\n\n(fn BUTTON)"])
" Learn basic Emacs 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/")
" See an overview of Emacs features at gnu.org\n" :link
("Emacs Manual"
#[257 "\300 \207"
[info-emacs-manual]
2 "\n\n(fn BUTTON)"])
" Display the Emacs manual in Info mode"))
Documentation
A list of texts to show in the middle part of the About screen.
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
(defconst fancy-about-text
`((:face (variable-pitch font-lock-comment-face)
"This is "
: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) (describe-gnu-project))
"Display info on the GNU project.")))
" operating system.\n"
:face (variable-pitch font-lock-builtin-face)
"\n"
,(lambda () (emacs-version))
"\n"
:face (variable-pitch (:height 0.8))
,(lambda () emacs-copyright)
"\n\n"
:face variable-pitch
:link ("Authors"
,(lambda (_button)
(view-file (expand-file-name "AUTHORS" data-directory))
(goto-char (point-min))))
"\tMany people have contributed code included in GNU Emacs\n"
:link ("Contributing"
,(lambda (_button) (info "(emacs)Contributing")))
"\tHow to report bugs and contribute improvements to Emacs\n"
"\n"
:link ("GNU and Freedom" ,(lambda (_button) (describe-gnu-project)))
"\tWhy we developed GNU Emacs, and the GNU operating system\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 ("Getting New Versions" ,(lambda (_button) (describe-distribution)))
"\tHow to obtain the latest version of Emacs\n"
:link ("Ordering Manuals" ,(lambda (_button) (view-order-manuals)))
"\tBuying printed manuals from the FSF\n"
"\n"
:link ("Emacs Tutorial" ,(lambda (_button) (help-with-tutorial)))
"\tLearn basic Emacs 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)
;; Read the entire file, to make sure any
;; coding cookies and other local variables
;; get acted upon.
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/")
"\tSee an overview of Emacs features at gnu.org\n"
:link ("Emacs Manual" ,(lambda (_button) (info-emacs-manual)))
"\tDisplay the Emacs manual in Info mode"))
"A list of texts to show in the middle part of the About screen.
Each element in the list should be a list of strings or pairs
`:face FACE', like `fancy-splash-insert' accepts them.")