[elpa] externals/eev f974ef7 37/64: Added lots of comments to eev-plinks.el.

[Stefan Monnier]

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

    Added lots of comments to eev-plinks.el.
---
 ChangeLog     |  16 +++++
 VERSION       |   4 +-
 eejump.el     |   8 +--
 eepitch.el    |  20 +++---
 eev-blinks.el |   6 +-
 eev-code.el   |   5 +-
 eev-intro.el  |  41 ++++++------
 eev-load.el   |   2 +-
 eev-mode.el   |   4 +-
 eev-plinks.el | 197 ++++++++++++++++++++++++++++++++++++++++++++++------------
 eev-wrap.el   |   4 +-
 11 files changed, 223 insertions(+), 84 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index e5d7587..e0b0c98 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,19 @@
+2019-02-13  Eduardo Ochs  <address@hidden>
+
+       * eev-blinks.el (ee-find-eejumps-header): show a link to
+       `(find-emacs-keys-intro "1. Basic keys (eev)")'.
+
+       * eev-intro.el (find-eev-quick-intro): renamed "7.1. eejump" to
+       "7.1. `eejump'".
+
+       * eepitch.el (ee-at0): rewritten.
+       (ee-eepitch-comint): made this an alias for `eepitch-comint-at'.
+
+       * eev-plinks.el (find-callprocessregion-ne): new function.
+       (find-callprocessregion): call `find-callprocessregion-ne'.
+       (find-comintprocess-ne): deleted - has a copy in eepitch.el.
+       (find-comintprocess): deleted - has a copy in eepitch.el.
+
 2019-02-10  Eduardo Ochs  <address@hidden>
 
        * eev-intro.el (find-eev-quick-intro): small changes.
diff --git a/VERSION b/VERSION
index a086b13..e8d6b57 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Sun Feb 10 05:37:55 GMT 2019
-Sun Feb 10 03:37:55 -02 2019
+Thu Feb 14 01:00:36 GMT 2019
+Wed Feb 13 23:00:36 -02 2019
diff --git a/eejump.el b/eejump.el
index efcb734..af08c1f 100644
--- a/eejump.el
+++ b/eejump.el
@@ -19,7 +19,7 @@
 ;;
 ;; Author:     Eduardo Ochs <address@hidden>
 ;; Maintainer: Eduardo Ochs <address@hidden>
-;; Version:    2019feb03
+;; Version:    2019feb13
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eejump.el>
@@ -34,8 +34,8 @@
 
 ;;; Commentary:
 
-;; See: (find-eev-quick-intro "7.1. eejump")
-;;      (find-eev-quick-intro "7.1. eejump" "meta-uppercase-j")
+;; See: (find-eev-quick-intro "7.1. `eejump'")
+;;      (find-eev-quick-intro "7.1. `eejump'" "meta-uppercase-j")
 ;;      (find-eev-quick-intro "7.2. The list of eejump targets")
 ;;      (find-eevfile "eev-mode.el" "M-j" "eejump")
 ;;      (find-eevfile "eev-mode.el" "M-J" "eewrap-eejump")
