branch: externals/eev
commit 99e55e7ea160521bf061f30cfa76030ab038173a
Author: Eduardo Ochs <eduardoo...@gmail.com>
Commit: Eduardo Ochs <eduardoo...@gmail.com>
Fixed a bug in eeklfs.
---
ChangeLog | 4 ++++
VERSION | 4 ++--
eepitch.el | 4 ++--
eev-kla.el | 8 ++++----
4 files changed, 12 insertions(+), 8 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index 5ee01603c9..90afc49e44 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2022-11-25 Eduardo Ochs <eduardoo...@gmail.com>
+
+ * eev-kla.el (ee-kl-sexp-klfs): fixed a bug.
+
2022-11-22 Eduardo Ochs <eduardoo...@gmail.com>
* eev-hydras.el (ee-edit-index-hydra): added <right>, <left>, SPC,
diff --git a/VERSION b/VERSION
index 73902ea1a3..1b7c490d23 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Wed Nov 23 02:01:14 GMT 2022
-Tue Nov 22 23:01:14 -03 2022
+Sat Nov 26 00:37:16 GMT 2022
+Fri Nov 25 21:37:16 -03 2022
diff --git a/eepitch.el b/eepitch.el
index 102e725715..f24cba7ccf 100644
--- a/eepitch.el
+++ b/eepitch.el
@@ -19,7 +19,7 @@
;;
;; Author: Eduardo Ochs <eduardoo...@gmail.com>
;; Maintainer: Eduardo Ochs <eduardoo...@gmail.com>
-;; Version: 20221120
+;; Version: 20221123
;; Keywords: e-scripts
;;
;; Latest version: <http://angg.twu.net/eev-current/eepitch.el>
@@ -983,8 +983,8 @@ The arguments are explained here:
(defun eepitch-tinyscheme () (interactive)
(eepitch-comint "tinyscheme" "tinyscheme"))
;;
+;; Or: (defun eepitch-fennel () (interactive) (eepitch '(fennel-repl
fennel-program)))
(defun eepitch-fennel () (interactive) (eepitch-comint "fennel" "fennel"))
-;; Or: (defun eepitch-fennel () (interactive) (eepitch '(fennel-repl nil)))
;; Haskell, ML, Erlang, Coq:
diff --git a/eev-kla.el b/eev-kla.el
index af261b35d2..85582b295e 100644
--- a/eev-kla.el
+++ b/eev-kla.el
@@ -477,10 +477,10 @@ If (ee-kl-lrcds FNAME) doesn't return any matching
`lrcd's, return nil."
(cl-defun ee-kl-sexp-klfs (&key fname c r region)
"<K>ill <l>ink to <f>ile and <s>tring - make sexp."
- (setq fname (or fname (ee-kl-fname))
- c (or c (ee-kl-c :fname fname))
- r (or r (ee-kl-r :fname fname))
- region (or r (ee-kl-region)))
+ (setq fname (or fname (ee-kl-fname))
+ c (or c (ee-kl-c :fname fname))
+ r (or r (ee-kl-r :fname fname))
+ region (or region (ee-kl-region)))
(list (ee-kl-find-cfile :fname fname :c c)
(ee-kl-shortfname :fname fname :c c :r r)
region))
