branch: externals/auctex commit 43b07d951170a7b61745b34ac753eda88e23917f Author: Ikumi Keita <ik...@ikumi.que.jp> Commit: Ikumi Keita <ik...@ikumi.que.jp>
Use `TeX-line-number-at-pos' further for older emacsen * tex-buf.el (TeX-region-create): (TeX-region-update-point): * tex-info.el (Texinfo-make-node-list): Replace `line-number-at-pos' with `TeX-line-number-at-pos'. --- tex-buf.el | 4 ++-- tex-info.el | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/tex-buf.el b/tex-buf.el index 6497777..fa05923 100644 --- a/tex-buf.el +++ b/tex-buf.el @@ -903,7 +903,7 @@ Does nothing in case the last command hasn't operated on the region." (when TeX-current-process-region-p (let ((region-buf (get-file-buffer (TeX-region-file t))) - (current-line (line-number-at-pos))) + (current-line (TeX-line-number-at-pos))) (when region-buf (with-current-buffer region-buf (goto-char (point-min)) @@ -2096,7 +2096,7 @@ original file." ;; Position point at the line/col that corresponds to point's line in ;; orig-buffer in order to make forward search work. (let ((line-col (with-current-buffer orig-buffer - (cons (line-number-at-pos) + (cons (TeX-line-number-at-pos) (current-column))))) (goto-char (point-min)) (forward-line (1- (abs (- header-offset (car line-col))))) diff --git a/tex-info.el b/tex-info.el index 0433b0a..9684eb6 100644 --- a/tex-info.el +++ b/tex-info.el @@ -335,7 +335,7 @@ commands. Return the resulting string." nodes :test (lambda (a b) (when (equal a b) - (push (cons a (line-number-at-pos (point))) dups) + (push (cons a (TeX-line-number-at-pos (point))) dups) t)))) (when dups (display-warning