[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/doc-show-inline cc9d6b1d0d: Cleanup: replace reverse with
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/doc-show-inline cc9d6b1d0d: Cleanup: replace reverse with nreverse |
Date: |
Sun, 8 Dec 2024 00:59:41 -0500 (EST) |
branch: elpa/doc-show-inline
commit cc9d6b1d0dc0776331daa2d612c17473f1ddd337
Author: Campbell Barton <ideasman42@gmail.com>
Commit: Campbell Barton <ideasman42@gmail.com>
Cleanup: replace reverse with nreverse
---
doc-show-inline.el | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/doc-show-inline.el b/doc-show-inline.el
index fcedefc5c4..f8ce9ee1bd 100644
--- a/doc-show-inline.el
+++ b/doc-show-inline.el
@@ -597,8 +597,10 @@ Argument XREF-BACKEND is used to avoid multiple calls to
`xref-find-backend'."
(push text text-results))))))))))
(cond
- (text-results ; Add a blank item so there is a trailing newline when
joining.
- (let ((text (string-join (reverse (cons "" text-results)) "\n")))
+ (text-results
+ ;; Add a blank item so there is a trailing newline when joining.
+ (setq text-results (nreverse (cons "" text-results)))
+ (let ((text (string-join text-results "\n")))
(add-face-text-property 0 (length text) 'doc-show-inline-face t text)
text))
(t
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [nongnu] elpa/doc-show-inline cc9d6b1d0d: Cleanup: replace reverse with nreverse,
ELPA Syncer <=