[elpa] externals/coterm 139e8d0 79/80: Fix for Emacs 27

[ELPA Syncer]

branch: externals/coterm
commit 139e8d04be843143d648eded08026052741fca79
Author: Miha Rihtaršič <miha@kamnitnik.top>
Commit: Miha Rihtaršič <miha@kamnitnik.top>

    Fix for Emacs 27
---
 coterm.el | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/coterm.el b/coterm.el
index eec0161..f570537 100644
--- a/coterm.el
+++ b/coterm.el
@@ -455,9 +455,9 @@ is the process mark."
   (unless comint-use-prompt-regexp
     (unless (eq (get-char-property (max 1 (1- (point-max))) 'field)
                 'output)
-      (goto-char (point-max))
-      (text-property-search-backward 'field 'output)
-      (narrow-to-region (point-min) (max pmark (point))))))
+      (narrow-to-region
+       (point-min)
+       (previous-single-property-change (point-max) 'field nil pmark)))))
 
 ;;; Terminal emulation
 
@@ -630,8 +630,9 @@ Return non-nil if the position was actually reached."
   "Insert STR using PROC-FILT and PROCESS.
 Basically, call PROC-FILT with the arguments PROCESS and STR, but
 adjusting `ansi-color-context-region' beforehand."
-  (when-let ((context ansi-color-context-region))
-    (set-marker (cadr context) (process-mark process)))
+  (when-let ((context ansi-color-context-region)
+             (marker (cadr context)))
+    (set-marker marker (process-mark process)))
   (funcall proc-filt process str))
 
 (defun coterm--t-delete-region (row1 col1 &optional row2 col2)