[elpa] externals/eev 224ad37 4/4: Added `ee-find-grep-links1'.

[Stefan Monnier]

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

    Added `ee-find-grep-links1'.
---
 ChangeLog     |  5 +++++
 VERSION       |  4 ++--
 eev-elinks.el | 20 ++++++++++++++++----
 3 files changed, 23 insertions(+), 6 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 13f1df3..7fa217f 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2021-02-26  Eduardo Ochs  <eduardoochs@gmail.com>
+
+       * eev-elinks.el (ee-find-grep-links1): new function.
+       (ee-find-grep-links): use `ee-find-grep-links1'.
+
 2021-02-23  Eduardo Ochs  <eduardoochs@gmail.com>
 
        * eev-pdflike.el (ee-find-pdftotext-text): added a comment
diff --git a/VERSION b/VERSION
index e4cada0..b428115 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Wed Feb 24 00:24:42 GMT 2021
-Tue Feb 23 21:24:42 -03 2021
+Sat Feb 27 02:43:08 GMT 2021
+Fri Feb 26 23:43:08 -03 2021
diff --git a/eev-elinks.el b/eev-elinks.el
index 78a1a77..a65b07b 100644
--- a/eev-elinks.el
+++ b/eev-elinks.el
@@ -19,7 +19,7 @@
 ;;
 ;; Author:     Eduardo Ochs <eduardoochs@gmail.com>
 ;; Maintainer: Eduardo Ochs <eduardoochs@gmail.com>
-;; Version:    2021jan02
+;; Version:    2021feb26
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-elinks.el>
@@ -850,9 +850,11 @@ when this is true remove the prefix D from FNAME, and put 
the sexp
 
 (defun ee-find-grep-links ()
   "An internal function used by `find-grep-links'."
-  (ee-find-grep-links0
-   (ee-find-grep-functions default-directory)
-   (ee-find-grep-commands)))
+  (append
+   (ee-find-grep-links0
+    (ee-find-grep-functions default-directory)
+    (ee-find-grep-commands))
+   (ee-find-grep-links1)))
 
 ;; Low-level functions used by `ee-find-grep-links'.
 ;; Tests:
@@ -862,6 +864,7 @@ when this is true remove the prefix D from FNAME, and put 
the sexp
 ;;     (ee-find-grep-functions ee-emacs-lisp-directory)
 ;;     (ee-find-grep-functions ee-eev-source-directory)
 ;;     (ee-find-grep-commands)
+;;   (find-elinks (ee-find-grep-links1))
 ;;
 (defun ee-find-grep-links0 (find-xxxgreps grep-commands)
   "An internal function used by `find-grep-links'."
@@ -885,6 +888,15 @@ when this is true remove the prefix D from FNAME, and put 
the sexp
   "An internal function used by `find-grep-links'."
   (ee-code-c-d-filter-2 dir '(ee-intern "find-%sgrep" c)))
 
+(defun ee-find-grep-links1 ()
+  "An internal function used by `find-grep-links'."
+  (let ((dir (ee-shorten-file-name default-directory)))
+    (list (ee-template0 "
+(let ((default-directory {(ee-S dir)}))
+  (grep {(ee-S (car grep-history))})
+  )
+"))))
+