[elpa] externals/eev 1509c58: Added `ee-very-primitive-wget0'.

[ELPA Syncer]

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

    Added `ee-very-primitive-wget0'.
---
 ChangeLog     |  3 +++
 VERSION       |  4 ++--
 eepitch.el    |  4 ++--
 eev-intro.el  |  7 +++++++
 eev-plinks.el | 11 +++++++++++
 5 files changed, 25 insertions(+), 4 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index f2aacad..298d153 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,10 +1,13 @@
 2021-10-05  Eduardo Ochs  <eduardoochs@gmail.com>
 
+       * eev-plinks.el (ee-very-primitive-wget0): new function.
+
        * eepitch.el (find-vtermprocess, eepitch-vterm): rewritten.
        Beware: their arguments are different now!
        (eepitch-ansiterm, eepitch-line-ansiterm)
        (find-ansitermprocess, eepitch-pwsh)
        (eepitch-pwsh2): new functions.
+       (eepitch-ansiterm): fixed some typos.
 
 2021-10-04  Eduardo Ochs  <eduardoochs@gmail.com>
 
diff --git a/VERSION b/VERSION
index 954fb8f..19425e4 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Tue Oct  5 05:12:21 GMT 2021
-Tue Oct  5 02:12:21 -03 2021
+Wed Oct  6 03:57:17 GMT 2021
+Wed Oct  6 00:57:17 -03 2021
diff --git a/eepitch.el b/eepitch.el
index ca9fa8b..3c9d113 100644
--- a/eepitch.el
+++ b/eepitch.el
@@ -863,8 +863,8 @@ It uses `eepitch-line-ansiterm' instead of `eepitch-line'.
 The arguments are explained here:
   (find-eev \"eepitch.el\" \"other-terms\")"
   (interactive)
-  (prog1 (eepitch `(find-vtermprocess ,program ,name0))
-    (setq eepitch-line 'eepitch-line-vterm)))
+  (prog1 (eepitch `(find-ansitermprocess ,program ,name0))
+    (setq eepitch-line 'eepitch-line-ansiterm)))
 
 ;; «eepitch-vterm»  (to ".eepitch-vterm")
 ;; Tests:
diff --git a/eev-intro.el b/eev-intro.el
index 656ed5a..49b5984 100644
--- a/eev-intro.el
+++ b/eev-intro.el
@@ -12445,6 +12445,13 @@ Version of these instructions: 2021sep20.
 Read the README below and then install Emacs using either the
 link to the .exe or the link to the .zip:
 
+http://alpha.gnu.org/gnu/emacs/pretest/windows/emacs-28/
+http://alpha.gnu.org/gnu/emacs/pretest/windows/emacs-28/README-windows-binaries
+http://alpha.gnu.org/gnu/emacs/pretest/windows/emacs-28/emacs-28.0.50-snapshot-2021-01-15-installer.exe
+http://alpha.gnu.org/gnu/emacs/pretest/windows/emacs-28/emacs-28.0.50-snapshot-2021-01-15.zip
+
+If you prefer Emacs27, use these links:
+
 https://ftp.gnu.org/gnu/emacs/windows/emacs-27/
 https://ftp.gnu.org/gnu/emacs/windows/emacs-27/README-windows-binaries
 https://ftp.gnu.org/gnu/emacs/windows/emacs-27/emacs-27.2-x86_64-installer.exe
diff --git a/eev-plinks.el b/eev-plinks.el
index 0c1a4dc..7b2651f 100644
--- a/eev-plinks.el
+++ b/eev-plinks.el
@@ -291,6 +291,17 @@ simplistic as possible. Use it only to experiment with
   (prog1 (buffer-substring (point) (point-max))
     (kill-buffer (current-buffer))))
 
+(defun ee-very-primitive-wget0 (url fname)
+  "Try to download the contents of URL into FNAME.
+If that works return the number of bytes written.
+If that fails return nil or throw an error.
+This is a quick hack."
+  (let* ((contents (ee-urlretrieve0 url))
+        (ok (string-match "^HTTP/1.1 200 OK" ee-urlretrieve-headers)))
+    (when ok
+      (write-region contents nil (ee-expand fname))
+      (string-bytes contents))))
+
 
 
 ;;;   __ _           _                         _