[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/with-editor 5a1af9b 1/3: with-editor-output-filter: Move d
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/with-editor 5a1af9b 1/3: with-editor-output-filter: Move definition |
Date: |
Thu, 28 Oct 2021 17:58:03 -0400 (EDT) |
branch: elpa/with-editor
commit 5a1af9bb4a75366911eb703fc0e1eab9f75d2f39
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>
with-editor-output-filter: Move definition
---
with-editor.el | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/with-editor.el b/with-editor.el
index ba856e6..2aa8fc9 100644
--- a/with-editor.el
+++ b/with-editor.el
@@ -644,9 +644,6 @@ may not insert the text into the PROCESS's buffer. Then it
calls
(defconst with-editor-sleeping-editor-regexp
"^WITH-EDITOR: \\([0-9]+\\) OPEN \\([^]+?\\)\\(?: IN
\\([^\r]+?\\)\\)?\r?$")
-(defun with-editor-output-filter (string)
- (with-editor-sleeping-editor-filter nil string))
-
(defun with-editor-sleeping-editor-filter (process string)
(when-let ((incomplete (and process (process-get process 'incomplete))))
(setq string (concat incomplete string)))
@@ -754,6 +751,10 @@ This works in `shell-mode', `term-mode', `eshell-mode' and
(interactive)
(with-editor-export-editor "HG_EDITOR"))
+(defun with-editor-output-filter (string)
+ "Handle edit requests on behalf of `comint-mode' and `eshell-mode'."
+ (with-editor-sleeping-editor-filter nil string))
+
(defun with-editor-emulate-terminal (process string)
"Like `term-emulate-terminal' but also handle edit requests."
(when (with-editor-sleeping-editor-filter process string)