[elpa] externals/compat 0cb53e517f 5/6: Fix prop-match-p

[ELPA Syncer]

branch: externals/compat
commit 0cb53e517fd79409130e548d76b04fae81f93bff
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Fix prop-match-p
---
 NEWS.org     | 1 +
 compat-27.el | 4 +++-
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/NEWS.org b/NEWS.org
index debaec423a..631f3da242 100644
--- a/NEWS.org
+++ b/NEWS.org
@@ -5,6 +5,7 @@
 - Add multiple new tests for existing APIs.
 - Bug fix for the ~setq-local~ compatibility macro
 - Bug fix for the ~proper-list-p~ compatibility function
+- Bug fix for the ~prop-match-p~ compatibility function
 - Add new Emacs 29 APIs. Most of these are still untested and may change. If 
you
   intend to use an API please be extra careful and if possible contribute test
   cases. All untested functions are marked as ~<UNTESTED>~ in the Compat
diff --git a/compat-27.el b/compat-27.el
index 5edcb6d36a..7ce4721777 100644
--- a/compat-27.el
+++ b/compat-27.el
@@ -745,7 +745,9 @@ The return value is a string (or nil in case we can’t find 
it)."
   "Return non-nil if MATCH is a `prop-match' object."
   :max-version "26.1"
   :feature text-property-search
-  (and (vectorp match) (eq (aref match 0) 'prop-match))) ;; Vector
+  (and (vectorp match) ;; Vector
+       (> (length match) 0)
+       (eq (aref match 0) 'prop-match)))
 
 (compat-defun prop-match-p (match) ;; <OK>
   "Return non-nil if MATCH is a `prop-match' object."