branch: externals/coterm
commit 139e8d04be843143d648eded08026052741fca79
Author: Miha Rihtaršič <[email protected]>
Commit: Miha Rihtaršič <[email protected]>
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)
