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

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/company be8cf44 09/46: Tidy up a little


From: Dmitry Gutov
Subject: [elpa] externals/company be8cf44 09/46: Tidy up a little
Date: Wed, 30 Dec 2020 18:33:03 -0500 (EST)

branch: externals/company
commit be8cf44c6eeddf0ea66f842f6287e7961f20a05a
Author: Dmitry Gutov <dgutov@yandex.ru>
Commit: Dmitry Gutov <dgutov@yandex.ru>

    Tidy up a little
---
 company.el | 17 +++++++----------
 1 file changed, 7 insertions(+), 10 deletions(-)

diff --git a/company.el b/company.el
index 82264e1..b0d1a6c 100644
--- a/company.el
+++ b/company.el
@@ -2738,20 +2738,17 @@ If SHOW-VERSION is non-nil, show the version in the 
echo area."
                     (company--offset-line (pop lines) offset))
             new))
 
-    ;; TODO: Choose the face most appropriate for each line, instead of
-    ;; simply forcing :extend to nil.
+    ;; XXX: Also see branch 'more-precise-extend'.
     (let* ((nl-face (list
                      :extend t
                      :inverse-video nil
                      :background (face-attribute 'default :background)))
-           (str (concat (when nl " \n")
-                        (apply
-                         #'concat
-                         (mapcan
-                          ;; 
https://debbugs.gnu.org/cgi/bugreport.cgi?bug=42552#23
-                          (lambda (line) (list line
-                                          (propertize "\n" 'face nl-face)))
-                          (nreverse new))))))
+           (str (apply #'concat
+                       (when nl " \n")
+                       (mapcan
+                        ;; 
https://debbugs.gnu.org/cgi/bugreport.cgi?bug=42552#23
+                        (lambda (line) (list line (propertize "\n" 'face 
nl-face)))
+                        (nreverse new)))))
       ;; Use add-face-text-property in Emacs 24.4
       ;; https://debbugs.gnu.org/38563
       (font-lock-append-text-property 0 (length str) 'face 'default str)



reply via email to

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