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

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

[elpa] externals/breadcrumb df9e2c3678 10/18: Fix case when bc--ipath-al


From: ELPA Syncer
Subject: [elpa] externals/breadcrumb df9e2c3678 10/18: Fix case when bc--ipath-alist results in something useless
Date: Tue, 5 Sep 2023 06:57:42 -0400 (EDT)

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

    Fix case when bc--ipath-alist results in something useless
    
    * breadcrumb.el (breadcrumb-imenu-crumbs): Fix
---
 breadcrumb.el | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/breadcrumb.el b/breadcrumb.el
index 2e9bddf3ea..473edb8fe4 100644
--- a/breadcrumb.el
+++ b/breadcrumb.el
@@ -227,11 +227,12 @@ These structures don't have a `breadcrumb-region' 
property on."
 (defun breadcrumb-imenu-crumbs ()
   "Describe point inside the Imenu tree of current file."
   (when-let ((alist (bc--ipath-alist)))
-    (bc--summarize
-     (cl-loop for p in (bc-ipath alist (point))
-              collect (bc--format-node p))
-     bc-imenu-max-length
-     bc-imenu-crumb-separator)))
+    (when (cl-some #'identity alist)
+      (bc--summarize
+       (cl-loop for p in (bc-ipath alist (point))
+                collect (bc--format-node p))
+       bc-imenu-max-length
+       bc-imenu-crumb-separator))))
 
 (defun bc--summarize (crumbs cutoff separator)
   (let ((rcrumbs



reply via email to

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