Mercurial > emacs
comparison lisp/help.el @ 91795:bfe257ff864c
2008-02-11 Drew Adams <drew.adams@oracle.com>
* help.el (describe-key): Joined some split lines to facilitate
filling.
* help-fns.el (describe-function-1): Fill text of overlong lines.
| author | Bastien Guerry <bzg@altern.org> |
|---|---|
| date | Tue, 12 Feb 2008 07:10:49 +0000 |
| parents | 16e347bbe4ce |
| children | ac2ad154ea14 |
comparison
equal
deleted
inserted
replaced
| 91794:9eba563b95d7 | 91795:bfe257ff864c |
|---|---|
| 743 (aset sequence 0 'mouse-1) | 743 (aset sequence 0 'mouse-1) |
| 744 (setq defn-up-tricky (key-binding sequence nil nil (event-start up-event)))))) | 744 (setq defn-up-tricky (key-binding sequence nil nil (event-start up-event)))))) |
| 745 (with-help-window (help-buffer) | 745 (with-help-window (help-buffer) |
| 746 (princ (help-key-description key untranslated)) | 746 (princ (help-key-description key untranslated)) |
| 747 (princ (format "\ | 747 (princ (format "\ |
| 748 %s runs the command %S | 748 %s runs the command %S, which is " |
| 749 which is " | |
| 750 mouse-msg defn)) | 749 mouse-msg defn)) |
| 751 (describe-function-1 defn) | 750 (describe-function-1 defn) |
| 752 (when up-event | 751 (when up-event |
| 753 (unless (or (null defn-up) | 752 (unless (or (null defn-up) |
| 754 (integerp defn-up) | 753 (integerp defn-up) |
| 755 (equal defn-up 'undefined)) | 754 (equal defn-up 'undefined)) |
| 756 (princ (format " | 755 (princ (format " |
| 757 | 756 |
| 758 ----------------- up-event %s---------------- | 757 ----------------- up-event %s---------------- |
| 759 | 758 |
| 760 <%S>%s%s runs the command %S | 759 <%S>%s%s runs the command %S, which is " |
| 761 which is " | |
| 762 (if mouse-1-tricky "(short click) " "") | 760 (if mouse-1-tricky "(short click) " "") |
| 763 ev-type mouse-msg | 761 ev-type mouse-msg |
| 764 (if mouse-1-remapped | 762 (if mouse-1-remapped |
| 765 " is remapped to <mouse-2>\nwhich" "") | 763 " is remapped to <mouse-2>, which" "") |
| 766 defn-up)) | 764 defn-up)) |
| 767 (describe-function-1 defn-up)) | 765 (describe-function-1 defn-up)) |
| 768 (unless (or (null defn-up-tricky) | 766 (unless (or (null defn-up-tricky) |
| 769 (integerp defn-up-tricky) | 767 (integerp defn-up-tricky) |
| 770 (eq defn-up-tricky 'undefined)) | 768 (eq defn-up-tricky 'undefined)) |
| 771 (princ (format " | 769 (princ (format " |
| 772 | 770 |
| 773 ----------------- up-event (long click) ---------------- | 771 ----------------- up-event (long click) ---------------- |
| 774 | 772 |
| 775 Pressing <%S>%s for longer than %d milli-seconds | 773 Pressing <%S>%s for longer than %d milli-seconds |
| 776 runs the command %S | 774 runs the command %S, which is " |
| 777 which is " | |
| 778 ev-type mouse-msg | 775 ev-type mouse-msg |
| 779 mouse-1-click-follows-link | 776 mouse-1-click-follows-link |
| 780 defn-up-tricky)) | 777 defn-up-tricky)) |
| 781 (describe-function-1 defn-up-tricky))))))) | 778 (describe-function-1 defn-up-tricky))))))) |
| 782 | 779 |