[elpa] externals/eev e1b54fd 1/4: Fixed a bug in `ee-insert' and `find-einsert'.

[ELPA Syncer]

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

    Fixed a bug in `ee-insert' and `find-einsert'.
---
 ChangeLog     | 10 ++++++++++
 VERSION       |  4 ++--
 eev-blinks.el | 31 +++++++++++++++++++++++++------
 eev-intro.el  | 25 ++++++++++++++++++++++---
 eev-tlinks.el | 31 ++++++++++++++++++++++++++++++-
 5 files changed, 89 insertions(+), 12 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 25fda08..c5c698c 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,13 @@
+2021-05-16  Eduardo Ochs  <eduardoochs@gmail.com>
+
+       * eev-blinks.el (ee-insert): use `characterp' instead of
+       `char-valid-p'.
+
+2021-05-13  Eduardo Ochs  <eduardoochs@gmail.com>
+
+       * eev-blinks.el (ee-goto-position, ee-goto-rest): added a comment
+       about curved single quotes.
+
 2021-05-12  Eduardo Ochs  <eduardoochs@gmail.com>
 
        * eev-audiovideo.el (find-eevvlinksvideo): new function.
diff --git a/VERSION b/VERSION
index 5c4443e..b05a4ac 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Wed May 12 15:58:21 GMT 2021
-Wed May 12 12:58:21 -03 2021
+Sun May 16 07:50:08 GMT 2021
+Sun May 16 04:50:08 -03 2021
diff --git a/eev-blinks.el b/eev-blinks.el
index 6340edc..c1d870e 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-2020 Free Software Foundation, Inc.
+;; Copyright (C) 1999-2021 Free Software Foundation, Inc.
 ;;
 ;; This file is part of GNU eev.
 ;;
@@ -21,7 +21,7 @@
 ;;
 ;; Author:     Eduardo Ochs <eduardoochs@gmail.com>
 ;; Maintainer: Eduardo Ochs <eduardoochs@gmail.com>
-;; Version:    20201229
+;; Version:    20210516
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-blinks.el>
@@ -44,6 +44,7 @@
 ;; «.eek»                      (to "eek")
 ;; «.ee-goto-position»         (to "ee-goto-position")
 ;; «.ee-goto-rest»             (to "ee-goto-rest")
+;;   «.curved-single-quotes»   (to "curved-single-quotes")
 ;; «.find-fline»               (to "find-fline")
 ;; «.find-wottb»               (to "find-wottb")
 ;; «.find-efaces»              (to "find-efaces")
@@ -120,8 +121,8 @@ An example: (eek \"C-x 4 C-h\")"
 ;;;
 ;; «ee-goto-position»  (to ".ee-goto-position")
 ;; Support for pos-spec-lists in hyperlinks.
-;; See: (find-eval-intro "6. Refining hyperlinks")
-;;      (find-refining-intro "1. Pos-spec-lists")
+;; See: (find-refining-intro "1. Pos-spec-lists")
+;;      (find-refining-intro "2. Refining hyperlinks")
 
 (defun ee-goto-position (&optional pos-spec &rest rest)
   "Process the \"absolute pos-spec-lists\" arguments in hyperlink functions.
@@ -156,7 +157,7 @@ they skip the first \"absolute\" pos-spec."
     (if rest (ee-goto-rest rest))))
 
 ;; «ee-goto-rest»  (to ".ee-goto-rest")
-;; See: (find-eval-intro "7. Pos-spec-lists")
+;; See: (find-refining-intro "1. Pos-spec-lists")
 ;;
 (defun ee-goto-rest (list)
   "Process \"relative pos-spec-lists\".
@@ -183,6 +184,24 @@ the standard definition."
        (t (error "Not a valid pos-spec item: %S" (car list)))))
 
 
