branch: elpa/adoc-mode
commit 47e27bf1af7b90155e4cce7ca3d8713034d8c961
Author: Tobias Zawada <[email protected]>
Commit: TobiasZawada <[email protected]>
Try to calm down byte-compiler in Emacs 28.1 AND Emacs 29.1
---
adoc-mode.el | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/adoc-mode.el b/adoc-mode.el
index 3db17a18fb..72ec49573d 100644
--- a/adoc-mode.el
+++ b/adoc-mode.el
@@ -2005,7 +2005,7 @@ START-SRC and END-SRC delimit the actual source code."
(when (fboundp lang-mode)
(let ((string (buffer-substring-no-properties start-src end-src))
(modified (buffer-modified-p))
- (adoc-buffer (current-buffer)) int)
+ (adoc-buffer (current-buffer)))
(remove-text-properties start-block end-block '(face nil
adoc-code-block nil font-lock-fontified nil font-lock-multiline nil))
(with-current-buffer
(get-buffer-create
@@ -2018,7 +2018,8 @@ START-SRC and END-SRC delimit the actual source code."
(insert string))
(unless (eq major-mode lang-mode) (funcall lang-mode))
(font-lock-ensure)
- (cl-loop for int being the intervals property 'face
+ (cl-loop for int = nil
+ for int being the intervals property 'face
for pos = (car int)
for next = (cdr int)
for val = (get-text-property pos 'face)
