Mercurial > hg > xemacs-beta
comparison lisp/help.el @ 359:8e84bee8ddd0 r21-1-9
Import from CVS: tag r21-1-9
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 10:57:55 +0200 |
| parents | afd57c14dfc8 |
| children | 1d62742628b6 |
comparison
equal
deleted
inserted
replaced
| 358:fed6e0f6a03a | 359:8e84bee8ddd0 |
|---|---|
| 304 (defun key-or-menu-binding (key &optional menu-flag) | 304 (defun key-or-menu-binding (key &optional menu-flag) |
| 305 "Return the command invoked by KEY. | 305 "Return the command invoked by KEY. |
| 306 Like `key-binding', but handles menu events and toolbar presses correctly. | 306 Like `key-binding', but handles menu events and toolbar presses correctly. |
| 307 KEY is any value returned by `next-command-event'. | 307 KEY is any value returned by `next-command-event'. |
| 308 MENU-FLAG is a symbol that should be set to T if KEY is a menu event, | 308 MENU-FLAG is a symbol that should be set to T if KEY is a menu event, |
| 309 or NIL otherwise" | 309 or nil otherwise" |
| 310 (let (defn) | 310 (let (defn) |
| 311 (and menu-flag (set menu-flag nil)) | 311 (and menu-flag (set menu-flag nil)) |
| 312 ;; If the key typed was really a menu selection, grab the form out | 312 ;; If the key typed was really a menu selection, grab the form out |
| 313 ;; of the event object and intuit the function that would be called, | 313 ;; of the event object and intuit the function that would be called, |
| 314 ;; and describe that instead. | 314 ;; and describe that instead. |