Mercurial > hg > xemacs-beta

comparison lisp/prim/cmdloop.el @ 48:56c54cf7c5b6 r19-16b90

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-16b90
author cvs
date Mon, 13 Aug 2007 08:56:04 +0200
parents 0293115a14e9
children 131b0175ea99
comparison
equal deleted inserted replaced
47:11c6df210d7f 48:56c54cf7c5b6
339 (while (stringp yn) 339 (while (stringp yn)
340 (if (let ((cursor-in-echo-area t) 340 (if (let ((cursor-in-echo-area t)
341 (inhibit-quit t)) 341 (inhibit-quit t))
342 (message "%s%s%s" pre prompt yn) 342 (message "%s%s%s" pre prompt yn)
343 (setq event (next-command-event event)) 343 (setq event (next-command-event event))
344 (prog1 344 (condition-case nil
345 (or quit-flag (eq 'keyboard-quit (key-binding event))) 345 (prog1
346 (setq quit-flag nil))) 346 (or quit-flag (eq 'keyboard-quit (key-binding event)))
347 (setq quit-flag nil))
348 (wrong-type-argument t)))
347 (progn 349 (progn
348 (message "%s%s%s%s" pre prompt yn (single-key-description event)) 350 (message "%s%s%s%s" pre prompt yn (single-key-description event))
349 (setq quit-flag nil) 351 (setq quit-flag nil)
350 (signal 'quit '()))) 352 (signal 'quit '())))
351 (let* ((keys (events-to-keys (vector event))) 353 (let* ((keys (events-to-keys (vector event)))