[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/llm 14d576faad 2/2: Replace use of pos-eol which is not
From: |
ELPA Syncer |
Subject: |
[elpa] externals/llm 14d576faad 2/2: Replace use of pos-eol which is not compatible with Emacs 28.1 |
Date: |
Fri, 8 Dec 2023 15:58:06 -0500 (EST) |
branch: externals/llm
commit 14d576faadc1144f49ec111ee30aa581670771eb
Author: Andrew Hyatt <ahyatt@gmail.com>
Commit: Andrew Hyatt <ahyatt@gmail.com>
Replace use of pos-eol which is not compatible with Emacs 28.1
This fixes https://github.com/ahyatt/llm/issues/10.
---
NEWS.org | 1 +
llm-llamacpp.el | 2 +-
llm-ollama.el | 2 +-
llm-openai.el | 2 +-
4 files changed, 4 insertions(+), 3 deletions(-)
diff --git a/NEWS.org b/NEWS.org
index f7fab77c34..aa5cf3d905 100644
--- a/NEWS.org
+++ b/NEWS.org
@@ -1,5 +1,6 @@
* Version 0.6.1
- Fix issue with Google Cloud Vertex not responding to messages with a system
interaction.
+- Fix use of ~(pos-eol)~ which is not compatible with Emacs 28.1.
* Version 0.6
- Add provider =llm-llamacpp=.
* Version 0.5.2
diff --git a/llm-llamacpp.el b/llm-llamacpp.el
index 944eca96ed..d1629468d0 100644
--- a/llm-llamacpp.el
+++ b/llm-llamacpp.el
@@ -157,7 +157,7 @@ them from 1 to however many are sent.")
(when (search-backward-regexp
end-of-chunk-rx
nil t)
- (pos-eol)))))
+ (line-end-position)))))
(when end-pos
(let ((all-lines (seq-filter
(lambda (line) (string-match-p end-of-chunk-rx
line))
diff --git a/llm-ollama.el b/llm-ollama.el
index 0d754a3bd9..a24d017caa 100644
--- a/llm-ollama.el
+++ b/llm-ollama.el
@@ -153,7 +153,7 @@ STREAMING if non-nil, turn on response streaming."
(when (search-backward-regexp
(rx (seq "done\":false}"
line-end))
nil t)
- (pos-eol)))))
+ (line-end-position)))))
(when end-pos
(let ((all-lines (seq-filter
(lambda (line) (string-match-p (rx (seq
string-start ?{)) line))
diff --git a/llm-openai.el b/llm-openai.el
index a9e802a93c..1160ebfca9 100644
--- a/llm-openai.el
+++ b/llm-openai.el
@@ -208,7 +208,7 @@ them from 1 to however many are sent.")
(when (search-backward-regexp
complete-rx
nil t)
- (pos-eol)))))
+ (line-end-position)))))
(when end-pos
(let ((all-lines (seq-filter
(lambda (line) (string-match-p complete-rx line))