Mercurial > hg > xemacs-beta

comparison lisp/gutter-items.el @ 4755:c1784fd59d7d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix syntax of some uses of condition-case and with-trapping-errors.
author Stephen J. Turnbull <stephen@xemacs.org>
date Wed, 18 Nov 2009 01:10:56 +0900
parents 16b17fd1dc93
children cd167465bf69 308d34e9f07d
comparison
equal deleted inserted replaced
4754:5dc1b4681e33 4755:c1784fd59d7d
538 (setcdr s (cdr (cdr s)))) 538 (setcdr s (cdr (cdr s))))
539 (setq s (cdr s))))))) 539 (setq s (cdr s)))))))
540 540
541 (defun progress-feedback-dispatch-non-command-events () 541 (defun progress-feedback-dispatch-non-command-events ()
542 ;; don't allow errors to hose things 542 ;; don't allow errors to hose things
543 (condition-case t 543 (condition-case nil
544 ;; (sit-for 0) is too agressive and cause more display than we 544 ;; (sit-for 0) causes more redisplay than we want.
545 ;; want.
546 (dispatch-non-command-events) 545 (dispatch-non-command-events)
547 nil)) 546 (t nil)))
548 547
549 (defun append-progress-feedback (label message &optional value frame) 548 (defun append-progress-feedback (label message &optional value frame)
550 (or frame (setq frame (selected-frame))) 549 (or frame (setq frame (selected-frame)))
551 ;; Add a new entry to the message-stack, or modify an existing one 550 ;; Add a new entry to the message-stack, or modify an existing one
552 (let* ((top (car progress-stack)) 551 (let* ((top (car progress-stack))