Mercurial > hg > xemacs-beta

comparison lisp/prim/cmdloop.el @ 173:8eaf7971accc r20-3b13

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b13
author cvs
date Mon, 13 Aug 2007 09:49:09 +0200
parents 929b76928fce
children e45d5e7c476e
comparison
equal deleted inserted replaced
172:a38aed19690b 173:8eaf7971accc
303 (display-message 303 (display-message
304 'no-log 304 'no-log
305 (format "Command `%s' is bound to key%s: %s" 305 (format "Command `%s' is bound to key%s: %s"
306 _execute_command_name_ 306 _execute_command_name_
307 (if (cdr _execute_command_keys_) "s" "") 307 (if (cdr _execute_command_keys_) "s" "")
308 (mapconcat 'key-description 308 (sorted-key-descriptions _execute_command_keys_)))
309 (sort _execute_command_keys_
310 #'(lambda (x y)
311 (< (length x) (length y))))
312 ", ")))
313 (sit-for teach-extended-commands-timeout) 309 (sit-for teach-extended-commands-timeout)
314 (clear-message 'no-log))) 310 (clear-message 'no-log)))
315 ;; Else, just run the command. 311 ;; Else, just run the command.
316 (command-execute this-command t))) 312 (command-execute this-command t)))
317 313
429 If a mouse click or non-ASCII character is detected, an error is 425 If a mouse click or non-ASCII character is detected, an error is
430 signalled. The character typed is returned as an ASCII value. This 426 signalled. The character typed is returned as an ASCII value. This
431 is most likely the wrong thing for you to be using: consider using 427 is most likely the wrong thing for you to be using: consider using
432 the `next-command-event' function instead." 428 the `next-command-event' function instead."
433 (save-excursion 429 (save-excursion
434 (let ((inhibit-quit t) 430 (let* ((inhibit-quit t)
435 (event (next-command-event))) 431 (event (next-command-event)))
436 (prog1 (or (event-to-character event) 432 (prog1 (or (event-to-character event)
437 ;; Kludge. If the event we read was a mouse-release, 433 ;; Kludge. If the event we read was a mouse-release,
438 ;; discard it and read the next one. 434 ;; discard it and read the next one.
439 (if (button-release-event-p event) 435 (if (button-release-event-p event)
440 (event-to-character (next-command-event event))) 436 (event-to-character (next-command-event event)))