[elpa] externals/eev 9417a58 08/10: Small changes in `find-here-links-3'.

[Stefan Monnier]

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

    Small changes in `find-here-links-3'.
---
 ChangeLog     |  3 +++
 VERSION       |  4 ++--
 eev-elinks.el | 19 +++++++++++++------
 eev-intro.el  |  3 ++-
 4 files changed, 20 insertions(+), 9 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 72bc3b1..6d03de4 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2019-06-24  Eduardo Ochs  <address@hidden>
 
+       * eev-elinks.el (find-here-links-3): ask if the user wants to
+       overwrite `ee-window-configuration-before-M-h-M-3'.
+
        * eev-intro.el (find-here-links-intro): added some figures.
 
        * eev-pdflike.el (ee-find-pdf-text, ee-find-pdftotext-text)
diff --git a/VERSION b/VERSION
index e0142bc..8587a80 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Mon Jun 24 20:16:05 GMT 2019
-Mon Jun 24 17:16:05 -03 2019
+Mon Jun 24 21:04:12 GMT 2019
+Mon Jun 24 18:04:12 -03 2019
diff --git a/eev-elinks.el b/eev-elinks.el
index dca994a..b8b07e3 100644
--- a/eev-elinks.el
+++ b/eev-elinks.el
@@ -19,7 +19,7 @@
 ;;
 ;; Author:     Eduardo Ochs <address@hidden>
 ;; Maintainer: Eduardo Ochs <address@hidden>
-;; Version:    2019jun23
+;; Version:    2019jun24
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-elinks.el>
@@ -1265,7 +1265,15 @@ This needs a temporary directory; see: 
(find-prepared-intro)"
 ;; (find-refining-intro "4. A tip for beginners")
 ;; (find-refining-intro "4. A tip for beginners" "find-here-links-beginner")
 ;;
+(defun find-here-links-beginner (&optional arg)
+  "A variant of `find-here-links' that may create a three-window setting."
+  (interactive "P")
+  (if arg (find-here-links-3) (find-here-links)))
+
 ;; «find-here-links-3»  (to ".find-here-links-3")
+;; See: (find-here-links-intro "4. `find-here-links-3'")
+;;      (find-here-links-intro "5. `find-here-links-1'")
+;;
 (defvar ee-window-configuration-before-M-h-M-3 nil)
 
 (defun find-here-links-3 ()
@@ -1277,7 +1285,10 @@ not nil we abort instead of overwriting it.
 See: (find-here-links-intro \"4. `find-here-links-3'\")"
   (interactive)
   (if ee-window-configuration-before-M-h-M-3
-      (error))
+      (let ((overwrite
+            (yes-or-no-p "Overwrite `ee-window-configuration-before-M-h-M-3'? 
")))
+       (if (not overwrite)
+           (error))))
   (setq ee-window-configuration-before-M-h-M-3
        (current-window-configuration))
   (find-wset "13_o2_o_coo" nil '(find-here-links) '(eejump-1)))
@@ -1290,10 +1301,6 @@ See: (find-here-links-intro \"5. `find-here-links-1'\")"
   (setq ee-window-configuration-before-M-h-M-3 nil))
 
 
-(defun find-here-links-beginner (&optional arg)
-  "A variant of `find-here-links' that may create a three-window setting."
-  (interactive "P")
-  (if arg (find-here-links-3) (find-here-links)))
 
 
 
diff --git a/eev-intro.el b/eev-intro.el
index 3052d49..d897e95 100644
--- a/eev-intro.el
+++ b/eev-intro.el
@@ -262,6 +262,7 @@ Actually go to: (find-eev \"eev-intro.el\" 
\"find-foo-intro\" (ee-last-kill))."
 \(Re)generate: (find-eev-quick-intro)
 Source code:  (find-efunction 'find-eev-quick-intro)
 More intros:  (find-emacs-keys-intro)
+              (find-here-links-intro)
               (find-eev-intro)
               (find-links-conv-intro)
               (find-escripts-intro)
@@ -2579,7 +2580,7 @@ Note that `M-h M-1' undoes what `M-h M-3' did. In a 
figure:
   |               |        |          |          |         |                |
   |               |        |          |  elinks  |         |                |
   |               |        |          |  buffer  |         |                |
-  |    target     | M-m M-3 |  target  |__________| M-h M-1 |     target     |
+  |    target     | M-h M-3 |  target  |__________| M-h M-1 |     target     |
   |    buffer     | ------> |  buffer  |          | ------> |     buffer     |
   |               |        |          |  notes   |         |                |
   |               |        |          |  buffer  |         |                |