[elpa] externals/hyperbole aecb4ec856 06/14: Revert "Use plain star wildcard and add a test"

[ELPA Syncer]

branch: externals/hyperbole
commit aecb4ec85636bf52c0ffa8ce284fb71aa6cc550f
Author: Mats Lidell <mats.lidell@lidells.se>
Commit: Mats Lidell <mats.lidell@lidells.se>

    Revert "Use plain star wildcard and add a test"
    
    This reverts commit c98bdbf501336997b1ac8a4a6d0a83f4128c66cf.
---
 ChangeLog            |  3 +--
 hywiki.el            |  4 ++--
 test/hywiki-tests.el | 13 +------------
 3 files changed, 4 insertions(+), 16 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 6f63c0c21f..9353a6c109 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -18,8 +18,7 @@
     (hywiki-tests--verify-face-property-when-editing-wikiword-first-char): Add 
hywiki
     tests.
 
-* hywiki.el (hywiki-directory-edit): Remove character classes. Not
-    supported by all shells.
+* test/hywiki-tests.el (hywiki-tests--word-is-p): Add hywiki test.
 
 2024-10-28  Bob Weiner  <rsw@gnu.org>
 
diff --git a/hywiki.el b/hywiki.el
index 535c917cae..57accd7add 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:      1-Nov-24 at 00:00:19 by Mats Lidell
+;; Last-Mod:     28-Oct-24 at 01:43:34 by Bob Weiner
 ;;
 ;; SPDX-License-Identifier: GPL-3.0-or-later
 ;;
@@ -836,7 +836,7 @@ these are handled by the Org mode link handler."
 (defun hywiki-directory-edit ()
   "Display and edit HyWiki pages in current `hywiki-directory'."
   (interactive)
-  (dired (concat hywiki-directory "*"
+  (dired (concat hywiki-directory "[[:upper:]][[:alpha:]]*"
                 (regexp-quote hywiki-file-suffix))))
 
 (defun hywiki-directory-get-checksum ()
diff --git a/test/hywiki-tests.el b/test/hywiki-tests.el
index 667703708b..1248ce6ad3 100644
--- a/test/hywiki-tests.el
+++ b/test/hywiki-tests.el
@@ -3,7 +3,7 @@
 ;; Author:       Mats Lidell
 ;;
 ;; Orig-Date:    18-May-24 at 23:59:48
-;; Last-Mod:     10-Nov-24 at 22:54:09 by Mats Lidell
+;; Last-Mod:     10-Nov-24 at 23:05:28 by Mats Lidell
 ;;
 ;; SPDX-License-Identifier: GPL-3.0-or-later
 ;;
@@ -112,17 +112,6 @@
   (should-not (hywiki-word-is-p "hy:WikiWord"))
   (should-not (hywiki-word-is-p "wikiWord")))
 
-(ert-deftest hywiki-tests--directory-edit ()
-  "Verify `hywiki-directory-edit' opens dired in right folder."
-  (let* ((hywiki-directory (file-name-as-directory (make-temp-file "hywiki" 
t)))
-         (wiki-page (hywiki-add-page "WikiWord")))
-    (unwind-protect
-        (progn
-          (hywiki-directory-edit)
-          (should (string= default-directory hywiki-directory)))
-      (hy-delete-file-and-buffer wiki-page)
-      (hy-delete-dir-and-buffer hywiki-directory))))
-
 (ert-deftest hywiki-tests--maybe-at-wikiword-beginning ()
   "Verify `hywiki-maybe-at-wikiword-beginning' identifies if maybe at 
beginning of WikiWord."
   (with-temp-buffer