emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/assess 6a4aa34ec3 33/95: Fixed multiple string matching


From: ELPA Syncer
Subject: [elpa] externals/assess 6a4aa34ec3 33/95: Fixed multiple string matching for face match.
Date: Tue, 19 Jul 2022 15:57:31 -0400 (EDT)

branch: externals/assess
commit 6a4aa34ec37d9c6c2b57109ad119282f9c33cf6a
Author: Phillip Lord <phillip.lord@russet.org.uk>
Commit: Phillip Lord <phillip.lord@russet.org.uk>

    Fixed multiple string matching for face match.
---
 sisyphus.el           | 7 ++-----
 test/sisyphus-test.el | 2 --
 2 files changed, 2 insertions(+), 7 deletions(-)

diff --git a/sisyphus.el b/sisyphus.el
index 687597473f..850f4fef10 100644
--- a/sisyphus.el
+++ b/sisyphus.el
@@ -7,7 +7,7 @@
 ;; Author: Phillip Lord <phillip.lord@russet.org.uk>
 ;; Maintainer: Phillip Lord <phillip.lord@russet.org.uk>
 ;; Version: 0.1
-;; Package-Requires: ((emacs "24.4")(m-buffer "0.13")(dash "2.12.0"))
+;; Package-Requires: ((emacs "24.4")(m-buffer "0.14")(dash "2.12.0"))
 
 ;; The contents of this file are subject to the GPL License, Version 3.0.
 
@@ -901,10 +901,7 @@ the copy of FILE will be in a different directory."
            ((integerp first-location)
             (m-buffer-pos-to-marker buffer locations))
            ((stringp first-location)
-            ;; this function does not exist yet -- should find the first
-            ;; occurance of exactly the first string, then the first
-            ;; occurrence of the next and so on
-            (m-buffer-find-string buffer locations))
+            (m-buffer-match-multi locations :buffer buffer))
            ;; markers
            ((markerp first-location)
             locations)
diff --git a/test/sisyphus-test.el b/test/sisyphus-test.el
index 295fef1e1b..5f0710eb32 100644
--- a/test/sisyphus-test.el
+++ b/test/sisyphus-test.el
@@ -437,9 +437,7 @@ This also tests the advice on string=."
       (m-buffer-match buf "defun"))
     'font-lock-keyword-face)))
 
-;; Need extra support from m-buffer.
 (ert-deftest sisyphus-test-face-at-with-strings ()
-  :expected-result :failed
   (should
    (sisyphus-face-at=
     "(defun x ())\n(defun y ())\n(defun z ())"



reply via email to

[Prev in Thread] Current Thread [Next in Thread]