[elpa] externals/hyperbole 64f7c8f1ea 07/10: Merge branch 'master' of hyperbole into rsw

[ELPA Syncer]

branch: externals/hyperbole
commit 64f7c8f1ea6ab1cfcdf13111e80a738c3e0c314f
Merge: 385c6f121f ae6188cbd9
Author: bw <rsw@gnu.org>
Commit: bw <rsw@gnu.org>

    Merge branch 'master' of hyperbole into rsw
---
 ChangeLog            |  5 +++++
 hui-mini.el          |  3 ++-
 hywiki.el            |  7 ++++---
 test/hyrolo-tests.el | 20 +++++++++++++++++++-
 4 files changed, 30 insertions(+), 5 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index eee58465cb..9984f93c32 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -65,6 +65,11 @@
   hycontrol.el (hycontrol-windows-grid): Fix infinite recursive call
     when 'mode-binding' is the same as the current command, e.g. org-mode.
 
+2024-09-11  Mats Lidell  <matsl@gnu.org>
+
+* test/hyrolo-tests.el (hyrolo-tests--get-file-list): Verify
+    `hyrolo--expanded-file-list' is updated when a file is added.
+
 2024-09-10  Bob Weiner  <rsw@gnu.org>
 
 * hywiki.el (hywiki-org-make-publish-project-alist): Add
diff --git a/hui-mini.el b/hui-mini.el
index 544a316bba..07a5d8b65b 100644
--- a/hui-mini.el
+++ b/hui-mini.el
@@ -3,7 +3,7 @@
 ;; Author:       Bob Weiner
 ;;
 ;; Orig-Date:    15-Oct-91 at 20:13:17
-;; Last-Mod:      9-Sep-24 at 01:27:12 by Bob Weiner
+;; Last-Mod:     11-Sep-24 at 08:51:59 by Mats Lidell
 ;;
 ;; SPDX-License-Identifier: GPL-3.0-or-later
 ;;
@@ -30,6 +30,7 @@
 (defvar hargs:reading-type)             ; "hargs.el"
 (defvar hbmap:dir-user)                 ; "hbmap.el"
 (defvar hbmap:filename)                 ; "hbmap.el"
+(defvar hui:menu-highlight-flag)        ; "hui-mini.el"
 (defvar hui:menu-hywiki nil)            ; "hui-mini.el"
 (defvar hui:menu-mode-map)              ; "hui-mini.el"
 (defvar hui:menu-rolo nil)              ; "hui-mini.el"
diff --git a/hywiki.el b/hywiki.el
index f218f0a231..5abbe1bc2a 100644
--- a/hywiki.el
+++ b/hywiki.el
@@ -3,7 +3,7 @@
 ;; Author:       Bob Weiner
 ;;
 ;; Orig-Date:    21-Apr-24 at 22:41:13
-;; Last-Mod:     22-Sep-24 at 02:14:13 by Bob Weiner
+;; Last-Mod:     22-Sep-24 at 02:31:37 by Bob Weiner
 ;;
 ;; SPDX-License-Identifier: GPL-3.0-or-later
 ;;
@@ -137,6 +137,7 @@
 ;;; ************************************************************************
 
 (defvar org-agenda-buffer-tmp-name)  ;; "org-agenda.el"
+(defvar org-export-with-broken-links);; "ox.el"
 (defvar org-publish-project-alist)   ;; "ox-publish.el"
 (declare-function hsys-org-at-tags-p "hsys-org")
 (declare-function org-link-store-props "ol" (&rest plist))
@@ -233,10 +234,10 @@ override standard Org link lookups.  See \"(org)Internal 
Links\".")
 
 (defcustom hywiki-org-publishing-broken-links 'mark
   "HyWiki Org publish option that determines how invalid links are handled.
-The default is 'mark.
+The default is \\='mark.
 
 When this option is non-nil, broken HyWiki links are ignored,
-without stopping the export process.  If it is set to 'mark,
+without stopping the export process.  If it is set to \\='mark,
 broken links are marked with a string like:
 
   [BROKEN LINK: path]
diff --git a/test/hyrolo-tests.el b/test/hyrolo-tests.el
index 1d116b1d49..6190fdfc8f 100644
--- a/test/hyrolo-tests.el
+++ b/test/hyrolo-tests.el
@@ -3,7 +3,7 @@
 ;; Author:       Mats Lidell <matsl@gnu.org>
 ;;
 ;; Orig-Date:    19-Jun-21 at 22:42:00
-;; Last-Mod:      5-Aug-24 at 22:16:27 by Mats Lidell
+;; Last-Mod:     11-Sep-24 at 23:56:02 by Mats Lidell
 ;;
 ;; SPDX-License-Identifier: GPL-3.0-or-later
 ;;
@@ -470,6 +470,24 @@ Match a string in the second cell."
            ()))
       (hy-delete-file-and-buffer tmp-file))))
 
+(ert-deftest hyrolo-tests--get-file-list ()
+  "Verify `hyrolo-get-file-list` includes added files."
+  :expected-result :failed
+  (let* ((folder (make-temp-file "hypb" t))
+         (prefix (expand-file-name "hypb" folder))
+         (org-file (make-temp-file prefix nil ".org"))
+         (hyrolo-file-list (list folder)))
+    (unwind-protect
+        (progn
+          (should (= 1 (length (hyrolo-get-file-list))))
+          (let ((org2-file (make-temp-file prefix nil ".org")))
+            (unwind-protect
+                (should (= 2 (length (hyrolo-get-file-list))))
+              (hy-delete-file-and-buffer org2-file))))
+      (dolist (f (list org-file))
+        (hy-delete-file-and-buffer f))
+      (delete-directory folder))))
+
 ;; Outline movement tests
 (defun hyrolo-tests--level-number (section depth)
   "Generate the number for the SECTION at DEPTH.