[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/eev 301db1e 13/64: Make some arguments optional
From: |
Stefan Monnier |
Subject: |
[elpa] externals/eev 301db1e 13/64: Make some arguments optional |
Date: |
Sun, 7 Apr 2019 16:59:03 -0400 (EDT) |
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)
- [elpa] branch externals/eev created (now fb9f4c6), Stefan Monnier, 2019/04/07
- [elpa] externals/eev 99d0c67 03/64: Changes in `find-videos-intro'; `ee-copy-after-and' -> `ee-copy-rest', Stefan Monnier, 2019/04/07
- [elpa] externals/eev 5320469 04/64: `eepitch-do' and `find-wget', Stefan Monnier, 2019/04/07
- [elpa] externals/eev 834e074 10/64: `find-customizegroup', Stefan Monnier, 2019/04/07
- [elpa] externals/eev 301db1e 13/64: Make some arguments optional,
Stefan Monnier <=
- [elpa] externals/eev 95397ce 02/64: Added `ee-copy-after-and' and `find-eejumps', Stefan Monnier, 2019/04/07
- [elpa] externals/eev b30a527 15/64: Corrected typos in `find-eev-quick-intro'., Stefan Monnier, 2019/04/07
- [elpa] externals/eev 19623c4 05/64: Rewrote eev-rcirc.el., Stefan Monnier, 2019/04/07
- [elpa] externals/eev 70964f1 20/64: Add `find-eev-install-intro' and `find-eev-install-links', Stefan Monnier, 2019/04/07
- [elpa] externals/eev 23f0366 22/64: Added instructions for using the git repository., Stefan Monnier, 2019/04/07
- [elpa] externals/eev 4b2e5aa 18/64: Added eev-codings.el, started to convert files to UTF-8, Stefan Monnier, 2019/04/07
- [elpa] externals/eev 2009036 21/64: Added text to `find-escripts-intro', Stefan Monnier, 2019/04/07
- [elpa] externals/eev e4964a3 06/64: Rewrote `find-brxxx-intro'., Stefan Monnier, 2019/04/07
- [elpa] externals/eev 4a7bfcf 11/64: High-level words for `find-wset' (code and docs), Stefan Monnier, 2019/04/07
- [elpa] externals/eev a334821 08/64: `ee-mplayer-{audio, video}-options', `find-here-links', Stefan Monnier, 2019/04/07