Lines Matching defs:progress
3041 (c-progress-init start end 'c-indent-region)
3045 ;; update progress
3046 (c-progress-update)
3074 (c-progress-fini 'c-indent-region))
3094 ;; for progress reporting
3095 (defvar c-progress-info nil)
3097 (defun c-progress-init (start end context)
3100 ((not c-progress-interval))
3101 ;; Start the progress update messages. If this Emacs doesn't have
3105 ;; If progress has already been initialized, do nothing. otherwise
3108 (c-progress-info)
3109 (t (setq c-progress-info (vector start
3118 (defun c-progress-update ()
3119 (if (not (and c-progress-info c-progress-interval))
3122 (start (aref c-progress-info 0))
3123 (end (aref c-progress-info 1))
3124 (lastsecs (aref c-progress-info 2)))
3127 (if (< c-progress-interval (- now lastsecs))
3131 (aset c-progress-info 2 now)))
3134 (defun c-progress-fini (context)
3135 (if (not c-progress-interval)
3137 (if (or (eq context (aref c-progress-info 3))
3140 (set-marker (aref c-progress-info 1) nil)
3141 (setq c-progress-info nil)