+;; «curved-single-quotes»  (to ".curved-single-quotes")
+;; In some situations Emacs converts "`foo'"s to "‘foo’"s, or
+;; vice-versa, in info pages and docstrings; see:
+;;
+;;   (find-elnode "Keys in Documentation" "User Option: text-quoting-style")
+;;   (find-elnode "Text Quoting Style"    "User Option: text-quoting-style")
+;;   (find-elnode "Text Quoting Style" "curved single quotes")
+;;   (find-elnode "Text Quoting Style" "grave accent and apostrophe")
+;;   (find-efunction      'eejump "find-eejumps")
+;;   (find-efunctiondescr 'eejump "find-eejumps")
+;;
+;; Eev doesn't have a way to convert strings in pos-spec-lists between
+;; these styles yet; at this moment `ee-goto-position' and
+;; `ee-goto-rest' do the simplest thing possible - they search for
+;; their string arguments literally with `search-forward'.
+
+
+
 
 
 ;;;   __ _           _        __ _ _            
@@ -995,7 +1014,7 @@ Example: (ee-insert '(?a ?z) 10 \"Foo!\")"
   (while rest
     (let ((o (car rest)))
       (cond ((stringp o) (insert o))
-           ((numberp o) (if (char-valid-p o) (insert o)))
+           ((numberp o) (if (characterp o) (insert o)))
            ((consp o) (mapc 'ee-insert (apply 'number-sequence o)))
            (t (error "Not string/int/pair: %S" o))))
     (setq rest (cdr rest))))
diff --git a/eev-intro.el b/eev-intro.el
index 0e364eb..3f0db7c 100644
--- a/eev-intro.el
+++ b/eev-intro.el
@@ -2810,6 +2810,11 @@ what you do, in a format that is reasonably readable and 
that is
 easy to \"play back\" later, step by step and in any order. We
 call these executable logs, or executable notes, \"e-scripts\".
 
+[Video links:]
+  (find-eev2019video \"5:41\" \"e-scripts\")
+  (find-eev2019video \"12:54\" \"A demo\")
+
+
 
 
 
@@ -2921,6 +2926,12 @@ back\" from that buffer with `M-k' of `M-K':
   (find-eval-intro \"5. Going back\")
 
 
+[Video links:]
+  (find-eev2020video \"2:25\" \"variants that were better behaved\")
+  (find-eev2020video \"2:36\" \"in the same window as before\")
+
+
+
 
 
 3. `find-here-links'
@@ -2976,6 +2987,7 @@ and puts the cursor at the elinks buffer.
 
 
 
+
 5. `find-here-links-1'
 ======================
 After creating the three windows described above we will usually
@@ -3007,6 +3019,7 @@ Note that `M-h M-1' undoes what `M-h M-3' did. In a 
figure:
 
 
 [Video links:]
+  (find-eevfherelvideo \"4:40\" \"2. The beginner's way\")
   (find-eevfherelvideo \"4:40\" \"2.1. The 3-window setting - and going back 
from it\")
   (find-eevfherelvideo \"6:47\"  \"`M-h M-3': three windows; `M-h M-1' goes 
back\")
   (find-eevfherelvideo \"7:29\"  \"the original configuration can be 
anything\")
@@ -6633,7 +6646,7 @@ the page whose page number is 3 is the page whose page 
label is
   (find-livesofanimalspage 3)
 
 are equivalent, but the first one is more human-friendly: the 113
-is a page label, and the -110 is adjustment (we call it the
+is a page label, and the -110 is an adjustment (we call it the
 \"offset\") to convert the 113 that humans prefer to see into
 the 3 that xpdf needs to receive.
 
@@ -9796,10 +9809,16 @@ and then:
 
 Here is the demo. Run it with <F8>s:
 
-
  (find-3EE '(eepitch-shell) '(eepitch-shell2))
+ (find-3ee '(eepitch-shell) '(eepitch-shell2))
+ (eepitch-shell)
+# Optional clean-up:
+ls -lAF $EEVTMPDIR/eeg.A.*
+rm -fv  $EEVTMPDIR/eeg.A.*
+
  (eepitch-shell2)
-$EEVDIR/eegchannel A python
+# Start a python interpreter \"listening on channel A\":
+$EEVDIR/eegchannel A python3
 
  (eepitch-shell)
 # Check that eeg.A.pid exists and is very recent:
diff --git a/eev-tlinks.el b/eev-tlinks.el
index 2e00497..e55b7e8 100644
--- a/eev-tlinks.el
+++ b/eev-tlinks.el
@@ -19,7 +19,7 @@
 ;;
 ;; Author:     Eduardo Ochs <eduardoochs@gmail.com>
 ;; Maintainer: Eduardo Ochs <eduardoochs@gmail.com>
-;; Version:    20210509
+;; Version:    20210516
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-tlinks.el>
@@ -298,6 +298,16 @@ This is an internal function used by `find-{stem}-links'.\"
 ;; Many of the templated functions of eev were written using this.
 ;; They all have a line saying ";; Skel:" that generates their "skeleton".
 ;; See: (find-eevgrep "grep --color -nH --null -e Skel: *.el")
+;;      (find-eevtemplvideo "0:18" "1. `find-find-links-links-new'")
+;;      (find-eevtemplvideo "1:15"   "if I execute 
(find-emacs-tangents-links)")
+;;      (find-eevtemplvideo "1:29"   "generated again with these values")
+;;      (find-eevtemplvideo "1:50"   "the implementation is very simple")
+;;      (find-eevtemplvideo "2:00"   "in five minutes because")
+;;      (find-eevtemplvideo "2:15"   ";; Skel:")
+;;      (find-eevtemplvideo "2:32"   "optional arguments, then this field")
+;;      (find-eevtemplvideo "2:40"   "temporary variables set by a let*")
+;;      (find-eevtemplvideo "3:25"   "to write `find-emacs-tangents-links'")
+;;      (find-eevtemplvideo "3:40"   "backslashes in the right places")
 ;;
 (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."
@@ -912,6 +922,25 @@ emacs    -fg bisque -bg black                  
eev-readme.el
 ;; Skel: (find-find-links-links-new "youtubedl" "dir title hash ext- stem" "")
 ;; Test: (find-youtubedl-links nil nil "K6LmZ0A1s9U")
 ;; See:  (find-audiovideo-intro "6. Youtube-dl")
+;;       (find-eevtemplvideo "19:23" "5. `find-youtubedl-links'")
+;;       (find-eevtemplvideo "19:43"   "if we twist the notion of user enough")
+;;       (find-eevtemplvideo "20:02"   "user-friendly to me")
+;;       (find-eevtemplvideo "20:05"   "The documentation is in this 
tutorial:")
+;;       (find-eevtemplvideo "21:36"   "its code is here")
+;;       (find-eevtemplvideo "21:55"   "Let me show a demo")
+;;       (find-eevtemplvideo "22:15"   "I never type these rm -Rv/mkdir/cd by 
hand")
+;;       (find-eevtemplvideo "22:48"   "let me show how to download ... the 
hash is here")
+;;       (find-eevtemplvideo "23:25"   "they regenerate this buffer in 
slightly different ways")
+;;       (find-eevtemplvideo "24:03"   "a video with this hash. If I visit the 
directory")
+;;       (find-eevtemplvideo "24:32"   "my magic functions have to")
+;;       (find-eevtemplvideo "24:50"   "if I run this sexp here with nil")
+;;       (find-eevtemplvideo "25:00"   "it tries to guess the title")
+;;       (find-eevtemplvideo "25:28"   "and if I change this {stem} here I get 
short links")
+;;       (find-eevtemplvideo "26:14"   "has very long lines, but if I type 
super-w")
+;;       (find-eevtemplvideo "26:28"   "I get a buffer that shows the code 
for")
+;;       (find-eevtemplvideo "26:50"   "if I execute this I play the video")
+;;       (find-eevtemplvideo "27:15"   "a copy of that points to the right 
position")
+;;       (find-eevtemplvideo "27:53"   "summary: this is how I download videos 
from youtube")
 ;;
 (defun find-youtubedl-links (&optional dir title hash ext- stem &rest 
pos-spec-list)
 "Visit a temporary buffer containing hyperlinks for youtube-dl."