[elpa] externals/eev 2dadb94 52/64: Added `find-pdftools-page'.

[Stefan Monnier]

branch: externals/eev
commit 2dadb94c7fffbca29a35a12b87493cc2aef1cc87
Author: Eduardo Ochs <address@hidden>
Commit: Eduardo Ochs <address@hidden>

    Added `find-pdftools-page'.
---
 ChangeLog      |  5 +++++
 VERSION        |  4 ++--
 eev-intro.el   |  6 +++---
 eev-pdflike.el | 17 ++++++++++++++++-
 4 files changed, 26 insertions(+), 6 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index ee982af..28e14fd 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,7 +1,12 @@
+2019-03-10  Eduardo Ochs  <address@hidden>
+
+       * eev-intro.el (find-eev-quick-intro): small changes.
+
 2019-03-08  Eduardo Ochs  <address@hidden>
 
        * eev-pdflike.el (ee-find-texworkspdf-page): new function.
        (find-texworkspdf-page, code-texworkspdf-page): new functions.
+       (find-pdftools-page): new function.
 
 2019-03-05  Eduardo Ochs  <address@hidden>
 
diff --git a/VERSION b/VERSION
index 5558be0..1b3f4f1 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Fri Mar  8 05:38:08 GMT 2019
-Fri Mar  8 02:38:08 -03 2019
+Sun Mar 10 16:10:26 GMT 2019
+Sun Mar 10 13:10:26 -03 2019
diff --git a/eev-intro.el b/eev-intro.el
index c457475..2c82099 100644
--- a/eev-intro.el
+++ b/eev-intro.el
@@ -20,7 +20,7 @@
 ;;
 ;; Author:     Eduardo Ochs <address@hidden>
 ;; Maintainer: Eduardo Ochs <address@hidden>
-;; Version:    2019mar05
+;; Version:    2019mar10
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-intro.el>
@@ -1553,7 +1553,7 @@ which is a short hyperlink to the intro.
 
 
 
-10.3. Generating short hyperlinks to PDFs
+10.4. Generating short hyperlinks to PDFs
 -----------------------------------------
 We saw in sections 9.3 and 9.4 that after the right preparations
 the first of these hyperlinks
@@ -1599,7 +1599,7 @@ used \"-110\" as the offset.
 
 
 
-10.4. Generating short hyperlinks to anchors
+10.5. Generating short hyperlinks to anchors
 --------------------------------------------
 
 
diff --git a/eev-pdflike.el b/eev-pdflike.el
index 35c4569..5834c9d 100644
--- a/eev-pdflike.el
+++ b/eev-pdflike.el
@@ -19,7 +19,7 @@
 ;;
 ;; Author:     Eduardo Ochs <address@hidden>
 ;; Maintainer: Eduardo Ochs <address@hidden>
-;; Version:    2019mar08
+;; Version:    2019mar10
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-pdflike.el>
@@ -123,6 +123,7 @@
 ;; «.find-pdf-text»                    (to "find-pdf-text")
 ;;
 ;; «.find-texworkspdf-page»            (to "find-texworkspdf-page")
+;; «.find-pdftools-page»               (to "find-pdftools-page")
 ;; «.find-xdvi-page»                   (to "find-xdvi-page")
 ;; «.find-djview-page»                 (to "find-djview-page")
 ;; «.find-evince-page»                 (to "find-evince-page")
@@ -377,6 +378,20 @@ newline are spurious - and replaces them by \"(ff)\"."
     ))
 
 
+
+;; «find-pdftools-page» (to ".find-pdftools-page")
+;; New (2019mar08). Requires: (find-epackage 'pdf-tools)
+;; See: http://angg.twu.net/find-pdf-page.html
+;; (find-code-xxxpdf-family "pdftools-page")
+        (code-xxxpdf-family "pdftools-page")
+
+(defun find-pdftools-page (fname &optional page &rest rest)
+  (pdf-tools-install)
+  (find-fline fname)
+  (pdf-view-goto-page (or page 1)))
+
+
+
 ;; «find-xdvi-page» (to ".find-xdvi-page")
 ;; (find-code-xxxpdf-family "xdvi-page")
         (code-xxxpdf-family "xdvi-page")