[elpa] externals/eev 13f88c4 03/20: Fixed `find-mpv-video' and documented a bug in `find-man'.

[Stefan Monnier]

branch: externals/eev
commit 13f88c494d1b748be8945204219b260fd5118caf
Author: Eduardo Ochs <eduardoochs@gmail.com>
Commit: Eduardo Ochs <eduardoochs@gmail.com>

    Fixed `find-mpv-video' and documented a bug in `find-man'.
---
 ChangeLog         | 12 ++++++++++++
 VERSION           |  4 ++--
 eev-audiovideo.el |  5 +++--
 eev-blinks.el     | 37 +++++++++++++++++++++++++++++++------
 eev-pdflike.el    |  6 +++++-
 5 files changed, 53 insertions(+), 11 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 5ca7d99..f607555 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,15 @@
+2020-10-27  Eduardo Ochs  <eduardoochs@gmail.com>
+
+       * eev-audiovideo.el (ee-find-mpv-video): use "--start=1:23"
+       instead of "--start 1:23".
+
+       * eev-pdflike.el (ee-code-pdfbackend, ee-code-pdftextbackend): add
+       the missing backslashes.
+
+2020-10-24  Eduardo Ochs  <eduardoochs@gmail.com>
+
+       * eev-blinks.el (find-man): document an open bug.
+
 2020-10-18  Eduardo Ochs  <eduardoochs@gmail.com>
 
        * eev-tlinks.el (find-eevvideo-links, code-eevvideo)
diff --git a/VERSION b/VERSION
index f5a0898..e4ca8b5 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Fri Oct 23 00:29:44 GMT 2020
-Thu Oct 22 21:29:44 -03 2020
+Tue Oct 27 06:43:11 GMT 2020
+Tue Oct 27 03:43:11 -03 2020
diff --git a/eev-audiovideo.el b/eev-audiovideo.el
index 4c32d1f..c8ada3c 100644
--- a/eev-audiovideo.el
+++ b/eev-audiovideo.el
@@ -19,7 +19,7 @@
 ;;
 ;; Author:     Eduardo Ochs <eduardoochs@gmail.com>
 ;; Maintainer: Eduardo Ochs <eduardoochs@gmail.com>
-;; Version:    2020oct17
+;; Version:    2020oct27
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-audiovideo.el>
@@ -364,7 +364,8 @@ See: (find-audiovideo-intro \"`eev-avadj-mode'\")"
 (defun ee-find-mpv-video (fname &optional pos &rest rest)
   `("mpv"
     ,fname
-    ,@(if pos `("--start" ,(ee-secs-to-mm:ss pos)))
+    ;; ,@(if pos `("--start" ,(ee-secs-to-mm:ss pos)))
+    ,@(if pos (list (format "--start=%s" (ee-secs-to-mm:ss pos))))
     ,@ee-mpv-video-options
     ))
 
diff --git a/eev-blinks.el b/eev-blinks.el
index 1da7bf3..528a763 100644
--- a/eev-blinks.el
+++ b/eev-blinks.el
@@ -53,6 +53,7 @@
 ;; «.find-estring»             (to "find-estring")
 ;; «.find-sh»                  (to "find-sh")
 ;; «.find-man»                 (to "find-man")
+;; «.find-man-bug»             (to "find-man-bug")
 ;; «.find-w3m»                 (to "find-w3m")
 ;; «.find-Package»             (to "find-Package")
 ;; «.find-epp»                 (to "find-epp")
@@ -640,6 +641,14 @@ This is like `find-sh' but sets the buffer's 
default-directory to DIR."
 (defvar ee-find-man-flag          nil "See `find-man'.")
 (defvar ee-find-man-pos-spec-list nil "See `find-man'.")
 
+;; See: (to "find-man-bug")
+(defun find-man (manpage &rest pos-spec-list)
+  "Hyperlink to a manpage."
+  (interactive (list (ee-manpagename-ask)))
+  (setq ee-find-man-flag t
+       ee-find-man-pos-spec-list pos-spec-list)
+    (man manpage))
+
 ;; See: (find-elnode "Advising Functions")
 ;;      (find-elnode "Porting old advice")
 ;;      (find-efunctiondescr 'defadvice)
@@ -651,12 +660,28 @@ This is like `find-sh' but sets the buffer's 
default-directory to DIR."
     (apply 'ee-goto-position ee-find-man-pos-spec-list)
     (setq ee-find-man-flag nil)))
 
-(defun find-man (manpage &rest pos-spec-list)
-  "Hyperlink to a manpage."
-  (interactive (list (ee-manpagename-ask)))
-  (setq ee-find-man-flag t
-       ee-find-man-pos-spec-list pos-spec-list)
-    (man manpage))
+;; «find-man-bug»  (to ".find-man-bug")
+;; Note: find-man has an open bug that I did not have time to fix yet...
+;; an example:
+;;
+;;   (find-man "1 git-commit")
+;;   (find-man "1 git-commit" "-m <msg>, --message=<msg>")
+;;
+;; The second find-man link should run the
+;;
+;;   (ee-goto-position "-m <msg>, --message=<msg>")
+;;
+;; AFTER the man page gets completely rendered, but the mechanism that
+;; delays its execution until the rendering it done it currently broken,
+;; and the ee-goto-position runs too soon. A workaround for that is to
+;; run the
+;;
+;;   (find-man "1 git-commit")
+;; 
+;; to render the manpage, then bury its buffer with M-K, then run this:
+;; 
+;;   (find-man "1 git-commit" "-m <msg>, --message=<msg>")
+
 
 ;; Missing: find-woman.
 ;; (find-node "(woman)Top")
diff --git a/eev-pdflike.el b/eev-pdflike.el
index 8aa2566..69d9d1a 100644
--- a/eev-pdflike.el
+++ b/eev-pdflike.el
@@ -19,7 +19,7 @@
 ;;
 ;; Author:     Eduardo Ochs <eduardoochs@gmail.com>
 ;; Maintainer: Eduardo Ochs <eduardoochs@gmail.com>
-;; Version:    2020oct16
+;; Version:    2020oct27
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-pdflike.el>
@@ -308,6 +308,8 @@ newline are spurious - and replaces them by \"(ff)\"."
   ;; (find-code-{pdfbackend} \\\"{<}c{>}\\\" \\\"{<}fname{>}\\\")
   ;;      (code-{pdfbackend} \\\"{<}c{>}\\\" \\\"{<}fname{>}\\\")
   ;;
+  ;; See: (find-pdf-like-intro \\\"7. Shorter hyperlinks to PDF files\\\")
+  ;;
   (setq ee-pdflike-last 'find-{<}c{>}page)
   (defun find-{<}c{>}page (&optional page &rest rest)
     (setq ee-pdflike-last 'find-{<}c{>}page)
@@ -359,6 +361,8 @@ newline are spurious - and replaces them by \"(ff)\"."
   ;; (find-code-{pdftextbackend} \\\"{<}c{>}\\\" \\\"{<}fname{>}\\\")
   ;;      (code-{pdftextbackend} \\\"{<}c{>}\\\" \\\"{<}fname{>}\\\")
   ;;
+  ;; See: (find-pdf-like-intro \\\"7. Shorter hyperlinks to PDF files\\\")
+  ;;
   (setq ee-page-c      {<}(ee-pp0 c){>})
   (setq ee-page-fname  {<}(ee-pp0 fname){>})
   (setq ee-page-offset {<}(ee-pp0 offset){>})