[elpa] externals/eev 6516997 2/4: Added `find-pdf-links' and made `M-h M-p' point to it.

[Stefan Monnier]

branch: externals/eev
commit 65169977899eb6d5ba33e52aa2d47abf06491200
Author: Eduardo Ochs <address@hidden>
Commit: Eduardo Ochs <address@hidden>

    Added `find-pdf-links' and made `M-h M-p' point to it.
---
 ChangeLog     | 10 ++++++++--
 VERSION       |  4 ++--
 eev-elinks.el | 17 +++++++++++++----
 eev-mode.el   |  4 ++--
 4 files changed, 25 insertions(+), 10 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index f8a1685..21581bc 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,8 +1,14 @@
 2019-06-10  Eduardo Ochs  <address@hidden>
 
-       * .dir-locals.el: new file.
-
        * eev-elinks.el (find-code-pdf-links): new function.
+       (find-pdf-links): new function.
+       (ee-pdflike-page-links): use `code-pdf-page' instead of
+       `code-pdf'.
+
+       * eev-mode.el (eev-mode-map-set): now `M-h M-p' is bound to
+       `find-pdf-links'.
+
+       * .dir-locals.el: new file.
 
 2019-05-24  Eduardo Ochs  <address@hidden>
 
diff --git a/VERSION b/VERSION
index 6119cee..e5fa07e 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Mon Jun 10 04:40:07 GMT 2019
-Mon Jun 10 01:40:07 -03 2019
+Mon Jun 10 05:19:24 GMT 2019
+Mon Jun 10 02:19:24 -03 2019
diff --git a/eev-elinks.el b/eev-elinks.el
index 93e213f..4c96b7c 100644
--- a/eev-elinks.el
+++ b/eev-elinks.el
@@ -78,6 +78,7 @@
 
 ;; «.find-code-c-d-links»      (to "find-code-c-d-links")
 ;; «.find-code-pdf-links»      (to "find-code-pdf-links")
+;; «.find-pdf-links»           (to "find-pdf-links")
 
 
 
@@ -923,7 +924,7 @@ when this is true remove the prefix D from FNAME, and put 
the sexp
       (,find-cpage (+ ,offset ,page-) ,kill)
       (,find-ctext (+ ,offset ,page-) ,kill)
       ""
-      (code-pdf ,c ,fname)
+      (code-pdf-page ,c ,fname)
       (code-pdf-text ,c ,fname ,offset)
       ,(ee-HS bufname)
       )))
@@ -958,7 +959,7 @@ See: (find-pdf-like-intro)
       (,find-cpage (+ ,offset ,page-) ,kill)
       (,find-ctext (+ ,offset ,page-) ,kill)
       ""
-      (code-pdf ,c ,fname)
+      (code-pdf-page ,c ,fname)
       (code-pdf-text ,c ,fname ,offset)
       ,(ee-HS bufname)
     ) rest)
@@ -1303,7 +1304,6 @@ This needs a temporary directory; see: 
(find-prepared-intro)"
 ;;;                                                                            
 
 ;; «find-code-c-d-links»  (to ".find-code-c-d-links")
 
-
 ;; «find-code-pdf-links»  (to ".find-code-pdf-links")
 ;; Tests:
 ;; (find-fline          "/usr/local/texlive/2018/texmf-dist/doc/latex/base/")
@@ -1311,7 +1311,7 @@ This needs a temporary directory; see: 
(find-prepared-intro)"
 ;; (find-code-pdf-links 
"/usr/local/texlive/2018/texmf-dist/doc/latex/base/source2e.pdf" "foo")
 
 (defun find-code-pdf-links (&optional fname c &rest pos-spec-list)
-"Visit a temporary buffer containing hyperlinks to a PDF file."
+"Visit a temporary buffer containing hyperlinks and `code-pdf-*'s to a PDF 
file."
   (interactive (list (and (eq major-mode 'dired-mode) (ee-dired-to-fname))))
   (setq fname (or fname "{fname}"))
   (setq c (or c "{c}"))
@@ -1335,6 +1335,15 @@ This needs a temporary directory; see: 
(find-prepared-intro)"
        )
      pos-spec-list)))
 
+;; «find-pdf-links»  (to ".find-pdf-links")
+;;
+(defun find-pdf-links ()
+"Run either `find-code-pdf-links' or `find-pdflike-page-links'."
+  (interactive)
+  (if (eq major-mode 'dired-mode)
+      (find-code-pdf-links (ee-dired-to-fname))
+    (find-pdflike-page-links)))
+
 
 
 
diff --git a/eev-mode.el b/eev-mode.el
index a7dc1a5..62cbb4f 100644
--- a/eev-mode.el
+++ b/eev-mode.el
@@ -19,7 +19,7 @@
 ;;
 ;; Author:     Eduardo Ochs <address@hidden>
 ;; Maintainer: Eduardo Ochs <address@hidden>
-;; Version:    2019apr24
+;; Version:    2019jun10
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-mode.el>
@@ -123,7 +123,7 @@ and: (find-eval-intro \"`M-k'\")"
   (define-key eev-mode-map "\M-h\M-i" 'find-eintro-or-einfo-links)
   (define-key eev-mode-map "\M-h\M-k" 'find-ekey-links)
   (define-key eev-mode-map "\M-h\M-n" 'find-eunicodeucs)
-  (define-key eev-mode-map "\M-h\M-p" 'find-pdflike-page-links)
+  (define-key eev-mode-map "\M-h\M-p" 'find-pdf-links)
   (define-key eev-mode-map "\M-h\M-v" 'find-evariable-links)
   (define-key eev-mode-map "\M-hf"    'find-file-links)
   (define-key eev-mode-map "\M-hM"    'find-ekbmacro-links)