[elpa] externals/eev 99e55e7ea1: Fixed a bug in eeklfs.

[ELPA Syncer]

branch: externals/eev
commit 99e55e7ea160521bf061f30cfa76030ab038173a
Author: Eduardo Ochs <eduardoochs@gmail.com>
Commit: Eduardo Ochs <eduardoochs@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  <eduardoochs@gmail.com>
+
+       * eev-kla.el (ee-kl-sexp-klfs): fixed a bug.
+
 2022-11-22  Eduardo Ochs  <eduardoochs@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 <eduardoochs@gmail.com>
 ;; Maintainer: Eduardo Ochs <eduardoochs@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))