branch: externals/eev
commit 224ad377f02ca0dba7abba87245c0cbfd365929a
Author: Eduardo Ochs <eduardoo...@gmail.com>
Commit: Eduardo Ochs <eduardoo...@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 <eduardoo...@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 <eduardoo...@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 <eduardoo...@gmail.com>
;; Maintainer: Eduardo Ochs <eduardoo...@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))})
+ )
+"))))
+
