[elpa] externals/eev ef637c7e31: Added some support for shortdoc.

[ELPA Syncer]

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

    Added some support for shortdoc.
---
 ChangeLog     |  9 +++++++++
 VERSION       |  4 ++--
 eev-blinks.el | 14 +++++++++++++-
 eev-hlinks.el | 10 +++++++++-
 4 files changed, 33 insertions(+), 4 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 276f47c007..cc6afd742b 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,12 @@
+2022-09-03  Eduardo Ochs  <eduardoochs@gmail.com>
+
+       * eev-hlinks.el (ee-eshortdoc-re): new variable.
+       (ee-eshortdoc-bufferp): new function.
+       (ee-find-eshortdoc-links): new function.
+       (ee-fhl-main-program): added an entry for shortdoc.
+
+       * eev-blinks.el (find-eshortdoc): new function.
+
 2022-08-28  Eduardo Ochs  <eduardoochs@gmail.com>
 
        * eev-rstdoc.el: rewritten completely.
diff --git a/VERSION b/VERSION
index 78eeeb675b..c54ba6ce70 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Sun Aug 28 05:14:58 GMT 2022
-Sun Aug 28 02:14:58 -03 2022
+Sat Sep  3 04:28:44 GMT 2022
+Sat Sep  3 01:28:44 -03 2022
diff --git a/eev-blinks.el b/eev-blinks.el
index bc116196ab..f9d343c202 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:    20220618
+;; Version:    20220903
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-blinks.el>
@@ -392,6 +392,18 @@ then go to the position specified by POS-SPEC-LIST.\n
   (apply 'find-wottb-call '(describe-package pkg-desc)
         "*Help*" pos-spec-list))
 
+;; Test: (find-eshortdoc 'keymaps)
+;;  See: (find-efunction 'shortdoc-display-group)
+;; TODO: (autoload 'shortdoc-display-group "shortdoc")
+;; TODO: make the autoload work in the interactive clause.
+;;
+(defun find-eshortdoc (group &rest rest)
+  "Hyperlink to the output of `shortdoc-display-group'."
+  (interactive (list (completing-read "Show summary for functions in: "
+                                      (mapcar #'car shortdoc--groups))))
+  (require 'shortdoc)
+  (apply 'find-dbsw-call `(shortdoc-display-group ',group) rest))
+
 
 
 ;;;   __ _           _           _ _                  
diff --git a/eev-hlinks.el b/eev-hlinks.el
index 1de868316b..3422702d05 100644
--- a/eev-hlinks.el
+++ b/eev-hlinks.el
@@ -19,7 +19,7 @@
 ;;
 ;; Author:     Eduardo Ochs <eduardoochs@gmail.com>
 ;; Maintainer: Eduardo Ochs <eduardoochs@gmail.com>
-;; Version:    20220625
+;; Version:    20220903
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-hlinks.el>
@@ -292,6 +292,7 @@ which kind \"here\" the current buffer is."
    (:if (ee-ecolors-bufferp)   (ee-find-ecolors-links))
    (:if (ee-efaces-bufferp)    (ee-find-efaces-links))
    (:if (ee-pdftext-bufferp)   (ee-find-pdftext-links))
+   (:if (ee-eshortdoc-bufferp) (ee-find-eshortdoc-links))
    ;;
    ;; By buffer name, when it is "*Help*":
    (:if (ee-efunctiondescr-bufferp) (ee-find-efunctiondescr-links))
@@ -551,6 +552,13 @@ This is the standard high-level way to call `ee-fhl-run'."
       (customize-variable ',symbol)
       )))
 
+(defvar ee-eshortdoc-re "^\\*Shortdoc \\(.*\\)\\*$")
+(defun  ee-eshortdoc-bufferp () (ee-buffer-re ee-eshortdoc-re))
+(defun  ee-find-eshortdoc-links ()
+  (let ((symbol (intern (ee-eshortdoc-bufferp))))
+    `((find-eshortdoc ',symbol)
+      (shortdoc-display-group ',symbol))))
+
 ;; Other cases
 (defun ee-file-bufferp     () buffer-file-name)