[nongnu] elpa/meow 3309d64c43: Fix meow-block, meow-to-block on emacs31

[ELPA Syncer]

branch: elpa/meow
commit 3309d64c436209649a5106fa3a3dd019de4d3a64
Author: DogLooksGood <doglooksg...@gmail.com>
Commit: DogLooksGood <doglooksg...@gmail.com>

    Fix meow-block, meow-to-block on emacs31
---
 meow-command.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/meow-command.el b/meow-command.el
index c4bd399f82..2f79996bfd 100644
--- a/meow-command.el
+++ b/meow-command.el
@@ -1201,7 +1201,7 @@ numeric, repeat times.
       (when (and (if ra (< (car (syntax-ppss)) depth) (<= (car (syntax-ppss)) 
depth))
                  (not (= (point) orig-pos)))
         (setq p (point))
-        (when (ignore-errors (forward-list (if back 1 -1)))
+        (when (ignore-errors (forward-list (if back 1 -1)) t)
           (setq m (point)))))
     (when (and p m)
       (thread-first
@@ -1228,7 +1228,7 @@ Will create selection with type (expand . block)."
       (when (and (= (car (syntax-ppss)) depth)
                  (not (= (point) orig-pos)))
         (setq p (point))
-        (when (ignore-errors (forward-list (if back 1 -1)))
+        (when (ignore-errors (forward-list (if back 1 -1)) t)
           (setq m (point)))))
     (when (and p m)
       (thread-first