[elpa] externals/eev 3313bc5601: Use the `find-eloadhistory*' functions in more places.

[ELPA Syncer]

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

    Use the `find-eloadhistory*' functions in more places.
---
 ChangeLog      | 20 +++++++++++++
 VERSION        |  4 +--
 eev-blinks.el  | 21 ++++++++------
 eev-elinks.el  |  7 +++--
 eev-htests.el  |  4 ++-
 eev-intro.el   | 90 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 eev-kl-here.el | 17 +++++++----
 eev-pdflike.el |  3 +-
 8 files changed, 146 insertions(+), 20 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index d03f31551b..82041ece78 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,23 @@
+2024-01-30  Eduardo Ochs  <eduardoochs@gmail.com>
+
+       * eev-blinks.el (find-eloadhistory-for): small changes.
+
+       * eev-elinks.el (ee-find-efunction-links): small changes.
+
+2024-01-28  Eduardo Ochs  <eduardoochs@gmail.com>
+
+       * eev-kl-here.el (ee-find-epackage-linki): new function.
+
+2024-01-25  Eduardo Ochs  <eduardoochs@gmail.com>
+
+       * eev-intro.el (find-eev-levels-intro): new intro - currently a
+       stub.
+
+       * eev-pdflike.el (ee-find-pdftotext8-text, ee-find-pdf-text8)
+       (find-pdftotext8-text, find-pdf-text8): new functions.
+       (brpdftxt8l, brpdftxt8d) new functions, generated by a call to
+       `code-brfile'.
+
 2024-01-21  Eduardo Ochs  <eduardoochs@gmail.com>
 
        * eev-intro.el (find-wrap-intro): rewrote the section "6. All
diff --git a/VERSION b/VERSION
index 461d6a3353..5f04cfd575 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Thu Jan 25 20:04:23 GMT 2024
-Thu Jan 25 17:04:23 -03 2024
+Wed Jan 31 01:26:56 GMT 2024
+Tue Jan 30 22:26:56 -03 2024
diff --git a/eev-blinks.el b/eev-blinks.el
index 1636f0d646..e299f6b0a4 100644
--- a/eev-blinks.el
+++ b/eev-blinks.el
@@ -2,7 +2,7 @@
 ;; The basic hyperlinks are the ones that do not depend on templates,
 ;; and that are not created by `code-c-d' and friends.
 
-;; Copyright (C) 1999-2023 Free Software Foundation, Inc.
+;; Copyright (C) 1999-2024 Free Software Foundation, Inc.
 ;;
 ;; This file is part of GNU eev.
 ;;
