[elpa] externals/eev 301db1e 13/64: Make some arguments optional

[Stefan Monnier]

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

    Make some arguments optional
---
 VERSION       |  4 ++--
 eepitch.el    | 16 ++++++++--------
 eev-pkg.el    |  2 +-
 eev-plinks.el | 10 +++++-----
 4 files changed, 16 insertions(+), 16 deletions(-)

diff --git a/VERSION b/VERSION
index 6ab8380..cd675ea 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Fri Oct 10 02:31:19 GMT 2014
-Thu Oct  9 23:31:19 BRT 2014
+Tue Feb 17 07:39:19 GMT 2015
+Tue Feb 17 05:39:19 BRST 2015
diff --git a/eepitch.el b/eepitch.el
index 96820a4..bbdc2fb 100644
--- a/eepitch.el
+++ b/eepitch.el
@@ -19,7 +19,7 @@
 ;;
 ;; Author:     Eduardo Ochs <address@hidden>
 ;; Maintainer: Eduardo Ochs <address@hidden>
-;; Version:    2013aug29
+;; Version:    2015feb17
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eepitch.el>
@@ -454,21 +454,21 @@ This function is used by `find-comintprocess', 
`find-bgprocess'
 and `find-callprocess'."
   (mapcar 'ee-expand (ee-split str)))
 
-(defun find-comintprocess-ne (name program-and-args)
+(defun find-comintprocess-ne (name &optional program-and-args)
   "Switch to the buffer named *NAME* and run the command PROGRAM-AND-ARGS 
there.
 This function does not run `ee-expand' on the elements of PROGRAM-AND-ARGS."
-  (let ((argv (ee-split 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-comintprocess (name program-and-args)
+(defun find-comintprocess (name &optional program-and-args)
   "Switch to the buffer named *NAME* and run the command PROGRAM-AND-ARGS 
there.
 If PROGRAM-AND-ARGS is a string, split it at whitespace to make it a list.
 Each element of PROGRAM-AND-ARGS is expanded with `ee-expand'.
 See: (find-eepitch-intro)"
-  (find-comintprocess-ne   name (ee-split-and-expand program-and-args)))
+  (find-comintprocess-ne name (ee-split-and-expand (or program-and-args 
name))))
 
-(defun eepitch-comint (name program-and-args)
+(defun eepitch-comint (name &optional program-and-args)
 "Set `eepitch' to run PROGRAM-AND-ARGS in comint mode, in the buffer 
\"*NAME*\"."
   (eepitch `(find-comintprocess ,name ',program-and-args)))
 
@@ -634,7 +634,7 @@ cd /tmp/\n"
 Use this to control programs that echo the commands that they receive."
   (eepitch `(progn ,code (setq comint-process-echoes t))))
 
-(defun eepitch-comint-de (name program-and-args)
+(defun eepitch-comint-de (name &optional program-and-args)
   "Like `eepitch-comint', but deletes the echoed commands.
 Use this to control programs that echo the commands that they receive."
   (eepitch-de `(find-comintprocess ,name ',program-and-args)))
@@ -658,7 +658,7 @@ Note the DIR is `ee-expand'-ed."
        (error "Can't chdir to %s" dir))
     (eval code)))
 
-(defun eepitch-comint-at (dir name program-and-args)
+(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)))
 
diff --git a/eev-pkg.el b/eev-pkg.el
index aba2d6b..f04fd4d 100644
--- a/eev-pkg.el
+++ b/eev-pkg.el
@@ -1,4 +1,4 @@
-(define-package "eev" "20140823" "Support for e-scripts (eepitch blocks, elisp 
hyperlinks, etc)")
+(define-package "eev" "20141011" "Support for e-scripts (eepitch blocks, elisp 
hyperlinks, etc)")
 
 ;; Local Variables:
 ;; no-byte-compile: t
diff --git a/eev-plinks.el b/eev-plinks.el
index 05548a1..fbdb93d 100644
--- a/eev-plinks.el
+++ b/eev-plinks.el
@@ -19,7 +19,7 @@
 ;;
 ;; Author:     Eduardo Ochs <address@hidden>
 ;; Maintainer: Eduardo Ochs <address@hidden>
-;; Version:    2013aug28
+;; Version:    2015feb17
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-plinks.el>
@@ -87,8 +87,8 @@
 (defun find-callprocess0-ne (program-and-args)
   (ee-no-trailing-nl (find-callprocess00 program-and-args)))
 
-(defun find-comintprocess-ne (name program-and-args)
-  (let ((argv (ee-split 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))))
 
@@ -100,8 +100,8 @@
   (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 program-and-args)
-  (find-comintprocess-ne   name (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))))
 
 ;; These two are like `find-sh', but more low-level.
 (defun find-callprocess-ne (program-and-args &rest pos-spec-list)