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

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

[nongnu] elpa/flx c7e8574da3 171/182: Shorten long lines


From: ELPA Syncer
Subject: [nongnu] elpa/flx c7e8574da3 171/182: Shorten long lines
Date: Tue, 13 Dec 2022 03:59:41 -0500 (EST)

branch: elpa/flx
commit c7e8574da3a74670bebad9743f6ca6ec88844ab9
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>

    Shorten long lines
---
 flx.el | 20 ++++++++++++--------
 1 file changed, 12 insertions(+), 8 deletions(-)

diff --git a/flx.el b/flx.el
index 9e3bc36fe8..a28202d88b 100644
--- a/flx.el
+++ b/flx.el
@@ -36,11 +36,11 @@
 ;;
 ;; Use defsubst instead of defun.
 ;;
-;; * Using bitmaps to check for matches worked out to be SLOWER than just
-;;   scanning the string and using `flx-get-matches'.
+;; * Using bitmaps to check for matches worked out to be SLOWER than
+;;   just scanning the string and using `flx-get-matches'.
 ;;
-;; * Consing causes GC, which can often slowdown Emacs more than the benefits
-;;   of an optimization.
+;; * Consing causes GC, which can often slowdown Emacs more than the
+;;   benefits of an optimization.
 
 ;;; Acknowledgments
 
@@ -62,7 +62,8 @@
   :type '(repeat character)
   :group 'flx)
 
-(defface flx-highlight-face  '((t (:inherit font-lock-variable-name-face :bold 
t :underline t)))
+(defface flx-highlight-face
+  '((t (:inherit font-lock-variable-name-face :bold t :underline t)))
   "Face used by flx for highlighting flx match characters."
   :group 'flx)
 
@@ -146,7 +147,8 @@ See documentation for logic."
                       ;; gets penalized compared to "foo/ab".
                       (if (zerop group-word-count) nil last-char)))
                  (when (flx-boundary-p effective-last-char char)
-                   (setcdr (cdar groups-alist) (cons index (cl-cddar 
groups-alist))))
+                   (setcdr (cdar groups-alist)
+                          (cons index (cl-cddar groups-alist))))
                  (when (and (not (flx-word-p last-char))
                             (flx-word-p char))
                    (cl-incf group-word-count)))
@@ -389,10 +391,12 @@ SCORE of nil means to clear the properties."
       (dolist (char (cdr score))
         (when (and last-char
                    (not (= (1+ last-char) char)))
-          (put-text-property block-started  (1+ last-char) 'face 
'flx-highlight-face str)
+          (put-text-property block-started  (1+ last-char)
+                            'face 'flx-highlight-face str)
           (setq block-started char))
         (setq last-char char))
-      (put-text-property block-started  (1+ last-char) 'face 
'flx-highlight-face str)
+      (put-text-property block-started  (1+ last-char)
+                        'face 'flx-highlight-face str)
       (when add-score
         (setq str (format "%s [%s]" str (car score)))))
     (if (consp obj)



reply via email to

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