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

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

[elpa] externals/breadcrumb 9205ef62c8 15/18: Fix indentation in two pla


From: ELPA Syncer
Subject: [elpa] externals/breadcrumb 9205ef62c8 15/18: Fix indentation in two places
Date: Tue, 5 Sep 2023 06:57:42 -0400 (EDT)

branch: externals/breadcrumb
commit 9205ef62c8f8c5b1410c7f8495d11825f41f593b
Author: João Távora <joaotavora@gmail.com>
Commit: João Távora <joaotavora@gmail.com>

    Fix indentation in two places
    
    * breadcrumb.el (bc--summarize):
    (breadcrumb-local-mode): Fix indentation.
---
 breadcrumb.el | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

diff --git a/breadcrumb.el b/breadcrumb.el
index 15c6828044..c08b643225 100644
--- a/breadcrumb.el
+++ b/breadcrumb.el
@@ -285,14 +285,14 @@ Aim for a return string that is at most CUTOFF characters 
long.
 Join the crumbs with SEPARATOR."
   (let ((rcrumbs
          (cl-loop
-             for available = (- cutoff used)
-             for (c . more) on (reverse crumbs)
-             for seplen = (if more (length separator) 0)
-             for shorten-p = (unless (get-text-property 0 'bc-dont-shorten c)
-                               (> (+ (length c) seplen) available))
-             for toadd = (if shorten-p (substring c 0 1) c)
-             sum (+ (length toadd) seplen) into used
-             collect toadd)))
+          for available = (- cutoff used)
+          for (c . more) on (reverse crumbs)
+          for seplen = (if more (length separator) 0)
+          for shorten-p = (unless (get-text-property 0 'bc-dont-shorten c)
+                            (> (+ (length c) seplen) available))
+          for toadd = (if shorten-p (substring c 0 1) c)
+          sum (+ (length toadd) seplen) into used
+          collect toadd)))
     (string-join (reverse rcrumbs) separator)))
 
 (defun bc--format-project-node (p more root path)
@@ -358,7 +358,7 @@ propertized crumbs."
 (define-minor-mode breadcrumb-local-mode
   "Header lines with breadcrumbs."
   :init-value nil
- (if bc-local-mode (add-to-list 'header-line-format '(:eval (bc--header-line)))
+  (if bc-local-mode (add-to-list 'header-line-format '(:eval 
(bc--header-line)))
     (setq header-line-format (delete '(:eval (bc--header-line)) 
header-line-format))))
 
 (defun bc--turn-on-local-mode-on-behalf-of-global-mode ()



reply via email to

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