Mercurial > emacs

comparison lisp/startup.el @ 82470:233c02d7607c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(normal-splash-screen): Add more links.
author Juri Linkov <juri@jurta.org>
date Sun, 19 Aug 2007 16:04:45 +0000
parents 4f98fbdaf9ce
children d06f03347805
comparison
equal deleted inserted replaced
82469:906b3892481e 82470:233c02d7607c
1610 (eq (key-binding "\C-x\C-c") 'save-buffers-kill-emacs) 1610 (eq (key-binding "\C-x\C-c") 'save-buffers-kill-emacs)
1611 (eq (key-binding "\C-ht") 'help-with-tutorial) 1611 (eq (key-binding "\C-ht") 'help-with-tutorial)
1612 (eq (key-binding "\C-hi") 'info) 1612 (eq (key-binding "\C-hi") 'info)
1613 (eq (key-binding "\C-hr") 'info-emacs-manual) 1613 (eq (key-binding "\C-hr") 'info-emacs-manual)
1614 (eq (key-binding "\C-h\C-n") 'view-emacs-news)) 1614 (eq (key-binding "\C-h\C-n") 'view-emacs-news))
1615 (insert " 1615 (progn
1616 (insert "
1616 Get help C-h (Hold down CTRL and press h) 1617 Get help C-h (Hold down CTRL and press h)
1617 Emacs manual C-h r Browse manuals C-h i 1618 ")
1618 Emacs tutorial C-h t Undo changes C-x u 1619 (insert-button "Emacs manual"
1619 Buy manuals C-h C-m Exit Emacs C-x C-c") 1620 'action (lambda (button) (info-emacs-manual))
1620 1621 'follow-link t)
1621 (insert (substitute-command-keys 1622 (insert " C-h r ")
1622 (format " 1623 (insert-button "Browse manuals"
1624 'action (lambda (button) (Info-directory))
1625 'follow-link t)
1626 (insert " C-h i
1627 ")
1628 (insert-button "Emacs tutorial"
1629 'action (lambda (button) (help-with-tutorial))
1630 'follow-link t)
1631 (insert " C-h t Undo changes C-x u
1632 ")
1633 (insert-button "Buy manuals"
1634 'action (lambda (button) (view-order-manuals))
1635 'follow-link t)
1636 (insert " C-h C-m Exit Emacs C-x C-c"))
1637
1638 (insert (format "
1623 Get help %s 1639 Get help %s
1624 Emacs manual \\[info-emacs-manual]\tBrowse manuals\t\\[info] 1640 "
1625 Emacs tutorial \\[help-with-tutorial]\tUndo changes\t\\[advertised-undo] 1641 (let ((where (where-is-internal
1626 Buy manuals \\[view-order-manuals]\tExit Emacs\t\\[save-buffers-kill-emacs]" 1642 'help-command nil t)))
1627 (let ((where (where-is-internal 1643 (if where
1628 'help-command nil t))) 1644 (key-description where)
1629 (if where 1645 "M-x help"))))
1630 (key-description where) 1646 (insert-button "Emacs manual"
1631 "M-x help")))))) 1647 'action (lambda (button) (info-emacs-manual))
1648 'follow-link t)
1649 (insert (substitute-command-keys" \\[info-emacs-manual]\t"))
1650 (insert-button "Browse manuals"
1651 'action (lambda (button) (Info-directory))
1652 'follow-link t)
1653 (insert (substitute-command-keys "\t\\[info]
1654 "))
1655 (insert-button "Emacs tutorial"
1656 'action (lambda (button) (help-with-tutorial))
1657 'follow-link t)
1658 (insert (substitute-command-keys
1659 " \\[help-with-tutorial]\tUndo changes\t\\[advertised-undo]
1660 "))
1661 (insert-button "Buy manuals"
1662 'action (lambda (button) (view-order-manuals))
1663 'follow-link t)
1664 (insert (substitute-command-keys
1665 " \\[view-order-manuals]\tExit Emacs\t\\[save-buffers-kill-emacs]")))
1632 1666
1633 ;; Say how to use the menu bar with the keyboard. 1667 ;; Say how to use the menu bar with the keyboard.
1668 (insert "\n")
1669 (insert-button "Activate menubar"
1670 'action (lambda (button) (tmm-menubar))
1671 'follow-link t)
1634 (if (and (eq (key-binding "\M-`") 'tmm-menubar) 1672 (if (and (eq (key-binding "\M-`") 'tmm-menubar)
1635 (eq (key-binding [f10]) 'tmm-menubar)) 1673 (eq (key-binding [f10]) 'tmm-menubar))
1636 (insert " 1674 (insert " F10 or ESC ` or M-`")
1637 Activate menubar F10 or ESC ` or M-`") 1675 (insert (substitute-command-keys " \\[tmm-menubar]")))
1638 (insert (substitute-command-keys "
1639 Activate menubar \\[tmm-menubar]")))
1640 1676
1641 ;; Many users seem to have problems with these. 1677 ;; Many users seem to have problems with these.
1642 (insert " 1678 (insert "
1643 \(`C-' means use the CTRL key. `M-' means use the Meta (or Alt) key. 1679 \(`C-' means use the CTRL key. `M-' means use the Meta (or Alt) key.
1644 If you have no Meta key, you may instead type ESC followed by the character.)") 1680 If you have no Meta key, you may instead type ESC followed by the character.)")
1669 "\n" emacs-copyright) 1705 "\n" emacs-copyright)
1670 1706
1671 (if (and (eq (key-binding "\C-h\C-c") 'describe-copying) 1707 (if (and (eq (key-binding "\C-h\C-c") 'describe-copying)
1672 (eq (key-binding "\C-h\C-d") 'describe-distribution) 1708 (eq (key-binding "\C-h\C-d") 'describe-distribution)
1673 (eq (key-binding "\C-h\C-w") 'describe-no-warranty)) 1709 (eq (key-binding "\C-h\C-w") 'describe-no-warranty))
1674 (insert 1710 (progn
1675 "\n 1711 (insert
1676 GNU Emacs comes with ABSOLUTELY NO WARRANTY; type C-h C-w for full details. 1712 "\n
1713 GNU Emacs comes with ABSOLUTELY NO WARRANTY; type C-h C-w for ")
1714 (insert-button "full details"
1715 'action (lambda (button) (describe-no-warranty))
1716 'follow-link t)
1717 (insert ".
1677 Emacs is Free Software--Free as in Freedom--so you can redistribute copies 1718 Emacs is Free Software--Free as in Freedom--so you can redistribute copies
1678 of Emacs and modify it; type C-h C-c to see the conditions. 1719 of Emacs and modify it; type C-h C-c to see ")
1679 Type C-h C-d for information on getting the latest version.") 1720 (insert-button "the conditions"
1721 'action (lambda (button) (describe-copying))
1722 'follow-link t)
1723 (insert ".
1724 Type C-h C-d for information on ")
1725 (insert-button "getting the latest version"
1726 'action (lambda (button) (describe-distribution))
1727 'follow-link t)
1728 (insert "."))
1680 (insert (substitute-command-keys 1729 (insert (substitute-command-keys
1681 "\n 1730 "\n
1682 GNU Emacs comes with ABSOLUTELY NO WARRANTY; type \\[describe-no-warranty] for full details. 1731 GNU Emacs comes with ABSOLUTELY NO WARRANTY; type \\[describe-no-warranty] for "))
1732 (insert-button "full details"
1733 'action (lambda (button) (describe-no-warranty))
1734 'follow-link t)
1735 (insert (substitute-command-keys ".
1683 Emacs is Free Software--Free as in Freedom--so you can redistribute copies 1736 Emacs is Free Software--Free as in Freedom--so you can redistribute copies
1684 of Emacs and modify it; type \\[describe-copying] to see the conditions. 1737 of Emacs and modify it; type \\[describe-copying] to see "))
1685 Type \\[describe-distribution] for information on getting the latest version.")))) 1738 (insert-button "the conditions"
1739 'action (lambda (button) (describe-copying))
1740 'follow-link t)
1741 (insert (substitute-command-keys".
1742 Type \\[describe-distribution] for information on "))
1743 (insert-button "getting the latest version"
1744 'action (lambda (button) (describe-distribution))
1745 'follow-link t)
1746 (insert ".")))
1686 1747
1687 ;; The rest of the startup screen is the same on all 1748 ;; The rest of the startup screen is the same on all
1688 ;; kinds of terminals. 1749 ;; kinds of terminals.
1689 1750
1690 ;; Give information on recovering, if there was a crash. 1751 ;; Give information on recovering, if there was a crash.