[elpa] externals/auctex 8f46dea 08/43: Remove TeX-line-number-at-pos

[Tassilo Horn]

branch: externals/auctex
commit 8f46deaeaca9c603049a6cf132d3c1cd25faa605
Author: Mosè Giordano <address@hidden>
Commit: Mosè Giordano <address@hidden>

    Remove TeX-line-number-at-pos
    
    * tex.el (TeX-line-number-at-pos): Remove function and alias.
    * style/pdfsync.el (LaTeX-pdfsync-output-page):
    * tex-info.el (Texinfo-make-node-list): Replace `TeX-line-number-at-pos' 
with
      `line-number-at-pos'.
---
 style/pdfsync.el |  2 +-
 tex-info.el      |  2 +-
 tex.el           | 14 --------------
 3 files changed, 2 insertions(+), 16 deletions(-)

diff --git a/style/pdfsync.el b/style/pdfsync.el
index d2076fd..fd64421 100644
--- a/style/pdfsync.el
+++ b/style/pdfsync.el
@@ -32,7 +32,7 @@
 
 (defun LaTeX-pdfsync-output-page ()
   "Return page number in output file corresponding to buffer position."
-  (let* ((line (TeX-line-number-at-pos))
+  (let* ((line (line-number-at-pos))
         (master (TeX-active-master))
         (file (file-name-sans-extension
                (file-relative-name (buffer-file-name)
diff --git a/tex-info.el b/tex-info.el
index 660cf46..1716627 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 (TeX-line-number-at-pos (point))) dups)
+                          (push (cons a (line-number-at-pos (point))) dups)
                           t))))
       (when dups
        (display-warning
diff --git a/tex.el b/tex.el
index be81f73..9768327 100644
--- a/tex.el
+++ b/tex.el
@@ -837,20 +837,6 @@ The XEmacs package edit-utils-2.32 includes `crm.el'."
     (multi-prompt (if (boundp 'crm-separator) crm-separator ",") nil prompt
                  table predicate require-match initial-input hist)))
 
-(if (fboundp 'line-number-at-pos)
-    (defalias 'TeX-line-number-at-pos 'line-number-at-pos)
-  ;; `line-number-at-pos' from `simple.el' in Emacs CVS (2006-06-07)
-  (defun TeX-line-number-at-pos (&optional pos)
-    "Return (narrowed) buffer line number at position POS.
-If POS is nil, use current buffer location."
-    (let ((opoint (or pos (point))) start)
-      (save-excursion
-       (goto-char (point-min))
-       (setq start (point))
-       (goto-char opoint)
-       (forward-line 0)
-       (1+ (count-lines start (point)))))))
-
 ;;; Special support for GNU Emacs
 
 (unless (featurep 'xemacs)