[elpa] externals/eev 8afeb43 45/64: Cleaned up eev-mode.el and other files.

[Stefan Monnier]

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

    Cleaned up eev-mode.el and other files.
---
 ChangeLog         |  8 +++++
 VERSION           |  4 +--
 eev-audiovideo.el | 10 +++++--
 eev-channels.el   | 12 ++++++--
 eev-edit.el       | 61 +++++++++++++++++++++-----------------
 eev-intro.el      | 89 ++++++++++++++++++++++++++-----------------------------
 eev-load.el       | 37 +++++++++++++++--------
 eev-mode.el       | 64 ++++++++++++++++++++++++++++-----------
 eev-rcirc.el      | 28 +----------------
 eev-readme.el     | 13 ++++++--
 eev-tlinks.el     |  4 +++
 eev2-all.el       | 21 ++++++++-----
 12 files changed, 202 insertions(+), 149 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index e77ed61..7679660 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,11 @@
+2019-03-02  Eduardo Ochs  <address@hidden>
+
+       * eev-edit.el: moved all keybindings to eev-mode.el.
+
+       * eev-tlinks.el (find-eev-update-links): marked as obsolete.
+
+       * eev-intro.el (find-intro-dual-define): new function.
+
 2019-02-28  Eduardo Ochs  <address@hidden>
 
        * eepitch.el (at-nth-window): commented out.
diff --git a/VERSION b/VERSION
index f5cb945..32cf28d 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Thu Feb 28 20:07:42 GMT 2019
-Thu Feb 28 17:07:42 -03 2019
+Sat Mar  2 08:17:00 GMT 2019
+Sat Mar  2 05:17:00 -03 2019
diff --git a/eev-audiovideo.el b/eev-audiovideo.el
index a4820d2..b4932a2 100644
--- a/eev-audiovideo.el
+++ b/eev-audiovideo.el
@@ -1,6 +1,6 @@
 ;;; eev-audiovideo.el -- elisp hyperlinks to audio and video files.
 
-;; Copyright (C) 2013 Free Software Foundation, Inc.
+;; Copyright (C) 2013,2019 Free Software Foundation, Inc.
 ;;
 ;; This file is (not yet?) part of GNU eev.
 ;;
@@ -19,7 +19,7 @@
 ;;
 ;; Author:     Eduardo Ochs <address@hidden>
 ;; Maintainer: Eduardo Ochs <address@hidden>
-;; Version:    2013oct18
+;; Version:    2019mar02
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-audiovideo.el>
@@ -31,6 +31,12 @@
 
 ;;; Commentary:
 
