[elpa] externals/eev 687a1d50d5: Added `find-eeshortdefs'.

[ELPA Syncer]

branch: externals/eev
commit 687a1d50d5f1d0de7e73e5df98858ae889ee1a2f
Author: Eduardo Ochs <eduardoochs@gmail.com>
Commit: Eduardo Ochs <eduardoochs@gmail.com>

    Added `find-eeshortdefs'.
---
 ChangeLog     |  7 +++++++
 VERSION       |  4 ++--
 eev-blinks.el | 47 ++++++++++++++++++++++++++++++++++++++++++++++-
 3 files changed, 55 insertions(+), 3 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 2f9f117771..59481bd49d 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2022-01-26  Eduardo Ochs  <eduardoochs@gmail.com>
+
+       * eev-blinks.el (ee-shortdefp-maxlen-name)
+       (ee-shortdefp-maxlen-def): new variables.
+       (ee-shortdefp, ee-shortdef-symbols, ee-find-eeshortdefs-body)
+       (ee-find-eeshortdefs-header, find-eeshortdefs): new functions.
+
 2022-01-25  Eduardo Ochs  <eduardoochs@gmail.com>
 
        * eev-videolinks.el (find-2022findelispintrovideo): new function.
diff --git a/VERSION b/VERSION
index 3a53b70f0d..2791f18376 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Tue Jan 25 20:42:18 GMT 2022
-Tue Jan 25 17:42:18 -03 2022
+Thu Jan 27 04:37:42 GMT 2022
+Thu Jan 27 01:37:42 -03 2022
diff --git a/eev-blinks.el b/eev-blinks.el
index ecb8735cb9..282d3faf9d 100644
--- a/eev-blinks.el
+++ b/eev-blinks.el
@@ -21,7 +21,7 @@
 ;;
 ;; Author:     Eduardo Ochs <eduardoochs@gmail.com>
 ;; Maintainer: Eduardo Ochs <eduardoochs@gmail.com>
-;; Version:    20220120
+;; Version:    20220126
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-blinks.el>
@@ -69,6 +69,7 @@
 ;; «.find-einsert»             (to "find-einsert")
 ;; «.find-eunicode»            (to "find-eunicode")
 ;; «.find-eejumps»             (to "find-eejumps")
+;; «.find-eeshortdefs»         (to "find-eeshortdefs")
 
 
 
@@ -1394,6 +1395,50 @@ Hint: install the Debian package \"unicode-data\".")
 
 
 
+
+;;;   __ _           _                      _                _      _       __ 
    
+;;;  / _(_)_ __   __| |       ___  ___  ___| |__   ___  _ __| |_ __| | ___ / 
_|___ 
+;;; | |_| | '_ \ / _` |_____ / _ \/ _ \/ __| '_ \ / _ \| '__| __/ _` |/ _ \ 
|_/ __|
+;;; |  _| | | | | (_| |_____|  __/  __/\__ \ | | | (_) | |  | || (_| |  __/  
_\__ \
+;;; |_| |_|_| |_|\__,_|      \___|\___||___/_| |_|\___/|_|   \__\__,_|\___|_| 
|___/
+;;;                                                                            
    
+;; «find-eeshortdefs»  (to ".find-eeshortdefs")
+;; Test: (find-eeshortdefs)
+;; See: (find-eev-quick-intro "7.4. Commands with very short names")
+
+(defvar ee-shortdefp-maxlen-name 3)
+(defvar ee-shortdefp-maxlen-def 80)
+
+(defun ee-shortdefp (sym)
+  (and (fboundp  sym)
+       (commandp sym)
+       (listp      (symbol-function  sym))
+       (eq (car    (symbol-function  sym)) 'lambda)
+       (<= (length (symbol-name      sym)) ee-shortdefp-maxlen-name)
+       (<= (length (ee-defun-str-for sym)) ee-shortdefp-maxlen-def)))
+
+(defun ee-shortdef-symbols ()
+  (apropos-internal "^.*$" 'ee-shortdefp))
+
+(defun ee-find-eeshortdefs-body ()
+  (mapconcat 'ee-defun-str-for (ee-shortdef-symbols) "\n"))
+
+(defun ee-find-eeshortdefs-header ()
+  ";; Generated by: (find-eeshortdefs)
+;; See: (find-eev-quick-intro \"7.4. Commands with very short names\")
+;; Current short defs:\n\n")
+
+(defun find-eeshortdefs (&rest pos-spec-list)
+  "This is similar to `find-eejumps', but lists commands with very short 
names."
+  (interactive)
+  (let ((ee-buffer-name "*(find-eeshortdefs)*"))
+    (apply 'find-estring-elisp
+          (concat (ee-find-eeshortdefs-header)
+                  (ee-find-eeshortdefs-body))
+          pos-spec-list)))
+
+
+
 (provide 'eev-blinks)