Mercurial > hg > xemacs-beta

comparison lisp/gutter-items.el @ 3968:16b17fd1dc93

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2007-05-20 15:56:30 by stephent] Fix type declarations in progress gauge widget. <873b1r8owl.fsf@uwakimon.sk.tsukuba.ac.jp>
author stephent
date Sun, 20 May 2007 15:56:36 +0000
parents cfe4bcb9bdd4
children c1784fd59d7d
comparison
equal deleted inserted replaced
3967:e6ca8521a705 3968:16b17fd1dc93
677 (display-progress-feedback 'progress str value) 677 (display-progress-feedback 'progress str value)
678 str)))) 678 str))))
679 679
680 (defun progress-feedback-with-label (label fmt &optional value &rest args) 680 (defun progress-feedback-with-label (label fmt &optional value &rest args)
681 "Print a progress gauge and message in the bottom gutter area of the frame. 681 "Print a progress gauge and message in the bottom gutter area of the frame.
682 First argument LABEL is an identifier for this progress gauge. The rest of the 682 LABEL is an identifier for this progress gauge.
683 arguments are the same as to `format'." 683 FMT is a format string to be passed to `format' along with ARGS.
684 Optional VALUE is the current degree of progress, an integer 0-100.
685 The remaining ARGS are passed with FMT `(apply #'format FMT ARGS)'."
684 ;; #### sometimes the buffer gets changed temporarily. I don't know 686 ;; #### sometimes the buffer gets changed temporarily. I don't know
685 ;; why this is, so protect against it. 687 ;; why this is, so protect against it.
686 (save-excursion 688 (save-excursion
687 (if (and (null fmt) (null args)) 689 (if (and (null fmt) (null args))
688 (prog1 nil 690 (prog1 nil