[AUCTeX] ConTeXt problems after [n] pages

[doed]

Hello guys: 

I was advised in TeX.sx to report the problem to the list, since it is an AucTeX
issue. At one point I mistakenly assumed it was ConTeXt failure.

By redefining the functions from TeX-command-show to TeX-command-default
the infinite loop calling ConTeXt stopped. Since the interactive call to
Viewer was not possible (C-c C-c), unless manually completing it, at
least the viewer was accessible this time around. 

But, even though, the .tex file compiles successfully, it brings
tex-recenter-output-buffer so the output of the file could be seen.

At least by changing it to TeX-command-default, invoking C-c C-c
afterwards, brings the viewer. 


;; Various
(defun TeX-ConTeXt-sentinel (process name)
  "Cleanup TeX output buffer after running ConTeXt."
  (cond ((TeX-TeX-sentinel-check process name))
    ((save-excursion
       ;; in a full ConTeXt run there will multiple texutil
       ;; outputs. Just looking for "another run needed" would
       ;; find the first occurence
       (goto-char (point-max))
       (re-search-backward "TeXUtil " nil t)
       (re-search-forward "another run needed" nil t))
     (message (concat "You should run ConTeXt again "
              "to get references right, "
              (TeX-current-pages)))
    (setq TeX-command-next TeX-command-default)
    ((re-search-forward "removed files :" nil t)
     (message "sucessfully cleaned up")
    (re-search-forward "^ ?TeX\\(Exec\\|Util\\)" nil t) ;; strange regexp --pg
     (message (concat name ": successfully formatted "
              (TeX-current-pages)))
     (setq TeX-command-next TeX-command-default))
    (re-search-forward "^ ?TeX\\(Exec\\|Util\\)"  nil t)
    (t
     (message (concat name ": problems after "
              (TeX-current-pages)))
     (setq TeX-command-next TeX-command-Show)))))