Mercurial > emacs
comparison lisp/help.el @ 105498:3cdeeb563149
Markus Rost <rost at math.uni-bielefeld.de>
(describe-no-warranty): Place point in a slightly better position in
the GPLv3 text.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Wed, 07 Oct 2009 02:52:37 +0000 |
| parents | bd2966850aac |
| children | 85d22dbf4301 |
comparison
equal
deleted
inserted
replaced
| 105497:a0dbed3dc36c | 105498:3cdeeb563149 |
|---|---|
| 321 (defun describe-no-warranty () | 321 (defun describe-no-warranty () |
| 322 "Display info on all the kinds of warranty Emacs does NOT have." | 322 "Display info on all the kinds of warranty Emacs does NOT have." |
| 323 (interactive) | 323 (interactive) |
| 324 (describe-copying) | 324 (describe-copying) |
| 325 (let (case-fold-search) | 325 (let (case-fold-search) |
| 326 (search-forward "NO WARRANTY") | 326 (search-forward "Disclaimer of Warranty") |
| 327 (forward-line 0) | |
| 327 (recenter 0))) | 328 (recenter 0))) |
| 328 | 329 |
| 329 (defun describe-prefix-bindings () | 330 (defun describe-prefix-bindings () |
| 330 "Describe the bindings of the prefix used to reach this command. | 331 "Describe the bindings of the prefix used to reach this command. |
| 331 The prefix described consists of all but the last event | 332 The prefix described consists of all but the last event |