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 "\301\302\303!)\207"
[browse-url-browser-function eww-browse-url browse-url
"https://www.gnu.org/software/emacs/"]
3 ("startup.elc" . 48515)]
"Browse https://www.gnu.org/software/emacs/")
", a text editor and more.\nIt's a component of the " :link
#[0 "\301=\203\f�\302\303\304BB\207\305\306\307BB\207"
[system-type gnu/linux "GNU/Linux"
#[257 "\301\302\303!)\207"
[browse-url-browser-function
eww-browse-url browse-url
"https://www.gnu.org/gnu/linux-and-gnu.html"]
3 ("startup.elc" . 48515)]
("Browse https://www.gnu.org/gnu/linux-and-gnu.html")
"GNU"
#[257 "\301\302 )\207"
[browse-url-browser-function
eww-browse-url describe-gnu-project]
2 ("startup.elc" . 48515)]
("Display info on the GNU project.")]
3]
" operating system.\n" :face
(variable-pitch font-lock-builtin-face) "\n"
#[0
"\300\301\302\"r\211q\210\303\304\"\216\305 c\210\306ed\"\210\307 *\207"
[generate-new-buffer " *temp*" t make-closure
#[0
"\301\300!\205 �\302\300!\207"
[V0 buffer-name kill-buffer] 2]
emacs-version fill-region buffer-string]
4]
"\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
("startup.elc" . 48515)])
" Many people have contributed code included in GNU Emacs\n"
:link
("Contributing"
#[257 "\300\301!\207" [info "(emacs)Contributing"] 3
("startup.elc" . 48515)])
" How to report bugs and contribute improvements to Emacs\n"
"\n" :link
("GNU and Freedom"
#[257 "\301\302 )\207"
[browse-url-browser-function eww-browse-url
describe-gnu-project]
2 ("startup.elc" . 48515)])
" Why we developed GNU Emacs, and the GNU operating system\n"
:link
("Absence of Warranty"
#[257 "\300 \207" [describe-no-warranty] 2
("startup.elc" . 48515)])
" 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
("startup.elc" . 48515)])
" Conditions for redistributing and changing Emacs\n"
:link
("Getting New Versions"
#[257 "\300 \207" [describe-distribution] 2
("startup.elc" . 48515)])
" How to obtain the latest version of Emacs\n" :link
("Ordering Manuals"
#[257 "\300 \207" [view-order-manuals] 2
("startup.elc" . 48515)])
" Buying printed manuals from the FSF\n" "\n" :link
("Emacs Tutorial"
#[257 "\300 \207" [help-with-tutorial] 2
("startup.elc" . 48515)])
" 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 "\301\302\303!)\207"
[browse-url-browser-function eww-browse-url browse-url
"https://www.gnu.org/software/emacs/tour/"]
3 ("startup.elc" . 48515)]
"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
("startup.elc" . 48515)])
" 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
:KEYWORD VALUE, like what fancy-splash-insert accepts.
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)
(let ((browse-url-browser-function 'eww-browse-url))
(browse-url "https://www.gnu.org/software/emacs/")))
"Browse https://www.gnu.org/software/emacs/")
", a text editor and more.\nIt's a component of the "
:link
,(lambda ()
(if (eq system-type 'gnu/linux)
`("GNU/Linux"
,(lambda (_button)
(let ((browse-url-browser-function 'eww-browse-url))
(browse-url "https://www.gnu.org/gnu/linux-and-gnu.html")))
"Browse https://www.gnu.org/gnu/linux-and-gnu.html")
`("GNU" ,(lambda (_button)
(let ((browse-url-browser-function 'eww-browse-url))
(describe-gnu-project)))
"Display info on the GNU project.")))
" operating system.\n"
:face (variable-pitch font-lock-builtin-face)
"\n"
,(lambda ()
(with-temp-buffer
(insert (emacs-version))
(fill-region (point-min) (point-max))
(buffer-string)))
"\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)
(let ((browse-url-browser-function 'eww-browse-url))
(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)
(let ((browse-url-browser-function 'eww-browse-url))
(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
`:KEYWORD VALUE', like what `fancy-splash-insert' accepts.")