@@ -1727,17 +1727,22 @@ Hint: install the Debian package \"unicode-data\".")
 
 
 ;; Tests: (find-eloadhistory-for 'eekla)
+;;        (find-eloadhistory-for 'next-line)
 ;;        (find-eloadhistory-for (symbol-file 'eekla 'defun))
 ;;
-(defun find-eloadhistory-for (f &rest pos-spec-list)
+(defun find-eloadhistory-for (f &rest rest)
   "Show the result of `(assoc F load-history)' in a temporary buffer.
 If F is a symbol it is converted to a filename with (symbol-file F 'defun)."
-  (let* ((fname (if (symbolp f) (symbol-file f 'defun) f))
-        (sexp `(find-eloadhistory-for ,(ee-add-quote f)))
-        (ee-buffer-name (format "*%S*" sexp))
-        (body (ee-ppp0 (assoc fname load-history)))
-        (header (format ";; %S\n;; (find-eloadhistory-links)\n\n" sexp)))
-    (apply 'find-estring-elisp (concat header body) pos-spec-list)))
+  (let* ((fname      (if (symbolp f) (symbol-file f 'defun) f))
+        (fnameel    (replace-regexp-in-string ".elc$" ".el" fname))
+        (sexp1     `(find-eloadhistory-for ,(ee-add-quote f) ,@rest))
+        (sexp2     `(find-fline ,fnameel))
+        (ee-buffer-name (format "*%S*" sexp1))
+        (header     (format
+                     ";; %S\n;; (find-eloadhistory-links)\n;; %S\n\n"
+                     sexp1 sexp2))
+        (body       (ee-ppp0 (assoc fname load-history))))
+    (apply 'find-estring-elisp (concat header body) rest)))
 
 
 
diff --git a/eev-elinks.el b/eev-elinks.el
index ef5a5dc09e..630ff4d12e 100644
--- a/eev-elinks.el
+++ b/eev-elinks.el
@@ -1,6 +1,6 @@
 ;;; eev-elinks.el --- `find-efunction-links' and other `find-e*-links'  -*- 
lexical-binding: nil; -*-
 
-;; Copyright (C) 2012-2023 Free Software Foundation, Inc.
+;; Copyright (C) 2012-2024 Free Software Foundation, Inc.
 ;;
 ;; This file is part of GNU eev.
 ;;
@@ -305,13 +305,16 @@ This is an internal function used by 
`find-efunction-links' and
     (find-elnode "Index" ,(format "* %S:" f))
     ""
     (where-is ',f)
+    ""
+    (find-eloadhistory-for ',f)
+    (find-estring-elisp (ee-eloadhistory-find-flines))
     (symbol-file ',f 'defun)
     (find-fline (symbol-file ',f 'defun))
     (find-eppp (assoc (symbol-file ',f 'defun) load-history))
     (find-eppp (assoc ,(symbol-file f 'defun) load-history))
     (find-eppp (mapcar 'car load-history))
     (find-estring (mapconcat 'identity (mapcar 'car load-history) "\n"))
-    (find-estring-elisp (ee-eloadhistory-find-flines))
+    ""
     (find-estring (documentation ',f))
     (find-estring (documentation ',f t))
     (describe-function ',f)
diff --git a/eev-htests.el b/eev-htests.el
index 8ee1794891..faff2028cd 100644
--- a/eev-htests.el
+++ b/eev-htests.el
@@ -19,7 +19,7 @@
 ;;
 ;; Author:     Eduardo Ochs <eduardoochs@gmail.com>
 ;; Maintainer: Eduardo Ochs <eduardoochs@gmail.com>
-;; Version:    20231228
+;; Version:    20240128
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://anggtwu.net/eev-current/eev-htests.el>
@@ -106,6 +106,8 @@ running SEXP1 in the buffer A, and C is the result of 
running
 ;;   (find-tlhi '(find-eev-quick-intro)     '(ee-find-intro-linki))
 ;;   (find-tlhs '(find-man "1 cat")         '(ee-find-man-links))
 ;;   (find-tlhi '(find-man "1 cat")         '(ee-find-man-linki))
+;;   (find-tlhs '(find-epackage 'magit)     '(ee-find-epackage-links))
+;;   (find-tlhi '(find-epackage 'magit)     '(ee-find-epackage-linki))
 ;;   (find-tlhs '(find-epackages 'abs-mode) '(ee-find-epackages-links))
 ;;   (find-tlhi '(find-epackages 'abs-mode) '(ee-find-epackages-linki))
 ;;   (find-tlhs '(find-customizegroup 'editing) '(ee-find-custom-links))
diff --git a/eev-intro.el b/eev-intro.el
index ca913573aa..70cbbe21e4 100644
--- a/eev-intro.el
+++ b/eev-intro.el
@@ -61,6 +61,7 @@
 ;; «.find-eev-quick-intro»             (to "find-eev-quick-intro")
 ;; «.find-emacs-keys-intro»            (to "find-emacs-keys-intro")
 ;; «.find-eev-install-intro»           (to "find-eev-install-intro")
+;; «.find-eev-levels-intro»            (to "find-eev-levels-intro")
 ;; «.find-eev-intro»                   (to "find-eev-intro")
 ;; «.find-here-links-intro»            (to "find-here-links-intro")
 ;; «.find-refining-intro»              (to "find-refining-intro")
@@ -2165,6 +2166,7 @@ It is meant as both a tutorial and a sandbox.
 
 
 This intro is being rewritten!
+See: (find-eev-levels-intro)
 
 
 
@@ -2769,6 +2771,94 @@ See:
 
 
 
+;;;  _                _     
+;;; | | _____   _____| |___ 
+;;; | |/ _ \ \ / / _ \ / __|
+;;; | |  __/\ V /  __/ \__ \
+;;; |_|\___| \_/ \___|_|___/
+;;;                         
+;; «find-eev-levels-intro»  (to ".find-eev-levels-intro")
+;; Skel: (find-intro-links "eev-levels")
+;; Test: (find-eev-levels-intro)
+
+(defun find-eev-levels-intro (&rest pos-spec-list) (interactive)
+  (let ((ee-buffer-name "*(find-eev-levels-intro)*"))
+    (apply 'find-eintro "\
+\(Re)generate: (find-eev-levels-intro)
+Source code:  (find-efunction 'find-eev-levels-intro)
+More intros:  (find-eev-quick-intro)
+              (find-eev-intro)
+              (find-eepitch-intro)
+This buffer is _temporary_ and _editable_.
+It is meant as both a tutorial and a sandbox.
+
+
+
+See: (find-eev-install-intro)
+
+
+
+1. Installing
+=============
+_Installing_ eev with a package manager only does this:
+
+  a. this directory is put in the load-path:
+
+       (find-eevfile \"\")
+
+  b. the function `eev-beginner' is declared as an autoload.
+
+
+2. Loading
+==========
+_Loading_ eev does a few things more. They are explained here:
+
+  (find-eev-intro \"1. `eev-mode'\")
+  (find-eev-intro \"1. `eev-mode'\" \"invasive\")
+  (find-eev \"eev-load.el\" \"autoloads\")
+  (find-eev \"eev-load.el\" \"load-the-main-modules\")
+
+If you want to make your Emacs _load_ eev on startup, then the
+best way to do that is to put either this
+
+  ;; See: (find-eev-install-intro \"0. Loading eev\")
+  (require 'eev-load)
+  (eev-mode 1)
+
+or this
+
+  ;; See: (find-eev-install-intro \"0. Loading eev\")
+  (require 'eev-load)
+  ;; (eev-mode 1)
+
+in your init file - see:
+
+  (find-enode \"Init File\")
+
+Use the version with \"(eev-mode 1)\" if you want to turn
+eev-mode on on startup, and the version with \";; (eev-mode 1)\"
+if you prefer to start with eev-mode off.
+
+
+
+3. Activating
+=============
+_Activating_ eev means \"turning eev-mode on\". Activating eev
+does very little - see:
+
+  (find-eev-intro \"1. `eev-mode'\" \"Turning on eev-mode\")
+
+Note that \"installing\", \"loading\", and \"activating\" eev are
+different things, and each one does less than the next one.
+
+
+" pos-spec-list)))
+
+;; (find-eev-levels-intro)
+
+
+
+
 
 
 ;;;
diff --git a/eev-kl-here.el b/eev-kl-here.el
index 66686f99bb..5cd252d4a8 100644
--- a/eev-kl-here.el
+++ b/eev-kl-here.el
@@ -108,6 +108,11 @@
        `(,(ee-kl-find-cfile) ,(ee-kl-shorterfname))
       `(find-fline ,fname))))
 
+;; Skel: (find-linki-links "epackage")
+(defun ee-find-epackage-linki ()
+  (let ((p (ee-epackage-bufferp)))
+    `(find-epackage-links ',p)))
+
 ;; Skel: (find-linki-links "epackages")
 (defun ee-find-epackages-linki ()
   (let ((pkgsymbol (ee-packages-package-here)))
@@ -147,22 +152,22 @@
 ;; Skel: (find-linki-links "efunctiondescr")
 (defun ee-find-efunctiondescr-linki ()
   (let ((f (ee-efunctiondescr-bufferp)))
-    `(find-efunctiondescr ',f)
-    ;; `(find-efunction-links ',f)
+    ;; `(find-efunctiondescr ',f)
+    `(find-efunction-links ',f)
     ))
 
 ;; Skel: (find-linki-links "efacedescr")
 (defun ee-find-efacedescr-linki ()
   (let ((f (ee-efacedescr-bufferp)))
-    `(find-efacedescr ',f)
-    ;; `(find-eface-links ',f)
+    ;; `(find-efacedescr ',f)
+    `(find-eface-links ',f)
     ))
 
 ;; Skel: (find-linki-links "evardescr")
 (defun ee-find-evardescr-linki ()
   (let ((v (ee-evardescr-bufferp)))
-    `(find-evardescr ',v)
-    ;; `(find-evariable-links ',v)
+    ;; `(find-evardescr ',v)
+    `(find-evariable-links ',v)
     ))
 
 ;; Skel: (find-linki-links "epackage")
diff --git a/eev-pdflike.el b/eev-pdflike.el
index 0fa7737e59..7e2afb7ab1 100644
--- a/eev-pdflike.el
+++ b/eev-pdflike.el
@@ -296,6 +296,7 @@ newline are spurious - and replaces them by \"(ff)\"."
   (ee-template0 "\
 ;; (find-code-pdfbackend \"{pdfbackend}\")
 ;;      (code-pdfbackend \"{pdfbackend}\")
+;; (find-efunction 'find-code-pdfbackend)
 ;;
 ;; This is similar to a `code-c-d' - see:
 ;;   (find-eev-quick-intro \"9.1. `code-c-d'\")
@@ -313,7 +314,7 @@ newline are spurious - and replaces them by \"(ff)\"."
 ;;                      find-code-{pdfbackend}
 ;;
 ;; The function `find-{pdfbackend}' calls `ee-find-{pdfbackend}',
-;; that need to be defined externally.
+;; that needs to be defined externally.
 ;;
 ;; See:
 ;; (find-eev \"eev-pdflike.el\" \"code-pdfbackend\")