+;; There is an introduction to these features here,
+;;
+;;   (find-audiovideo-intro)
+;;
+;; but that needs to be rewritten...
+
 
 
 (require 'eev-code)
diff --git a/eev-channels.el b/eev-channels.el
index 4485a65..1a9e1cf 100644
--- a/eev-channels.el
+++ b/eev-channels.el
@@ -1,7 +1,7 @@
 ;;; eev-channels.el -- control external processes usign signals,
 ;;; temporary files, and Expect scripts.
 
-;; Copyright (C) 2012 Free Software Foundation, Inc.
+;; Copyright (C) 2012,2019 Free Software Foundation, Inc.
 ;;
 ;; This file is (not yet?) part of GNU eev.
 ;;
@@ -20,7 +20,7 @@
 ;;
 ;; Author:     Eduardo Ochs <address@hidden>
 ;; Maintainer: Eduardo Ochs <address@hidden>
-;; Version:    2012dec27
+;; Version:    2019mar02
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-channels.el>
@@ -31,6 +31,14 @@
 
 ;;; Commentary:
 
+;; `eechannel' is very difficult to set up and has been mostly
+;; superseded by `eepitch'. There is some documentation here,
+;;
+;;  (find-channels-intro)
+;;
+;; but it needs to be rewritten.
+
+
 ;; TODO: import code from:
 ;;   (find-eevgrep "grep -nH -e channel *.el")
 ;;   (find-eev "anim/channels.anim")
diff --git a/eev-edit.el b/eev-edit.el
index 1f326cf..3f3ba07 100644
--- a/eev-edit.el
+++ b/eev-edit.el
@@ -1,6 +1,6 @@
 ;;; eev-edit.el -- tools for editing (mainly refining) elisp hyperlinks.
 
-;; Copyright (C) 2012 Free Software Foundation, Inc.
+;; Copyright (C) 2012,2019 Free Software Foundation, Inc.
 ;;
 ;; This file is (not yet?) part of GNU eev.
 ;;
@@ -19,7 +19,7 @@
 ;;
 ;; Author:     Eduardo Ochs <address@hidden>
 ;; Maintainer: Eduardo Ochs <address@hidden>
-;; Version:    2012dec26
+;; Version:    2019mar02
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-edit.el>
@@ -31,15 +31,21 @@
 ;;; Commentary:
 
 ;; See:
-;; (find-eev-intro)
-;; (find-eval-intro)
-;; (find-eval-intro "Refining hyperlinks")
-;; (find-eevgrep "grep -niH -e m-- *.el")
-;; (find-angg ".emacs" "ee-shrink-hyperlink-at-eol")
+;;   (find-eval-intro "9. Producing and refining hyperlinks")
+;;   (find-escripts-intro "5.7. Refining hyperlinks")
+;;   (find-escripts-intro "5.8. Pointing to anchors")
+;;   (find-eevfile "eev-mode.el" "Keys for refining hyperlinks")
+;;
+;; `M-h M--', `M-s' and `M-I' are not yet explained in the intros!
+
+
+
+;; �.ee-duplicate-this-line�           (to "ee-duplicate-this-line")
+;; �.ee-yank-pos-spec�                 (to "ee-yank-pos-spec")
+;; �.ee-shrink-hyperlink-at-eol�       (to "ee-shrink-hyperlink-at-eol")
+;; �.ee-flip-psne-ness�                        (to "ee-flip-psne-ness")
+;; �.eewrap-vldi-list-line�            (to "eewrap-vldi-list-line")
 
-;; (find-eevfile "eev-mode.el" "Keys for editing hyperlinks:")
-;; (find-eevfile "eev-insert.el" "defun ee-ill")
-;; (find-eevgrep "grep -nH -e duplicate *.el")
 
 
 
@@ -49,8 +55,9 @@
 ;;; | (_| | |_| | |_) | | | (_| (_| | ||  __/
 ;;;  \__,_|\__,_| .__/|_|_|\___\__,_|\__\___|
 ;;;             |_|                          
-
-(define-key eev-mode-map "\M-h\M-2" 'ee-duplicate-this-line)
+;;
+;; �ee-duplicate-this-line� (to ".ee-duplicate-this-line")
+;; (define-key eev-mode-map "\M-h\M-2" 'ee-duplicate-this-line)
 
 (defun ee-duplicate-this-line ()
   "Duplicate the current line (without any changes to the kill ring)."
@@ -58,14 +65,16 @@
   (let ((line (buffer-substring (ee-bol) (ee-eol))))
     (save-excursion (beginning-of-line) (insert-before-markers line "\n"))))
 
+
 ;;;                    _    
 ;;;  _   _  __ _ _ __ | | __
 ;;; | | | |/ _` | '_ \| |/ /
 ;;; | |_| | (_| | | | |   < 
 ;;;  \__, |\__,_|_| |_|_|\_\
 ;;;  |___/                  
-
-(define-key eev-mode-map "\M-h\M-y" 'ee-yank-pos-spec)
+;;
+;; �ee-yank-pos-spec� (to ".ee-yank-pos-spec")
+;; (define-key eev-mode-map "\M-h\M-y" 'ee-yank-pos-spec)
 
 (defun ee-yank-pos-spec ()
   "Append the top of the kill ring to a hyperlink sexp, as a Lisp string.
@@ -107,9 +116,8 @@ and you copy that hyperlink to a more permanent place."
 ;;; \__ \ | | | |  | | | | |   < 
 ;;; |___/_| |_|_|  |_|_| |_|_|\_\
 ;;;                              
-;; �ee-shrink-hyperlink-at-eol�  (to ".ee-shrink-hyperlink-at-eol")
-;;
-(define-key eev-mode-map "\M-h\M--" 'ee-shrink-hyperlink-at-eol)
+;; �ee-shrink-hyperlink-at-eol� (to ".ee-shrink-hyperlink-at-eol")
+;; (define-key eev-mode-map "\M-h\M--" 'ee-shrink-hyperlink-at-eol)
 
 (defun ee-shrink-sexp (sexp)
   "If the car of SEXP of the form `find-xxxfile', reduce it to `find-xxx'."
@@ -139,12 +147,12 @@ and you copy that hyperlink to a more permanent place."
 ;;; |  _| | | |_) |_____| |_) \__ \ | | |  __/
 ;;; |_| |_|_| .__/      | .__/|___/_| |_|\___|
 ;;;         |_|         |_|                   
+;;
+;; �ee-flip-psne-ness� (to ".ee-flip-psne-ness")
+;; (define-key eev-mode-map "\M-s" 'ee-flip-psne-ness)
 
-;; (find-efunctiondescr 'eemklinks-yank-pos-spec)
 ;; (find-eevfile "eev-insert.el" "defun ee-ill")
 
-(define-key eev-mode-map "\M-s" 'ee-flip-psne-ness)
-
 (defun ee-flip-psne-ness ()
   (interactive)
   (if (search-forward-regexp 
"\\$S/\\(https?\\|ftp\\)/\\|\\(https?\\|ftp\\)://")
@@ -162,7 +170,8 @@ and you copy that hyperlink to a more permanent place."
 ;;;  \ V /| | (_| | |_____| | \__ \ ||_____| | | | | |  __/
 ;;;   \_/ |_|\__,_|_|     |_|_|___/\__|    |_|_|_| |_|\___|
 ;;;                                                        
-;; This is a hack.
+;; �eewrap-vldi-list-line� (to ".eewrap-vldi-list-line")
+;; (define-key eev-mode-map "\M-I" 'eewrap-vldi-list-line)
 ;;
 ;; In a Debian system, for each installed package named xxxx there is
 ;; an associated file, at /var/lib/dpkg/info/xxxx.list - let's call
@@ -171,14 +180,11 @@ and you copy that hyperlink to a more permanent place."
 ;;
 ;; To convert a vldi list to hyperlinks, copy it to a read-write
 ;; buffer and run M-I on each of its lines. More details later - this
-;; is a hack. =\
-;;
-;; (find-eev "eev-insert.el" "ee-ill")
+;; is a hack!
 ;;
-;; M-I: vldi-list-line
-(define-key eev-mode-map "\M-I" 'eewrap-vldi-list-line)
+;; Old version: (find-eev "eev-insert.el" "ee-ill")
 
-(defun  eewrap-vldi-list-line () (interactive)
+(defun eewrap-vldi-list-line () (interactive)
   "Convert a filename at the current line into a hyperlink, and go down.
 Supports `find-man', `find-udfile', and `find-fline' hyperlinks.
 This function recognizes lines containing directory names, and
@@ -221,6 +227,5 @@ then just delete the current line."
 ;; Local Variables:
 ;; coding:            raw-text-unix
 ;; ee-anchor-format:  "�%s�"
-;; ee-anchor-format:  "defun %s "
 ;; no-byte-compile:   t
 ;; End:
diff --git a/eev-intro.el b/eev-intro.el
index 55d85a3..f609137 100644
--- a/eev-intro.el
+++ b/eev-intro.el
@@ -20,7 +20,7 @@
 ;;
 ;; Author:     Eduardo Ochs <address@hidden>
 ;; Maintainer: Eduardo Ochs <address@hidden>
-;; Version:    2019feb27
+;; Version:    2019mar02
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-intro.el>
@@ -98,20 +98,9 @@
 
 
 
-;; Ignore this - this is an obsolete hack that I used to use to make
-;; the htmlization in <http://angg.twu.net/eev-intros/> work better...
-;; (find-angg "eev-intros/")
-;; (find-angg "eev-intros/README")
-;;' (fooi-re "Source code:  (find-efunction '\\([!-~]*\\))"
-;;           "Source code:  (find-eev \\\\\"eev-intro.el\\\\\" 
\\\\\"\\1\\\\\")")
-
-
 ;; �find-intro-dual� (to ".find-intro-dual")
 ;; Below is a hack that I (edrx) use to edit these intros.
-;; Note that it is commented out - and how it is commented out!
-;; The way to run the ' (progn <multi-line-stuff>) is to put the point
-;; after the closing parenthesis - the one on a line by itself - and
-;; then type `M-e'.
+;; Note that it is sort of commented out.
 ;;
 ;; If we're editing the defun for `find-foo-intro' at a line that
 ;; contains "<a certain string>" then running `M-x fd' there creates a
@@ -128,8 +117,11 @@
 ;; line containing "<a certain string>" then running `M-x fd' also
 ;; creates the same window setup, with the source at the left and the
 ;; intro buffer at the right.
-'
-(progn
+
+(defun find-intro-dual-define ()
+  "Define `find-intro-dual' and `fd', that are hacks for editing 
`find-xxx-intro's."
+  (interactive)
+  ;; The hackish functions begin here and end at the line with a single ")".
 
 ;; Test: (ee-sexp-at "2)")
 ;;             (+  1  2)
@@ -179,7 +171,10 @@ Actually go to: (find-eev \"eev-intro.el\" 
\"find-foo-intro\" (ee-last-kill))."
 (defalias 'fi 'find-intro-intro)
 (defalias 'fd 'find-intro-dual)
 
-)
+(message "`find-intro-dual' and `fd' are now defined.")
+
+  ;; end of `find-intro-dual-define'
+  )
 
 
 
@@ -535,7 +530,7 @@ A way to go quickly to \"~/TODO\" is explained in section 
7.1.
 A way to \"refine\" hyperlinks to make them more precise is
 explained here:
 
-  (find-eval-intro \"Producing and refining hyperlinks\")
+  (find-eval-intro \"9. Producing and refining hyperlinks\")
 
 
 
@@ -4982,8 +4977,8 @@ Is is meant as both a tutorial and a sandbox.
 
 
 
-Time offsets
-============
+1. Time offsets
+===============
 Links to audio and video files are similar to links to pdf-like
 documents, but instead of page numbers we use \"time offsets\" to
 refer to positions. Time offsets are strings like 1:23, 12:34, or
@@ -5005,8 +5000,8 @@ default - and its error messages appear here:
 
 
 
-Shorter hyperlinks to audio and video files
-===========================================
+2. Shorter hyperlinks to audio and video files
+==============================================
 If you type `M-V' (`eewrap-audiovideo') on a line containing a
 shorthand word and a file name of an audio or video file, for
 example, here,
@@ -5042,8 +5037,8 @@ each call to a short hyperlink of the form 
`find-xxxaudio' or
 
 
 
-Passing options to mplayer
-==========================
+3. Passing options to mplayer
+=============================
 By default mplayer is called with just a few command-line options,
 besides the ones that tell it at what position to start playing -
 typically just these for videos,
@@ -5063,8 +5058,8 @@ If you want to change this you should redefine these 
functions:
 
 
 
-`eev-avadj-mode'
-================
+4. `eev-avadj-mode'
+===================
 \"avadj-mode\" is a shorthand for \"audio/video adjust mode\".
 When `eev-avadj-mode' is active we get keys for adjusting time
 offsets quickly and for playing again the default audio or video
@@ -5108,8 +5103,8 @@ we are not doing that yet.
 
 
 
-The time-from-bol
-=================
+5. The time-from-bol
+====================
 All the keys in eev-avadj-mode operate on the \"time-from-bol\"
 of the current line: the first occurrence, in the current line,
 of a string that looks like a time offset. Note that the search
@@ -5143,8 +5138,8 @@ For more realistic examples, see:
 
 
 
-Youtube-dl
-==========
+6. Youtube-dl
+=============
 Videos at Youtube are identified by unique 11-char codes that are
 assigned to them when they are uploaded. We will call those 11-char
 codes \"hashes\", even though the term is not totally adequade in this
@@ -5177,8 +5172,8 @@ as soon as the download is finished.
 
 
 
-Downloading a local copy
-========================
+7. Downloading a local copy
+===========================
 Place the point at hash in the URL below,
 
   http://www.youtube.com/watch?v=abcdefghijk
@@ -5245,8 +5240,8 @@ of the video from Youtube.
 
 
 
-Guessing the title and extension
-================================
+8. Guessing the title and extension
+===================================
 Let's simulate what would happen after the eepitch script above -
 Execute this:
 
@@ -5282,8 +5277,8 @@ components are the \"dir\", the \"title\", and the 
\"hash\".
 
 
 
-The first lines regenerate the buffer
-=====================================
+9. The first lines regenerate the buffer
+========================================
 The arguments to `find-youtubedl-links' are:
 
   (find-youtubedl-links DIR TITLE HASH EXT- STEM)
@@ -5320,8 +5315,8 @@ TITLE and EXT- are made nil.
 
 
 
-Selecting a directory
-=====================
+10. Selecting a directory
+=========================
 The second block of lines in the `find-youtubedl-links' buffer
 are used to let we switch the directory quickly. If we just
 execute `M-x find-youtubedl-links' with the point on our example
@@ -6447,8 +6442,8 @@ Is is meant as both a tutorial and a sandbox.
 
 
 
-Introduction
-============
+1. Introduction
+===============
 Before eepitch had been invented, eev had two other ways to send
 commands to external shell-like programs. The first way,
 described here,
@@ -6478,8 +6473,8 @@ will present several tests that should help with 
troubleshooting.
 
 
 
-The innards
-===========
+2. The innards
+==============
 Let's start with a detailed low-level view of of what we have
 just summarized as to \"save a command into a temporary file,
 then send a signal to the external program etc etc\".
@@ -6497,8 +6492,8 @@ you... =(
 
 
 
-The protocol, in diagrams
-=========================
+3. The protocol, in diagrams
+============================
 Here's a diagram that shows roughly what we have when X is
 running both an Emacs and an xterm, each in a separate window.
 Many details have been omitted - for examples, the real
@@ -6643,8 +6638,8 @@ protocol are not shown.
 
 
 
-Downloading and testing eechannel
-=================================
+4. Downloading and testing eechannel
+====================================
 Here I'll suppose that the directory \"~/bin/\" exists and is in
 your PATH. Run this to download the \"eechannel\" script and make
 it executable:
@@ -6734,8 +6729,8 @@ If that worked, we're done. =)
 
 
 
-Several xterms
-==============
+5. Several xterms
+=================
 http://angg.twu.net/eev-current/anim/channels.anim.html
 
  (eexterm \"A\")
diff --git a/eev-load.el b/eev-load.el
index 40da3d8..4d98100 100644
--- a/eev-load.el
+++ b/eev-load.el
@@ -20,7 +20,7 @@
 ;;
 ;; Author:     Eduardo Ochs <address@hidden>
 ;; Maintainer: Eduardo Ochs <address@hidden>
-;; Version:    2019jan29
+;; Version:    2019mar02
 ;; Keywords:   e-scripts
 ;;
 ;; Supersedes: (find-eev "eev-all.el")
@@ -37,7 +37,7 @@
 ;; This file loads all the main modules of eev, and people who want to
 ;; read the source can use this as an index to them. The modules are
 ;; loaded more or less in the order that they are mentioned here:
-;; (find-eev-quick-intro)
+;;   (find-eev-quick-intro)
 
 ;; The "eev quick intro" itself, and many other intros:
 (require 'eev-intro)          ; (find-eev "eev-intro.el")
@@ -53,11 +53,16 @@
 ;;
 ;; Support for many kinds of hyperlink functions. See:
 ;;   (find-eev-quick-intro "3. Elisp hyperlinks")
+;;   (find-links-conv-intro "3. Classification")
 (require 'eev-blinks)         ; (find-eev "eev-blinks.el")
 (require 'eev-plinks)         ; (find-eev "eev-plinks.el")
 (require 'eev-elinks)         ; (find-eev "eev-elinks.el")
 (require 'eev-tlinks)         ; (find-eev "eev-tlinks.el")
 ;;
+;; The `brxxx' functions. See:
+;;   (find-eev-quick-intro "3.1. Non-elisp hyperlinks")
+(require 'eev-brxxx)          ; (find-eev "eev-brxxx.el")
+;;
 ;; The main "killer feature" of eev: a way to control interactive programs.
 ;;   (find-eev-quick-intro "6. Controlling shell-like programs")
 ;;   (find-eev-quick-intro "6.1. The main key: <F8>")
@@ -72,35 +77,39 @@
 ;;   (find-eev-quick-intro "7.1. `eejump'")
 (require 'eejump)              ; (find-eev "eejump.el")
 ;;
-;; Anchors:
+;; Anchors.
 ;;   (find-eev-quick-intro "8. Anchors")
 ;;   (find-eev-quick-intro "8.1. Introduction: `to'")
 (require 'eev-anchors)        ; (find-eev "eev-anchors.el")
 ;;
 ;; Shorter hyperlinks and how to mass-produce them:
 ;;   (find-eev-quick-intro "9. Shorter hyperlinks")
-;;   (find-code-c-d-intro "\nShorter hyperlinks\n")
+;;   (find-code-c-d-intro  "2. Shorter hyperlinks")
 ;;   (find-eev-quick-intro "9.3. Hyperlinks to PDF files")
 (require 'eev-code)           ; (find-eev "eev-code.el")
 (require 'eev-pdflike)        ; (find-eev "eev-pdflike.el")
 ;;
-;; (I need to write comments for these)
+;; Some technical things.
 (require 'eev-codings)        ; (find-eev "eev-codings.el")
 (require 'eev-env)            ; (find-eev "eev-env.el")
 (require 'eev-edit)            ; (find-eev "eev-edit.el")
-(require 'eev-brxxx)          ; (find-eev "eev-brxxx.el")
+;;
+;; Hyperlinks to audio, video, and IRC. Not well documented. See:
+;;   (find-audiovideo-intro)
+;;   (find-rcirc-intro)
+(require 'eev-audiovideo)      ; (find-eev "eev-audiovideo.el")
+(require 'eev-rcirc)           ; (find-eev "eev-rcirc.el")
 ;;
 ;; Advanced (and hard to use) features that may require creating a
 ;; temporary directory, patching rcfiles, and installing Expect
-;; scripts. See:
+;; scripts. In the future these will no longer be loaded by default.
+;; See:
 ;;   (find-prepared-intro)
 ;;   (find-bounded-intro)
 ;;   (find-channels-intro)
-(require 'eev-audiovideo)      ; (find-eev "eev-audiovideo.el")
-(require 'eev-rcirc)           ; (find-eev "eev-rcirc.el")
-(require 'eev-prepared)                ; (find-eev "eev-prepared.el")
-(require 'eev-bounded)         ; (find-eev "eev-bounded.el")
-(require 'eev-channels)                ; (find-eev "eev-channels.el")
+(require 'eev-prepared)               ; (find-eev "eev-prepared.el")
+(require 'eev-bounded)        ; (find-eev "eev-bounded.el")
+(require 'eev-channels)               ; (find-eev "eev-channels.el")
 
 
 
@@ -109,7 +118,9 @@
 
 
 ;; Old comments taken from eev-readme.el.
-;; I need to revise this and see what is (not) trash.
+;; Most of them point to old files that are no longer in eev - but I
+;; have them in my machine, and they may have some comments that I may
+;; want to cannibalize.
 ;;
 ;; (require 'eev)                 ; (find-eev "eev.el")
 ;; (require 'eev-glyphs)          ; (find-eev "eev-glyphs.el")
diff --git a/eev-mode.el b/eev-mode.el
index bf1897e..79caa92 100644
--- a/eev-mode.el
+++ b/eev-mode.el
@@ -19,17 +19,32 @@
 ;;
 ;; Author:     Eduardo Ochs <address@hidden>
 ;; Maintainer: Eduardo Ochs <address@hidden>
-;; Version:    2019feb25
+;; Version:    2019mar02
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-mode.el>
 ;;       htmlized: <http://angg.twu.net/eev-current/eev-mode.el.html>
 ;;       See also: <http://angg.twu.net/eev-current/eev-readme.el.html>
-;;                 <http://angg.twu.net/eev-intros/find-eev-intro.html>
-;;                                                (find-eev-intro)
+;;                 <http://angg.twu.net/eev-intros/find-eev-quick-intro.html>
+;;                                                (find-eev-quick-intro)
 
 ;;; Commentary:
 
+;; Turning on eev-mode simply activates the eev-mode-map keymap, and
+;; adds an "eev" to the mode line to remind you this. Turning off
+;; eev-mode deactivates the keymap and the reminder. If you want an
+;; eev-mode-map with fewer or other bindings, follow the instructions
+;; here:
+;;   (find-eev "eev-mode.el" "when-not-eev-mode-map")
+
+;; �.eev-mode-map-set�         (to "eev-mode-map-set")
+;; �.when-not-eev-mode-map�    (to "when-not-eev-mode-map")
+;; �.eev-mode�                 (to "eev-mode")
+
+
+
+
+
 (defun ee-kill-this-buffer ()
   "Kill the current buffer with fewer warnings than `kill-this-buffer'.
 See: (find-eev-quick-intro \"3. Elisp hyperlinks\" \"go back\" \"`M-k'\")
@@ -48,7 +63,7 @@ and: (find-eval-intro \"`M-k'\")"
 ;;; |_|\_\___|\__, |_| |_| |_|\__,_| .__/ 
 ;;;           |___/                |_|    
 ;;;
-;;; eev mode keymap
+;; �eev-mode-map-set� (to ".eev-mode-map-set")
 
 (defvar eev-mode-map nil)
 
@@ -131,12 +146,17 @@ and: (find-eval-intro \"`M-k'\")"
   (define-key eev-mode-map "\M-h\M-y" 'ee-yank-pos-spec)
   (define-key eev-mode-map "\M-h\M--" 'ee-shrink-hyperlink-at-eol)
   ;;
+  ;; These ones are also from: (find-eev "eev-edit.el")
+  (define-key eev-mode-map "\M-s" 'ee-flip-psne-ness)
+  (define-key eev-mode-map "\M-I" 'eewrap-vldi-list-line)
+  ;;
   ;; Obsolete:
   ;; (define-key eev-mode-map "\M-hg"    'find-git-links-1)
   ;;
   )
 
 
+;; �when-not-eev-mode-map� (to ".when-not-eev-mode-map")
 ;; Now we run the function `eev-mode-map-set' above, but we only do
 ;; that if the variable `eev-mode-map' holds nil:
 ;;
@@ -144,10 +164,9 @@ and: (find-eval-intro \"`M-k'\")"
   (setq eev-mode-map (make-sparse-keymap))
   (eev-mode-map-set))
 ;;
-;; The (when ...) above means that if you want to define your own
+;; The `(when ...)' above means that if you want to define your own
 ;; `eev-mode-map' with different keybindings you can do that by
-;; putting something like this in your .emacs _before the point where
-;; you load eev_:
+;; putting something like this
 ;;
 ;;   (setq eev-mode-map (make-sparse-keymap))
 ;;   (define-key eev-mode-map "\M-e" 'ee-eval-sexp-eol)
@@ -157,7 +176,8 @@ and: (find-eval-intro \"`M-k'\")"
 ;;   (define-key eev-mode-map "\M-j" 'eejump)
 ;;   (define-key eev-mode-map [f8]   'eepitch-this-line)
 ;;   (define-key eev-mode-map "\M-T" 'eewrap-eepitch)
-
+;;
+;; in your .emacs _before the point where you load eev_.
 
 
 
@@ -170,11 +190,20 @@ and: (find-eval-intro \"`M-k'\")"
 ;;; |  __/  __/\ V /_____| | | | | | (_) | (_| |  __/
 ;;;  \___|\___| \_/      |_| |_| |_|\___/ \__,_|\___|
 ;;;                                                  
-;;; eev mode
+;; �eev-mode� (to ".eev-mode")
+;; This defines `eev-mode'. Turning on eev-mode simply activates the
+;; eev-mode-map keymap, and adds an "eev" to the mode line to remind
+;; you this.
 ;;
-;; (find-efunctiondescr 'eev-mode)
-;; (find-ekeymapdescr eev-mode-map)
-;; (find-elnode "Keys in Documentation")
+;; At one point, when the `find-*-intro' functions either did not
+;; exist or were almost irrelevant, I decided that I had to write a
+;; huge description of eev-mode... I regret that.
+;;
+;; See:
+;;   (find-efunctiondescr 'eev-mode)
+;;   (find-eminorkeymapdescr 'eev-mode)
+;;   (find-ekeymapdescr eev-mode-map)
+;;   (find-elnode "Keys in Documentation" "\\<MAPVAR>")
 
 (defvar eev-mode-lighter " eev")
 (defvar eev-mode-help "Toggle eev mode, i.e, activate or deactivate the 
`eev-mode-map' keymap.
@@ -255,10 +284,6 @@ Other commands:
 ;; (find-efunctiondescr 'eev-mode)
 
 
-
-(provide 'eev-mode)
-
-
 ;; Deleted code:
 ;;
 ;; Run the default bounded action (usually `eev-bounded'):
@@ -281,10 +306,15 @@ Other commands:
 
 
 
+(provide 'eev-mode)
+
+
+
+
+
 
 ;; Local Variables:
 ;; coding:            raw-text-unix
 ;; ee-anchor-format:  "�%s�"
-;; ee-anchor-format:  "defun %s "
 ;; no-byte-compile:   t
 ;; End:
diff --git a/eev-rcirc.el b/eev-rcirc.el
index e0d31a3..d445d6a 100644
--- a/eev-rcirc.el
+++ b/eev-rcirc.el
@@ -19,7 +19,7 @@
 ;;
 ;; Author:     Eduardo Ochs <address@hidden>
 ;; Maintainer: Eduardo Ochs <address@hidden>
-;; Version:    2019jan29
+;; Version:    2019mar02
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-rcirc.el>
@@ -211,32 +211,6 @@ the right - \"#foo\" means channel \"#foo\", \"nick\" 
means query
 (defun find-freenode-3a (channel)
   (find-3a nil '(find-freenode) '(find-freenode channel)))
 
-;; (defun ee-find-freenode-links (&optional c channel)
-;;   (setq c (or c "{c}"))
-;;   (setq channel (or channel (ee-buffer-freenode-channel-name))
-;;   `((setq ee-freenode-ichannels ,ee-freenode-ichannels)
-;;     (setq ee-freenode-achannels ,ee-freenode-achannels)
-;;     ""
-;;     (find-freenode ,channel)
-;;     (find-freenode-3a ,channel)
-;;     (defun eejump-9 () (find-freenode ,channel))
-;;     (defun eejump-99 () (find-freenode-3a ,channel))
-;;     ))
-;; 
-;; (defun find-freenode-links (&optional channel &rest pos-spec-list)
-;; "Visit a temporary buffer containing hyperlinks for connecting to freenode."
-;;   (interactive (list (ee-irc-channel-around-point)))
-;;   (setq channel (or channel "{channel}"))
-;;   (apply 'find-elinks
-;;    `((find-freenode-links ,channel)
-;;      ;; Convention: the first sexp always regenerates the buffer.
-;;      (find-efunction 'find-freenode-links)
-;;      ""
-;;      ,@(ee-find-freenode-links channel)
-;;      )
-;;    pos-spec-list))
-
-;; New, 2019jan28
 (defun find-freenode-links (&optional c channel &rest pos-spec-list)
 "Visit a temporary buffer containing code for connecting to a freenode 
channel."
   (interactive)
diff --git a/eev-readme.el b/eev-readme.el
index f784922..806f88c 100644
--- a/eev-readme.el
+++ b/eev-readme.el
@@ -1,6 +1,6 @@
-;; eev-readme.el -- an executable README for eev2 (-> eev-0.96).
+;; eev-readme.el -- load all modules of eev and activate eev-mode.
 
-;; Copyright (C) 2012,2014,2018 Free Software Foundation, Inc.
+;; Copyright (C) 2012,2014,2018,2019 Free Software Foundation, Inc.
 ;;
 ;; This file is (not yet?) part of GNU eev.
 ;;
@@ -19,7 +19,7 @@
 ;;
 ;; Author:     Eduardo Ochs <address@hidden>
 ;; Maintainer: Eduardo Ochs <address@hidden>
-;; Version:    2018mai16
+;; Version:    2019mar02
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-readme.el>
@@ -32,6 +32,13 @@
 
 ;;; Commentary:
 
+;; See this for the current standard ways to install eev:
+;;   
+;;   (find-eev-quick-intro "1. Installing eev")
+;;   (find-eev-install-intro)
+;;
+;; The rest of this file is very old.
+
 ;; Quick instructions:
 ;;
 ;; 1) Download http://angg.twu.net/eev-current/eev2.tgz
diff --git a/eev-tlinks.el b/eev-tlinks.el
index f669fba..295d82f 100644
--- a/eev-tlinks.el
+++ b/eev-tlinks.el
@@ -726,6 +726,10 @@ sudo dpkg -i *.deb
      (find-eev-update-links)
      ,(ee-template0 "\
 
+# NOTE! This function is obsolete and has been superseded by:
+# (find-eev-install-links)
+
+
 
 # Download , unpack and create a script \"~/e\"
 # ============================================
diff --git a/eev2-all.el b/eev2-all.el
index 1935b2d..14f0a54 100644
--- a/eev2-all.el
+++ b/eev2-all.el
@@ -1,7 +1,7 @@
 ;;; eev2-all.el -- load all the modules of the rewrite of eev (-> 0.96).
 ;;; This can also be used as an index to the (new) source files.
 
-;; Copyright (C) 2012 Free Software Foundation, Inc.
+;; Copyright (C) 2012,2019 Free Software Foundation, Inc.
 ;;
 ;; This file is (not yet?) part of GNU eev.
 ;;
@@ -20,22 +20,27 @@
 ;;
 ;; Author:     Eduardo Ochs <address@hidden>
 ;; Maintainer: Eduardo Ochs <address@hidden>
-;; Version:    2012nov02
+;; Version:    2019mar02
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev2-all.el>
 ;;       htmlized: <http://angg.twu.net/eev-current/eev2-all.el.html>
 ;;       See also: <http://angg.twu.net/eev-current/eev-readme.el.html>
-;;                 <http://angg.twu.net/eev-intros/find-eev-intro.html>
-;;                                                (find-eev-intro)
+;;                 <http://angg.twu.net/eev-intros/find-eev-quick-intro.html>
+;;                                                (find-eev-quick-intro)
 
 ;;; Commentary:
 
-;; Just as eev-all.el loads all modules of the stable version of eev
-;; (0.95.2) this loads all the refactored modules of eev, that are
-;; going to become eev-0.96 - a major rewrite.
+;; At one point there was a file "eev-all.el" that loaded all the
+;; modules of eev. Then (circa 2012) many modules were refactored, and
+;; the old and the new modules coexisted for a while; the file
+;; "eev2-all.el" (this one!) was used to load the common ones and the
+;; new ones...
+;;
+;; Now (2019) this file is about to be deprecated, and to be replaced
+;; by "eev-load.el". See:
+;;   (find-eev "eev-load.el")
 
-;; (find-eev-intro)
 
 
 ;; The main "killer feature" of eev: a way to control interactive programs.