[elpa] externals/hyperbole 162fa5e 2/2: mail-address ibtype - Use any derived mode of mail-address-mode-list

[ELPA Syncer]

branch: externals/hyperbole
commit 162fa5e817724bd4857534d9742803ef56f366d5
Author: Bob Weiner <rsw@gnu.org>
Commit: Bob Weiner <rsw@gnu.org>

    mail-address ibtype - Use any derived mode of mail-address-mode-list
---
 Changes     | 14 ++++++++++++++
 hibtypes.el |  7 ++-----
 2 files changed, 16 insertions(+), 5 deletions(-)

diff --git a/Changes b/Changes
index 1e1a5d4..7776b45 100644
--- a/Changes
+++ b/Changes
@@ -1,3 +1,17 @@
+2021-04-24  Bob Weiner  <rsw@gnu.org>
+
+* hibtypes.el (mail-address): Change so only need to list parent modes in
+    mail-address-mode-list to get a match, e.g. prog-mode.
+              (mail-address-mode-list): Shrunk to just top-level parent modes.
+
+* hui.el (hui:htype-help): Allow '*' as completion choice for interactive
+    completion frameworks where RET does not send an empty string but the first
+    pre-selected choice (which will now be '*').
+
+* kotl/kotl-autoloads.el: Remove unreleased kexport-collapse* files from here.
+
+* INSTALL: Update installation instructions for new hyperbole-mode
+
 2021-04-22  Mats Lidell  <matsl@gnu.org>
 
 * test/hpath-tests.el (hpath:load-modifier-loads-file)
diff --git a/hibtypes.el b/hibtypes.el
index 34444b5..d5187c5 100644
--- a/hibtypes.el
+++ b/hibtypes.el
@@ -126,10 +126,7 @@ handle any links they recognize first."
 ;;; ========================================================================
 
 (defvar mail-address-mode-list
-  '(emacs-lisp-mode lisp-interaction-mode lisp-mode scheme-mode
-                    c-mode c++-mode html-mode java-mode js2-mode objc-mode
-                    python-mode smalltalk-mode fundamental-mode text-mode
-                    indented-text-mode web-mode)
+  '(fundamental-mode prog-mode text-mode)
   "List of major modes in which mail address implicit buttons are active.")
 
 (defun mail-address-at-p ()
@@ -151,7 +148,7 @@ any buffer attached to a file in `hyrolo-file-list', or any 
buffer with
   (when (let ((case-fold-search t))
           (or
            (and (or (null mail-address-mode-list)
-                   (memq major-mode mail-address-mode-list))
+                   (apply #'derived-mode-p mail-address-mode-list))
                 (not (string-match "-Elements\\'" (buffer-name)))
                 ;; Don't want this to trigger within an OOBR-FTR buffer.
                 (not (string-match "\\`\\(OOBR.*-FTR\\|oobr.*-ftr\\)"