emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/auctex 43b07d9 70/95: Use `TeX-line-number-at-pos' furt


From: Tassilo Horn
Subject: [elpa] externals/auctex 43b07d9 70/95: Use `TeX-line-number-at-pos' further for older emacsen
Date: Sun, 16 Apr 2017 01:26:57 -0400 (EDT)

branch: externals/auctex
commit 43b07d951170a7b61745b34ac753eda88e23917f
Author: Ikumi Keita <address@hidden>
Commit: Ikumi Keita <address@hidden>

    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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]