emacs-elpa-diffs
[Top][All Lists]
Advanced

[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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]