[elpa] externals/eev 788aa0f 15/20: Fixed the behavior of `find-here-links' on `describe-package'.

[Stefan Monnier]

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

    Fixed the behavior of `find-here-links' on `describe-package'.
---
 ChangeLog     |  5 +++++
 VERSION       |  4 ++--
 eev-blinks.el |  3 ++-
 eev-hlinks.el |  9 +++++----
 eev-intro.el  | 23 +++++++++++++++++++++--
 5 files changed, 35 insertions(+), 9 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index a87260d..16a7498 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2020-12-31  Eduardo Ochs  <eduardoochs@gmail.com>
+
+       * eev-hlinks.el (ee-epackage-re-27): new variable.
+       (ee-epackage-bufferp): use `ee-epackage-re-27'.
+
 2020-12-29  Eduardo Ochs  <eduardoochs@gmail.com>
 
        * eev-blinks.el (Man-translate-references): add autoload.
diff --git a/VERSION b/VERSION
index 9d6bf5a..f773690 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Tue Dec 29 09:44:53 GMT 2020
-Tue Dec 29 06:44:53 -03 2020
+Fri Jan  1 01:34:10 GMT 2021
+Thu Dec 31 22:34:10 -03 2020
diff --git a/eev-blinks.el b/eev-blinks.el
index de336b9..ea9f6a6 100644
--- a/eev-blinks.el
+++ b/eev-blinks.el
@@ -101,9 +101,10 @@
 ;; «eek» (to ".eek")
 ;; See: (find-eev-quick-intro "3. Elisp hyperlinks" "eek")
 
-(defun eek (str) (interactive "sKeys: ")
+(defun eek (str)
   "Execute STR as a keyboard macro. See `edmacro-mode' for the exact format.\n
 An example: (eek \"C-x 4 C-h\")"
+  (interactive "sKeys: ")
   (execute-kbd-macro (read-kbd-macro str)))
 
 
diff --git a/eev-hlinks.el b/eev-hlinks.el
index 60e2545..2548b9c 100644
--- a/eev-hlinks.el
+++ b/eev-hlinks.el
@@ -19,7 +19,7 @@
 ;;
 ;; Author:     Eduardo Ochs <eduardoochs@gmail.com>
 ;; Maintainer: Eduardo Ochs <eduardoochs@gmail.com>
-;; Version:    2020dec21
+;; Version:    2020dec31
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-hlinks.el>
@@ -67,8 +67,6 @@
 ;;
 ;;   (find-eapropos "ee-find-.*-links")
 
-
-
 ;; The main workhorse function in this file is `ee-find-here-links',
 ;; that _currently_ uses a big `cond' to run these test functions in a
 ;; certain order until one of them returns true, and then it returns
@@ -272,7 +270,10 @@
       (find-efacedescr ',f))))
 
 (defvar ee-epackage-re "^\\([^ \t\n]+\\) is a[ -~]+ package")
-(defun  ee-epackage-bufferp () (ee-buffer-help ee-epackage-re 1))
+(defvar ee-epackage-re-27 "^Package \\([^ \t\n]+\\) is") ; for Emacs 27
+(defun  ee-epackage-bufferp ()
+  (or (ee-buffer-help ee-epackage-re 1)
+      (ee-buffer-help ee-epackage-re-27 1)))
 (defun  ee-find-epackage-links ()
   (let ((p (ee-epackage-bufferp)))
     (list (ee-find-epackage-links0 p "{c}" "{d}"))))
diff --git a/eev-intro.el b/eev-intro.el
index 83b4114..c2fabdb 100644
--- a/eev-intro.el
+++ b/eev-intro.el
@@ -19,7 +19,7 @@
 ;;
 ;; Author:     Eduardo Ochs <eduardoochs@gmail.com>
 ;; Maintainer: Eduardo Ochs <eduardoochs@gmail.com>
-;; Version:    2020dec27
+;; Version:    2020dec31
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-intro.el>
@@ -11345,7 +11345,14 @@ Download the second URL below with `M-x brep',
   https://github.com/pluralsight/git-internals-pdf/
   
https://github.com/pluralsight/git-internals-pdf/releases/download/v2.0/peepcode-git.pdf
 
-and run this eepitch block,
+and do the same for the fourth URL below here:
+
+  https://git-scm.com/book/en/v2
+  https://github.com/progit/progit2
+  https://github.com/progit/progit2/releases
+  https://github.com/progit/progit2/releases/download/2.1.277/progit.pdf
+
+Then run this eepitch block,
 
  (eepitch-shell)
  (eepitch-kill)
@@ -11356,15 +11363,27 @@ and run this eepitch block,
   #    http://angg.twu.net/bin/git-defs.html
   wget http://angg.twu.net/bin/git-defs
   cp -v 
$S/https/github.com/pluralsight/git-internals-pdf/releases/download/v2.0/peepcode-git.pdf
 .
+  cp -v 
$S/https/github.com/progit/progit2/releases/download/2.1.277/progit.pdf .
 
 and this prog1:
 
   (prog1
     (code-pdf-page \"gitinternals\" \"/tmp/git-test/peepcode-git.pdf\")
     (code-pdf-text \"gitinternals\" \"/tmp/git-test/peepcode-git.pdf\")
+    (code-pdf-page \"progit\" \"/tmp/git-test/progit.pdf\")
+    (code-pdf-text \"progit\" \"/tmp/git-test/progit.pdf\")
     (code-c-d \"gitdoc\" \"/usr/share/doc/git-doc/\")
     )
 
+If can test if everything works by running the six sexps below:
+
+  (find-fline \"/tmp/git-test/git-defs\")
+  (find-gitinternalspage)
+  (find-gitinternalstext)
+  (find-progitpage)
+  (find-progittext)
+  (find-gitdocfile \"\")
+