Mercurial > emacs
comparison lisp/startup.el @ 82079:3fea7e6764bd
(normal-splash-screen): Use `emacs-copyright'.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Tue, 24 Jul 2007 04:48:03 +0000 |
| parents | 55013a02cac0 |
| children | b98604865ea0 |
comparison
equal
deleted
inserted
replaced
| 82078:bbaf8f824e01 | 82079:3fea7e6764bd |
|---|---|
| 1561 Copying Conditions Conditions for redistributing and changing Emacs | 1561 Copying Conditions Conditions for redistributing and changing Emacs |
| 1562 Getting New Versions How to obtain the latest version of Emacs | 1562 Getting New Versions How to obtain the latest version of Emacs |
| 1563 More Manuals / Ordering Manuals How to order printed manuals from the FSF | 1563 More Manuals / Ordering Manuals How to order printed manuals from the FSF |
| 1564 ") | 1564 ") |
| 1565 (insert "\n\n" (emacs-version) | 1565 (insert "\n\n" (emacs-version) |
| 1566 " | 1566 "\n" emacs-copyright)) |
| 1567 Copyright (C) 2007 Free Software Foundation, Inc.")) | |
| 1568 | 1567 |
| 1569 ;; No mouse menus, so give help using kbd commands. | 1568 ;; No mouse menus, so give help using kbd commands. |
| 1570 | 1569 |
| 1571 ;; If keys have their default meanings, | 1570 ;; If keys have their default meanings, |
| 1572 ;; use precomputed string to save lots of time. | 1571 ;; use precomputed string to save lots of time. |
| 1609 (insert " | 1608 (insert " |
| 1610 \(`C-' means use the CTRL key. `M-' means use the Meta (or Alt) key. | 1609 \(`C-' means use the CTRL key. `M-' means use the Meta (or Alt) key. |
| 1611 If you have no Meta key, you may instead type ESC followed by the character.)") | 1610 If you have no Meta key, you may instead type ESC followed by the character.)") |
| 1612 | 1611 |
| 1613 (insert "\n\n" (emacs-version) | 1612 (insert "\n\n" (emacs-version) |
| 1614 " | 1613 "\n" emacs-copyright) |
| 1615 Copyright (C) 2007 Free Software Foundation, Inc.") | |
| 1616 | 1614 |
| 1617 (if (and (eq (key-binding "\C-h\C-c") 'describe-copying) | 1615 (if (and (eq (key-binding "\C-h\C-c") 'describe-copying) |
| 1618 (eq (key-binding "\C-h\C-d") 'describe-distribution) | 1616 (eq (key-binding "\C-h\C-d") 'describe-distribution) |
| 1619 (eq (key-binding "\C-h\C-w") 'describe-no-warranty)) | 1617 (eq (key-binding "\C-h\C-w") 'describe-no-warranty)) |
| 1620 (insert | 1618 (insert |