[elpa] externals/eev 7b43692 01/12: New file: eev-on-windows.el.

[Stefan Monnier]

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

    New file: eev-on-windows.el.
---
 ChangeLog     |  4 ++++
 VERSION       |  4 ++--
 eepitch.el    |  3 ++-
 eev-blinks.el | 10 ++++++++++
 eev-intro.el  |  6 ++++--
 eev-plinks.el |  2 +-
 6 files changed, 23 insertions(+), 6 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 1e47737..1ef07ea 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2019-06-25  Eduardo Ochs  <address@hidden>
+
+       * eev-blinks.el (find-sh-man-fontify): new function.
+
 2019-06-24  Eduardo Ochs  <address@hidden>
 
        * eev-plinks.el (find-urlretrieve00, ee-urlretrieve-3)
diff --git a/VERSION b/VERSION
index 187a3e5..3fde794 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Tue Jun 25 00:31:30 GMT 2019
-Mon Jun 24 21:31:30 -03 2019
+Fri Jun 28 05:17:05 GMT 2019
+Fri Jun 28 02:17:05 -03 2019
diff --git a/eepitch.el b/eepitch.el
index f04e4a4..7d3b053 100644
--- a/eepitch.el
+++ b/eepitch.el
@@ -711,7 +711,8 @@ This is useful for for running processes that use pagers 
like
 ;; Main interpreted languages
 (defun eepitch-lua51  () (interactive) (eepitch-comint "lua51"  "lua5.1"))
 (defun eepitch-python () (interactive) (eepitch-comint "python" "python"))
-(defun eepitch-ruby   () (interactive) (eepitch-comint "ruby"   "irb1.8"))
+(defun eepitch-ruby   () (interactive) (eepitch-comint "ruby"   "irb"))
+(defun eepitch-ruby   () (interactive) (eepitch-comint "ruby"   "irb 
--simple-prompt"))
 (defun eepitch-perl () (interactive) (eepitch-comint "perl" "perl -d -e 42"))
 
 ;; Tcl
diff --git a/eev-blinks.el b/eev-blinks.el
index e5c2f6c..506af2b 100644
--- a/eev-blinks.el
+++ b/eev-blinks.el
@@ -608,6 +608,16 @@ This is like `find-sh' but sets the buffer's 
default-directory to DIR."
     (prog1 (apply 'find-sh fullcmd pos-spec-list)
            (setq default-directory dir))))
 
+(defun find-sh-man-fontify (command &rest pos-spec-list)
+  "Like `find-sh', but runs `Man-fontify-manpage' on the output."
+  (apply 'find-eoutput-reuse
+        command
+        `(progn
+           (insert (shell-command-to-string ,command))
+           (goto-char (point-min))
+           (Man-fontify-manpage))
+        pos-spec-list))
+
 
 
 ;;;   __ _           _                             
diff --git a/eev-intro.el b/eev-intro.el
index d897e95..55cc0bb 100644
--- a/eev-intro.el
+++ b/eev-intro.el
@@ -143,9 +143,11 @@ Returns a list like this: (defun find-xxx-intro ...)."
     (if (ee-bad-line line)
        (error "Current line contains evil characters")
       line)))
+(defun ee-intro-sourcep ()
+  (equal (buffer-name) "eev-intro.el"))
 
 (defun find-intro-intro ()
-"If we're in the defun for `find-foo-intro' run (find-foo-intro 
(ee-last-kill))."
+"If we're in the defun for `find-foo-intro' run (find-foo-intro 
(ee-this-line))."
   (interactive)
   (funcall (cadr (ee-intro-sexp-here)) (ee-this-line)))
 
@@ -163,7 +165,7 @@ Actually go to: (find-eev \"eev-intro.el\" 
\"find-foo-intro\" (ee-last-kill))."
 
 (defun find-intro-dual ()
   (interactive)
-  (if (equal (buffer-name) "eev-intro.el")
+  (if (ee-intro-sourcep)
       (progn (eval (ee-intro-sexp-here))
             (find-c2b nil '(find-intro-intro)))
     (find-c2a '(find-intro-source) nil)))
diff --git a/eev-plinks.el b/eev-plinks.el
index 5fdd10d..b02346a 100644
--- a/eev-plinks.el
+++ b/eev-plinks.el
@@ -19,7 +19,7 @@
 ;;
 ;; Author:     Eduardo Ochs <address@hidden>
 ;; Maintainer: Eduardo Ochs <address@hidden>
-;; Version:    2019jan25
+;; Version:    2019jun24
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-plinks.el>