[elpa] externals/eev dfb01f6 06/14: New function: `find-find-links-links-new'.

[Stefan Monnier]

branch: externals/eev
commit dfb01f68924518f96210d7e38be0e841a85ce6c1
Author: Eduardo Ochs <address@hidden>
Commit: Eduardo Ochs <address@hidden>

    New function: `find-find-links-links-new'.
---
 ChangeLog     | 10 ++++++++++
 VERSION       |  4 ++--
 eev-tlinks.el | 30 +++++++++++++++++++++++++++++-
 3 files changed, 41 insertions(+), 3 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 82e658d..bb15ab2 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,13 @@
+2020-01-08  Eduardo Ochs  <address@hidden>
+
+       * eev-tlinks.el (find-find-links-links-new): new function.
+
+2020-01-07  Eduardo Ochs  <address@hidden>
+
+       * eev-tlinks.el (ee-ffll-optional, ee-ffll-setqs, ee-ffll-lets)
+       (ee-ffll-comma-args, ee-ffll-defun-without-lets)
+       (ee-ffll-defun-with-lets, ee-ffll-defun): new functions.
+
 2020-01-05  Eduardo Ochs  <address@hidden>
 
        * eev-code.el: added `(code-c-d "elpa" "~/.emacs.d/elpa/")' -
diff --git a/VERSION b/VERSION
index b3f8103..99bfb79 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Tue Jan  7 21:18:50 GMT 2020
-Tue Jan  7 18:18:50 -03 2020
+Wed Jan  8 21:36:29 GMT 2020
+Wed Jan  8 18:36:29 -03 2020
diff --git a/eev-tlinks.el b/eev-tlinks.el
index 4273827..b84f9c5 100644
--- a/eev-tlinks.el
+++ b/eev-tlinks.el
@@ -19,7 +19,7 @@
 ;;
 ;; Author:     Eduardo Ochs <address@hidden>
 ;; Maintainer: Eduardo Ochs <address@hidden>
-;; Version:    2020jan07
+;; Version:    2020jan08
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-tlinks.el>
@@ -59,6 +59,7 @@
 ;;
 ;; «.find-find-links-links»    (to "find-find-links-links")
 ;; «.ee-ffll-functions»                (to "ee-ffll-functions")
+;; «.find-find-links-links-new»        (to "find-find-links-links-new")
 ;;
 ;; «.find-intro-links»         (to "find-intro-links")
 ;; «.find-pdflikedef-links»    (to "find-pdflikedef-links")
@@ -372,6 +373,33 @@ This is an internal function used by `find-{stem}-links'.\"
      (ee-ffll-defun-without-lets stem args)))
 
 
+;; «find-find-links-links-new»  (to ".find-find-links-links-new")
+;; Test: (find-find-links-links-new)
+;;
+(defun find-find-links-links-new (&optional stem args vars &rest pos-spec-list)
+"Visit a temporary buffer containing a skeleton of a find-*-links function."
+  (interactive)
+  (setq stem (or stem "{stem}"))
+  (setq args (or args "{args}"))
+  (setq vars (or vars "{vars}"))
+  (apply 'find-elinks-elisp
+   `((find-find-links-links-new ,stem ,args ,vars ,@pos-spec-list)
+     (find-find-links-links-new "mytask" "foo bar" "" ,@pos-spec-list)
+     (find-find-links-links-new "mytask" "foo bar" "plic bletch" 
,@pos-spec-list)
+     ;; Convention: the first sexp always regenerates the buffer.
+     (find-efunction 'find-find-links-links-new)
+     ""
+     ,(ee-template0 ";; <find-{stem}-links>")
+     ,(concat ";; Skel: " (ee-S `(find-find-links-links-new ,stem ,args 
,vars)))
+     ";;"
+     ,(ee-ffll-defun stem args vars)
+     )
+   pos-spec-list))
+
+
+
+
+