Mercurial > emacs
comparison lisp/startup.el @ 105765:db5e4a5897ec
* textmodes/tex-mode.el (tex-dvi-view-command)
(tex-show-queue-command, tex-open-quote):
* progmodes/ruby-mode.el (auto-mode-alist)
(interpreter-mode-alist): Purecopy strings.
* emacs-lisp/lisp-mode.el (emacs-lisp-mode-map): Purecopy item names.
* emacs-lisp/derived.el (define-derived-mode): Purecopy the doc
string for the hook, keymap and abbrev table.
* emacs-lisp/byte-run.el (make-obsolete): Purecopy the current name.
* x-dnd.el (x-dnd-xdnd-to-action):
* startup.el (fancy-startup-text, fancy-about-text): Change to
defconst from defvar.
* ps-print.el (ps-page-dimensions-database): Purecopy initial value.
* mouse.el (mouse-buffer-menu-mode-groups, x-fixed-font-alist):
Purecopy initialization strings.
* mail/sendmail.el (mail-header-separator)
(mail-personal-alias-file):
* mail/rmail.el (rmail-default-dont-reply-to-names)
(rmail-ignored-headers, rmail-retry-ignored-headers)
(rmail-highlighted-headers, rmail-secondary-file-directory)
(rmail-secondary-file-regexp):
* files.el (null-device, file-name-invalid-regexp)
(locate-dominating-stop-dir-regexp)
(inhibit-first-line-modes-regexps): Purecopy initialization
strings.
(interpreter-mode-alist): Use mapcar instead of mapc.
* buff-menu.el (Buffer-menu-mode-map): Purecopy name.
* bindings.el (mode-line-major-mode-keymap): Purecopy name.
(completion-ignored-extensions):
(debug-ignored-errors): Purecopy strings.
author | Dan Nicolaescu <dann@ics.uci.edu> |
---|---|
date | Mon, 26 Oct 2009 06:43:36 +0000 |
parents | 4cbb223d0b1c |
children | 0ad1fc06bfc8 |
comparison
equal
deleted
inserted
replaced
105764:a5db863758a8 | 105765:db5e4a5897ec |
---|---|
1238 | 1238 |
1239 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | 1239 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
1240 ;;; Fancy splash screen | 1240 ;;; Fancy splash screen |
1241 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | 1241 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
1242 | 1242 |
1243 (defvar fancy-startup-text | 1243 (defconst fancy-startup-text |
1244 '((:face (variable-pitch (:foreground "red")) | 1244 '((:face (variable-pitch (:foreground "red")) |
1245 "Welcome to " | 1245 "Welcome to " |
1246 :link ("GNU Emacs" | 1246 :link ("GNU Emacs" |
1247 (lambda (button) (browse-url "http://www.gnu.org/software/emacs/")) | 1247 (lambda (button) (browse-url "http://www.gnu.org/software/emacs/")) |
1248 "Browse http://www.gnu.org/software/emacs/") | 1248 "Browse http://www.gnu.org/software/emacs/") |
1294 "\n")) | 1294 "\n")) |
1295 "A list of texts to show in the middle part of splash screens. | 1295 "A list of texts to show in the middle part of splash screens. |
1296 Each element in the list should be a list of strings or pairs | 1296 Each element in the list should be a list of strings or pairs |
1297 `:face FACE', like `fancy-splash-insert' accepts them.") | 1297 `:face FACE', like `fancy-splash-insert' accepts them.") |
1298 | 1298 |
1299 (defvar fancy-about-text | 1299 (defconst fancy-about-text |
1300 '((:face (variable-pitch (:foreground "red")) | 1300 '((:face (variable-pitch (:foreground "red")) |
1301 "This is " | 1301 "This is " |
1302 :link ("GNU Emacs" | 1302 :link ("GNU Emacs" |
1303 (lambda (button) (browse-url "http://www.gnu.org/software/emacs/")) | 1303 (lambda (button) (browse-url "http://www.gnu.org/software/emacs/")) |
1304 "Browse http://www.gnu.org/software/emacs/") | 1304 "Browse http://www.gnu.org/software/emacs/") |