Function: TeX-source-correlate-handle-TeX-region

TeX-source-correlate-handle-TeX-region is a byte-compiled function defined in tex.el.

Signature

(TeX-source-correlate-handle-TeX-region FILE LINE COL)

Documentation

Translate backward search info with respect to TeX-region.

That is, if FILE is TeX-region, update FILE to the real tex file and LINE to (+ LINE offset-of-region), but retain COL as is. Else, return nil.

Source Code

;; Defined in ~/.emacs.d/elpa/auctex-14.1.2/tex.el
(defun TeX-source-correlate-handle-TeX-region (file line col)
  "Translate backward search info with respect to `TeX-region'.
That is, if FILE is `TeX-region', update FILE to the real tex
file and LINE to (+ LINE offset-of-region), but retain COL as is.
Else, return nil."
  (when (string-equal TeX-region (file-name-sans-extension
                                  (file-name-nondirectory file)))
    (with-current-buffer (or (find-buffer-visiting file)
                             (find-file-noselect file))
      (goto-char 0)
      ;; Same regexp used in `preview-parse-messages'.  XXX: XEmacs doesn't
      ;; support regexp classes, so we can't use "[:digit:]" here.
      (when (re-search-forward "!offset(\\([---0-9]+\\))" nil t)
        (let ((offset (string-to-number (match-string-no-properties 1))))
          (when TeX-region-orig-buffer
            (list (expand-file-name (TeX-buffer-file-name TeX-region-orig-buffer))
                  (+ line offset) col)))))))