[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/eev 6516997 2/4: Added `find-pdf-links' and made `M-h M
From: |
Stefan Monnier |
Subject: |
[elpa] externals/eev 6516997 2/4: Added `find-pdf-links' and made `M-h M-p' point to it. |
Date: |
Mon, 10 Jun 2019 19:15:04 -0400 (EDT) |
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)