Mercurial > emacs
comparison lisp/help.el @ 76651:f80b58f9495a
Fix typo in comment.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Wed, 21 Mar 2007 16:15:45 +0000 |
| parents | 2806691576cd |
| children | 9355f9b7bbff 4ef881a120fe |
comparison
equal
deleted
inserted
replaced
| 76650:52354deba43e | 76651:f80b58f9495a |
|---|---|
| 640 (menu-bar-update-yank-menu "(any string)" nil)) | 640 (menu-bar-update-yank-menu "(any string)" nil)) |
| 641 (setq key (read-key-sequence "Describe key (or click or menu item): ")) | 641 (setq key (read-key-sequence "Describe key (or click or menu item): ")) |
| 642 (list | 642 (list |
| 643 key | 643 key |
| 644 (prefix-numeric-value current-prefix-arg) | 644 (prefix-numeric-value current-prefix-arg) |
| 645 ;; If KEY is a down-event, read and discard the | 645 ;; If KEY is a down-event, read and include the |
| 646 ;; corresponding up-event. Note that there are also | 646 ;; corresponding up-event. Note that there are also |
| 647 ;; down-events on scroll bars and mode lines: the actual | 647 ;; down-events on scroll bars and mode lines: the actual |
| 648 ;; event then is in the second element of the vector. | 648 ;; event then is in the second element of the vector. |
| 649 (and (vectorp key) | 649 (and (vectorp key) |
| 650 (let ((last-idx (1- (length key)))) | 650 (let ((last-idx (1- (length key)))) |