Lines Matching defs:progress
144 "*If true then delphi token processing progress is reported to the user."
420 (defvar delphi-progress-last-reported-point nil
421 "The last point at which progress was reported.")
423 (defconst delphi-parsing-progress-step 16384
424 "Number of chars to process before the next parsing progress report.")
425 (defconst delphi-scanning-progress-step 2048
426 "Number of chars to process before the next scanning progress report.")
427 (defconst delphi-fontifying-progress-step delphi-scanning-progress-step
428 "Number of chars to process before the next fontification progress report.")
430 (defun delphi-progress-start ()
431 ;; Initializes progress reporting.
432 (setq delphi-progress-last-reported-point nil))
434 (defun delphi-progress-done (&rest msgs)
435 ;; Finalizes progress reporting.
436 (setq delphi-progress-last-reported-point nil)
442 (defun delphi-step-progress (p desc step-size)
444 ;; the current progress to the user.
445 (cond ((null delphi-progress-last-reported-point)
446 ;; This is the first progress step.
447 (setq delphi-progress-last-reported-point p))
450 (>= (abs (- p delphi-progress-last-reported-point)) step-size))
452 (setq delphi-progress-last-reported-point p)
587 (delphi-step-progress (point) "Parsing" delphi-parsing-progress-step)))
684 (delphi-step-progress (delphi-token-start next) "Scanning"
685 delphi-scanning-progress-step))
693 (delphi-step-progress (delphi-token-start previous) "Scanning"
694 delphi-scanning-progress-step))
730 (delphi-progress-start)
738 (delphi-step-progress p "Fontifying" delphi-fontifying-progress-step))
739 (delphi-progress-done)))))
752 (delphi-progress-start)
758 (delphi-progress-done)))))
1449 (delphi-progress-start)
1490 (delphi-progress-done)
1597 (delphi-progress-start)
1599 (delphi-progress-done "Parsing done"))))
1620 (delphi-progress-start)
1624 (delphi-step-progress (point) "Tokenizing" delphi-scanning-progress-step))
1625 (delphi-progress-done "Tokenizing done")))
1847 (delphi-progress-start)
1849 (delphi-progress-done)))))))
1886 (font-lock-verbose . delphi-fontifying-progress-step))
1959 If true then delphi token processing progress is reported to the user.
1992 '(delphi-progress-last-reported-point nil)
2004 (delphi-progress-start)
2006 (delphi-progress-done))))