@@ -46,7 +46,7 @@
 
  
 (defun eejump (arg)
-  "See: (find-eev-quick-intro \"7.1. eejump\")
+  "See: (find-eev-quick-intro \"7.1. `eejump'\")
 and: (find-eejump-intro)"
   (interactive "P")
   (if (null arg)
diff --git a/eepitch.el b/eepitch.el
index 678d2fa..d3caf86 100644
--- a/eepitch.el
+++ b/eepitch.el
@@ -430,6 +430,11 @@ See: (find-eepitch-intro)"
 "Set `eepitch' to run PROGRAM-AND-ARGS in comint mode, in the buffer 
\"*NAME*\"."
   (eepitch `(find-comintprocess ,name ',program-and-args)))
 
+(defalias 'ee-eepitch-comint 'eepitch-comint-at)
+
+
+
+
 
 
 
@@ -613,15 +618,20 @@ Use this to control programs that echo the commands that 
they receive."
   "Eval CODE at DIR.
 If DIR does not end with a slash then weird things might happen.
 Note the DIR is `ee-expand'-ed."
-  (let ((default-directory (ee-expand dir)))
-    (if (not (file-accessible-directory-p dir))
-       (error "Can't chdir to %s" dir))
+  (setq dir (ee-expand dir))
+  (if (not (file-accessible-directory-p dir))
+      (error "Can't chdir to %s" dir))
+  (let ((default-directory dir))
     (eval code)))
 
 (defun eepitch-comint-at (dir name &optional program-and-args)
   "Like `eepitch-comint', but executes `eepitch-buffer-create' at DIR."
   (ee-at0 dir `(eepitch-comint ,name ,program-and-args)))
 
+(defun eepitch-to-buffer (name)
+  (interactive "beepitch to buffer: ")
+  (eepitch `(switch-to-buffer ,name)))
+
 (defun with-pager-cat (code)
   "Run CODE with the environment variable PAGER set to \"cat\".
 This is useful for for running processes that use pagers like
@@ -629,10 +639,6 @@ This is useful for for running processes that use pagers 
like
   (let ((process-environment (cons "PAGER=cat" process-environment)))
     (eval code)))
 
-(defun eepitch-to-buffer (name)
-  (interactive "beepitch to buffer: ")
-  (eepitch `(switch-to-buffer ,name)))
-
 (defun at-nth-window (n code)
   "Run `other-window' N times, run CODE there, and go back."
   (save-selected-window
diff --git a/eev-blinks.el b/eev-blinks.el
index a75610c..0869af3 100644
--- a/eev-blinks.el
+++ b/eev-blinks.el
@@ -23,7 +23,7 @@
 ;;
 ;; Author:     Eduardo Ochs <address@hidden>
 ;; Maintainer: Eduardo Ochs <address@hidden>
-;; Version:    2019feb03
+;; Version:    2019feb13
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-blinks.el>
@@ -872,8 +872,8 @@ Examples: (find-echarsetchars 'mule-unicode-0100-24ff 
\"733x\")
 
 (defun ee-find-eejumps-header ()
   ";; (find-eejumps)
-;; See: (find-eev-quick-intro \"7.1. eejump\")
-;;      (find-eejump-intro)
+;; See: (find-eev-quick-intro \"7.1. `eejump'\")
+;;      (find-emacs-keys-intro \"1. Basic keys (eev)\")
 ;; Current eejump targets:\n\n")
 
 (defun ee-find-eejumps-body ()
diff --git a/eev-code.el b/eev-code.el
index 1a2946f..10a7b63 100644
--- a/eev-code.el
+++ b/eev-code.el
@@ -19,7 +19,7 @@
 ;;
 ;; Author:     Eduardo Ochs <address@hidden>
 ;; Maintainer: Eduardo Ochs <address@hidden>
-;; Version:    2019jan05
+;; Version:    2019feb13
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-code.el>
@@ -220,7 +220,8 @@ Try this: (find-code-c-d \"CODE\" \"/DIR/\" :info \"INFO\")"
 
 (defun ee-code-c-d-:grep (&rest rest) (ee-code-c-d-rest rest))  ; compat
 
-;; support functions
+;; Support functions.
+;; Maybe I should rewrite some of them using `ee-at0'...
 ;;
 (defun ee-find-node (dir manual page &rest pos-spec-list)
   (apply 'find-node (format "(%s%s)%s" dir manual page) pos-spec-list))
diff --git a/eev-intro.el b/eev-intro.el
index 0fc7337..44fa75a 100644
--- a/eev-intro.el
+++ b/eev-intro.el
@@ -20,7 +20,7 @@
 ;;
 ;; Author:     Eduardo Ochs <address@hidden>
 ;; Maintainer: Eduardo Ochs <address@hidden>
-;; Version:    2019feb01
+;; Version:    2019feb13
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-intro.el>
@@ -783,8 +783,8 @@ literal ^O in a buffer by typing `C-q C-o'.
 =============================
 
 
-7.1. eejump
------------
+7.1. `eejump'
+-------------
 We may have elisp one-liners that we want to be able to execute very
 quickly, and from anywhere. For example, I keep all my notes that I
 have not organized yet in a file called \"~/TODO\", and if I type
@@ -1440,6 +1440,7 @@ See: (find-enode \"Keys\" \"key sequence\")
      (find-enode \"User Input\" \"`Control-a'\" \"usually written `C-a'\")
      (find-enode \"User Input\" \"<META> key\")
      (find-enode \"Completion\" \"<TAB>\")
+     (find-enode \"Minibuffer History\" \"<UP>\" \"<DOWN>\")
 
 <ESC> <ESC> <ESC>                (find-enode \"Quitting\")
 C-g   keyboard-quit              (find-enode \"Quitting\" \"`C-g'\")
@@ -3241,7 +3242,7 @@ Is is meant as both a tutorial and a sandbox.
 
 Note: this intro needs to be rewritten!
 Ideally it should _complement_ the material in:
-  (find-eev-quick-intro \"7.1. eejump\")
+  (find-eev-quick-intro \"7.1. `eejump'\")
 
 
 
@@ -4430,8 +4431,8 @@ It expands an idea that was mentioned briefly at:
 
 
 
-Local copies of files from the internet
-=======================================
+1. Local copies of files from the internet
+==========================================
 Emacs knows how to fetch files from the internet, but for most
 purposes it is better to use local copies. Suppose that the
 environment variable $S is set to ~/snarf/; then running this
@@ -4458,8 +4459,8 @@ treated as a pos-spec-list.
 
 
 
-The old way: psne
-=================
+2. The old way: psne
+====================
 A long time ago eev used to include a shell function called
 `psne' that ran all that with a single command. This:
 
@@ -4481,8 +4482,8 @@ its directory and save its name into the file 
\"~/.psne.log\".
 
 
 
-The new way: M-x brep
-=====================
+3. The new way: M-x brep
+========================
 Try to run this:
 
   (find-psne-links \"http://www.gnu.org/software/emacs/emacs-paper.html\";)
@@ -4503,8 +4504,8 @@ used to do.
 
 
 
-The environment variable $S
-===========================
+4. The environment variable $S
+==============================
 If when eev is loaded by Emacs the environment variable $S is
 unset, it will be set to a default value - namely, to the
 expansion of \"$HOME/snarf\". Processes started from Emacs, such
@@ -4539,8 +4540,8 @@ their rcfiles by hand.
 
 
 
-`browse-url' and friends
-========================
+5. `browse-url' and friends
+===========================
 If you place the point on the URL below
 
   http://www.gnu.org/software/emacs/emacs-paper.html
@@ -5293,7 +5294,7 @@ print(open(\"/tmp/o\").read())
 
 
 6. Non-trivial examples
-========================
+=======================
 See:
 
   (find-prepared-intro \"An `ee' for Python\")
@@ -6007,7 +6008,7 @@ Old mentions to this:  \(find-TH \"eev-article\" 
\"delimited-regions\")
 
 
 Delimited (\"bounded\") regions
-===============================
+=============================
 Try:
 
 #
@@ -7018,10 +7019,10 @@ The most basic keys of eev are:
          `M-j' takes you to the list of jump targets.
         `M-2j' takes you to this help page.
         `M-5j' takes you to: (find-eev-intro)
-         See: (find-eejump-intro \"Families\")
+         See: (find-eev-quick-intro \"7.1. `eejump'\")
+              (find-eejump-intro \"Families\")
   M-h M-h - hyperlinks to here, plus help.
-         See: (find-eev-quick-intro \"7.1. eejump\")
-              (find-links-intro \"`find-here-links'\")
+         See: (find-links-intro \"`find-here-links'\")
 
 
 The mnemonics are:
@@ -7388,7 +7389,7 @@ Let's name its parts - they will be explained in the 
sections below.
 \(Mention code-c-d)
 
 1.2. Shorter elisp hyperlinks
--------------------------------
+-----------------------------
 
 1.3. URLs
 ---------
diff --git a/eev-load.el b/eev-load.el
index 85357f6..40da3d8 100644
--- a/eev-load.el
+++ b/eev-load.el
@@ -69,7 +69,7 @@
 ;;
 ;; Eejump (`M-j'):
 ;;   (find-eev-quick-intro "7. Quick access to one-liners")
-;;   (find-eev-quick-intro "7.1. eejump")
+;;   (find-eev-quick-intro "7.1. `eejump'")
 (require 'eejump)              ; (find-eev "eejump.el")
 ;;
 ;; Anchors:
diff --git a/eev-mode.el b/eev-mode.el
index f8d7326..a7338fc 100644
--- a/eev-mode.el
+++ b/eev-mode.el
@@ -19,7 +19,7 @@
 ;;
 ;; Author:     Eduardo Ochs <address@hidden>
 ;; Maintainer: Eduardo Ochs <address@hidden>
-;; Version:    2019feb09
+;; Version:    2019feb13
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-mode.el>
@@ -65,7 +65,7 @@ and: (find-eval-intro \"`M-k'\")"
   (define-key eev-mode-map "\M-K" 'bury-buffer)
   ;;
   ;; Jump to numbered places (or actions).
-  ;; See:    (find-eev-quick-intro "7.1. eejump")
+  ;; See:    (find-eev-quick-intro "7.1. `eejump'")
   ;; Source: (find-eev "eejump.el")
   (define-key eev-mode-map "\M-j" 'eejump)
   ;;
diff --git a/eev-plinks.el b/eev-plinks.el
index c037eb1..e9b683e 100644
--- a/eev-plinks.el
+++ b/eev-plinks.el
@@ -32,6 +32,74 @@
 
 ;;; Commentary:
 
+;; Emacs can invoke external processes "synchronously",
+;; "asynchronously", and as "command interpreters", as described here:
+;;
+;;   (find-elnode "Synchronous Processes" "waits for the process to" 
"terminate")
+;;   (find-elnode "Asynchronous Processes" "runs in parallel")
+;;   (find-enode "Interactive Shell" "M-x shell")
+;;     (find-efile "comint.el" "shell-in-a-buffer")
+;;
+;; The most basic examples of each type in eev are:
+;;
+;;   synchronous:  `find-sh0',      `find-sh'
+;;   asynchronous: `find-pdf-page', `find-firefox'
+;;   comint:       `eepitch-shell'
+;;
+;; The low-level functions to create such processes are very different
+;; in each of the three cases - and this file defines functions that
+;; let us treat the three cases somewhat similarly. The main idea is
+;; that the functions
+;;
+;;   `find-bgprocess-ne'
+;;   `find-bgprocess'
+;;   `find-callprocess00-ne'
+;;   `find-callprocess0-ne'
+;;   `find-callprocess-ne'
+;;   `find-callprocess00'
+;;   `find-callprocess0'
+;;   `find-callprocess'
+;;   `find-comintprocess-ne'
+;;   `find-comintprocess'
+;;
+;; all receive an argument `program-and-args' that is either a string
+;; or list of strings, and the functions `ee-split' and
+;; `ee-split-and-expand' convert a `program-and-args' into a list of
+;; strings. For example:
+;;
+;;   (ee-split              "xpdf   ~/LATEX/foo.pdf")
+;;   (ee-split            '("xpdf" "~/LATEX/foo.pdf"))
+;;
+;; both return the list ("xpdf" "~/LATEX/foo.pdf"), and
+;;
+;;   (ee-split-and-expand   "xpdf   ~/LATEX/foo.pdf")
+;;   (ee-split-and-expand '("xpdf" "~/LATEX/foo.pdf"))
+;;
+;; both return the list ("xpdf" "/home/edrx/LATEX/foo.pdf"). 
+;;
+;; The suffix `-ne' in the `find-xxx-ne' functions means "do not
+;; expand", i.e., do not run `ee-expand' on each member of the list,
+;; i.e., run `ee-split' instead of `ee-split-and-expand' on
+;; `program-and-args'; and the suffixes `00' and `0' to the
+;; `find-callprocess' functions work similarly to the suffixes `00'
+;; and `0' in `find-sh'. Compare:
+;;
+;;   (find-sh00 "seq 9 12")
+;;   (find-sh0  "seq 9 12")
+;;   (find-sh   "seq 9 12")
+;;
+;; The `find-sh00' shows a newline-terminated string in the each area;
+;; the `find-sh0' shows that string with the newline deleted; and the
+;; `find-sh' shows it in a temporary buffer instead of in the acho
+;; area.
+
+;; �.find-bgprocess�           (to "find-bgprocess")
+;; �.find-callprocess�         (to "find-callprocess")
+;; �.find-callprocessregion�   (to "find-callprocessregion")
+;; �.find-comintprocess�       (to "find-comintprocess")
+
+
+
 ;; See:
 ;; (find-eev "eepitch.el" "find-comintprocess-ne")
 ;; (find-eev "eev-blinks.el" "find-sh")
@@ -43,6 +111,11 @@
 ;; (find-eev "eev-brxxx.el")
 
 
+;; �.find-wget�        (to "find-wget")
+;; �.find-gitk�        (to "find-gitk")
+
+
+
 
 ;;;                                              
 ;;;  _ __  _ __ ___   ___ ___  ___ ___  ___  ___ 
@@ -60,84 +133,126 @@
 ;; each "word" or "program-and-args" with ee-expand or keep all words
 ;; unchanged, (3) they're short and clean.
 
-;; Sorry, no docstrings yet... some tests:
-;; (find-callprocess0  '("lua5.1" "-e" "print(1+2)"))
-;; (find-callprocess00 '("lua5.1" "-e" "print(1+2)"))
-
-;; Suffixes:
-;; "-ne" means "(do) not ee-expand"
-;; "0"  means "don't display in a temp buffer, just return the string"
-;; "00" means "like `0', but more low-level: don't strip the trailing newline".
+;; Note that the functions `ee-split' and `ee-split-and-expand' are
+;; defined in eepitch.el, because we want that library to be as
+;; self-contained as possible; `find-comintprocess-ne' and
+;; `find-comintprocess' are also defined there. See:
+;;
+;;   (find-eevfile "eepitch.el" "defun ee-split")
+;;   (find-eevfile "eepitch.el" "defun find-comintprocess-ne")
 
-(defun ee-split   (str) (if (stringp str) (split-string str "[ \t\n]+") str))
 (defun ee-unsplit (list) (if (listp list) (mapconcat 'identity list " ") list))
-(defun ee-split-and-expand (str) (mapcar 'ee-expand (ee-split str)))
-(defun ee-no-trailing-nl   (str) (replace-regexp-in-string "\n$" "" str))
+(defun ee-no-trailing-nl (str) (replace-regexp-in-string "\n$" "" str))
 
+
+
+;;;  _                                             
+;;; | |__   __ _ _ __  _ __ ___   ___ ___  ___ ___ 
+;;; | '_ \ / _` | '_ \| '__/ _ \ / __/ _ \/ __/ __|
+;;; | |_) | (_| | |_) | | | (_) | (_|  __/\__ \__ \
+;;; |_.__/ \__, | .__/|_|  \___/ \___\___||___/___/
+;;;        |___/|_|                                
+;;
+;; �find-bgprocess� (to ".find-bgprocess")
+;;
 (defun find-bgprocess-ne (program-and-args)
   (let ((argv (ee-split program-and-args)))
     (apply 'start-process (car argv) "*Messages*" argv)))
 
+(defun find-bgprocess (program-and-args)
+  (find-bgprocess-ne (ee-split-and-expand program-and-args)))
+
+
+
+;;;            _ _                                   
+;;;   ___ __ _| | |_ __  _ __ ___   ___ ___  ___ ___ 
+;;;  / __/ _` | | | '_ \| '__/ _ \ / __/ _ \/ __/ __|
+;;; | (_| (_| | | | |_) | | | (_) | (_|  __/\__ \__ \
+;;;  \___\__,_|_|_| .__/|_|  \___/ \___\___||___/___/
+;;;               |_|                                
+''
+;; �find-callprocess� (to ".find-callprocess")
+;;
 (defun find-callprocess00-ne (program-and-args)
   (let ((argv (ee-split program-and-args)))
     (with-output-to-string
       (with-current-buffer standard-output
        (apply 'call-process (car argv) nil t nil (cdr argv))))))
 
+(defun find-callprocess00 (program-and-args)
+  (find-callprocess00-ne (ee-split-and-expand program-and-args)))
+
 (defun find-callprocess0-ne (program-and-args)
   (ee-no-trailing-nl (find-callprocess00 program-and-args)))
 
-(defun find-comintprocess-ne (name &optional program-and-args)
-  (let ((argv (ee-split (or program-and-args name))))
-    (apply 'make-comint name (car argv) nil (cdr argv))
-    (switch-to-buffer (format "*%s*" name))))
-
-(defun find-bgprocess     (program-and-args)
-  (find-bgprocess-ne      (ee-split-and-expand program-and-args)))
-(defun find-callprocess00 (program-and-args)
-  (find-callprocess00-ne  (ee-split-and-expand program-and-args)))
-(defun find-callprocess0  (program-and-args)
-  (find-callprocess0-ne   (ee-split-and-expand program-and-args)))
-(defun find-callprocessregion (program-and-args input)
-  (find-callprocessregion (ee-split-and-expand program-and-args)))
-(defun find-comintprocess (name &optional program-and-args)
-  (find-comintprocess-ne name (ee-split-and-expand (or program-and-args 
name))))
+(defun find-callprocess0 (program-and-args)
+  (find-callprocess0-ne (ee-split-and-expand program-and-args)))
 
-;; These two are like `find-sh', but more low-level.
+;; Like `find-sh', but more low-level.
+;; See: (find-eev "eev-blinks.el" "find-eoutput")
+;;      (find-eev "eev-blinks.el" "find-sh")
+;;
 (defun find-callprocess-ne (program-and-args &rest pos-spec-list)
   (apply 'find-eoutput-reuse (ee-unsplit program-and-args)
         `(insert (find-callprocess00-ne ',program-and-args))
         pos-spec-list))
+
 (defun find-callprocess (program-and-args &rest pos-spec-list)
   (apply 'find-eoutput-reuse (ee-unsplit program-and-args)
         `(insert (find-callprocess00 ',program-and-args))
         pos-spec-list))
 
 
+;;;                                                   _             
+;;;  _ __  _ __ ___   ___ ___  ___ ___ _ __ ___  __ _(_) ___  _ __  
+;;; | '_ \| '__/ _ \ / __/ _ \/ __/ __| '__/ _ \/ _` | |/ _ \| '_ \ 
+;;; | |_) | | | (_) | (_|  __/\__ \__ \ | |  __/ (_| | | (_) | | | |
+;;; | .__/|_|  \___/ \___\___||___/___/_|  \___|\__, |_|\___/|_| |_|
+;;; |_|                                         |___/               
+;;
+;; �find-callprocessregion� (to ".find-callprocessregion")
+;; Use this when program-and-args expects input from stdin.
+;; Note: Code salvaged from a very old version of eev.
+;; To do: write examples and test cases for this.
+;; See: (find-efunctiondescr 'call-process-region)
+;;      (find-elnode "Synchronous Processes" "Function: call-process-region")
+;;
+(defun find-callprocessregion-ne (program-and-args input)
+  (let ((argv (ee-split program-and-args)))
+    (with-temp-buffer
+      (insert input)
+      (apply 'call-process-region
+            (point-min) (point-max)
+            (car argv) 'delete t nil (cdr argv))
+      (buffer-substring (point-min) (point-max)))))
+
+(defun find-callprocessregion (program-and-args input)
+  (find-callprocessregion-ne (ee-split-and-expand program-and-args)))
 
 
-;; New, 2008jan02
-;; Compare with `ee-find-grep'
 
-(defun ee-find-comintprocess-ne (dir name program-and-args)
-  (switch-to-buffer
-   (with-temp-buffer
-     (cd dir)
-     (find-comintprocess-ne name program-and-args)
-     (current-buffer))))
+;;;                      _       _   
+;;;   ___ ___  _ __ ___ (_)_ __ | |_ 
+;;;  / __/ _ \| '_ ` _ \| | '_ \| __|
+;;; | (_| (_) | | | | | | | | | | |_ 
+;;;  \___\___/|_| |_| |_|_|_| |_|\__|
+;;;                                  
+;; �find-comintprocess� (to ".find-comintprocess")
+;; `find-comintprocess-ne' and `find-comintprocess' are defined in
+;; eepitch.el. See:
+;;   (find-eevfile "eepitch.el" "defun find-comintprocess-ne ")
+;;   (find-eevfile "eepitch.el" "defun find-comintprocess ")
 
-(defun ee-find-comintprocess (dir name program-and-args)
-  (ee-find-comintprocess-ne
-   (ee-expand dir) name (ee-split-and-expand program-and-args)))
 
 
 
-;; find-wget
+;; �find-wget� (to ".find-wget")
 ;;
 (defun find-wget00 (url)
   (find-callprocess00 `("wget" "-q" "-O" "-" ,url)))
 
 (defun find-wget (url &rest rest)
+  "Download URL with \"wget -q -O - URL\" and display the output."
   (setq url (ee-expand url))
   (apply 'find-eoutput-reuse (format "*wget: %s*" url)
         `(insert (find-wget00 ,url))
@@ -145,7 +260,7 @@
 
 
 
-;; find-gitk
+;; �find-gitk� (to ".find-gitk")
 ;; Example: (find-eev-install-intro "find-gitk")
 ;;
 (defun find-gitk (dir)
@@ -163,7 +278,7 @@
 
 ;; Local Variables:
 ;; coding:            raw-text-unix
-;; ee-anchor-format:  "�%s�"
 ;; ee-anchor-format:  "defun %s "
+;; ee-anchor-format:  "�%s�"
 ;; no-byte-compile:   t
 ;; End:
diff --git a/eev-wrap.el b/eev-wrap.el
index c7a6fa2..221d2b1 100644
--- a/eev-wrap.el
+++ b/eev-wrap.el
@@ -297,8 +297,8 @@ have to run an \"undo\"."
 ;;; |_|  |_|      \___/(_)  \___|\___|/ |\__,_|_| |_| |_| .__/ 
 ;;;                                 |__/                |_|    
 ;;
-;; See: (find-eev-quick-intro "7.1. eejump")
-;;      (find-eev-quick-intro "7.1. eejump" "meta-uppercase-j")
+;; See: (find-eev-quick-intro "7.1. `eejump'")
+;;      (find-eev-quick-intro "7.1. `eejump'" "meta-uppercase-j")
 ;; Old: (find-eejump-intro "Producing `eejump-nnn's and `eejump-nnn*'s")
 ;; (define-key eev-mode-map "\M-J" 'eewrap-eejump)