branch: externals/leaf
commit 1db35d452d2f42e65d7854ee463689d2880ba4cf
Author: Naoya Yamashita <[email protected]>
Commit: Naoya Yamashita <[email protected]>
format sexp
---
leaf.el | 7 ++-----
1 file changed, 2 insertions(+), 5 deletions(-)
diff --git a/leaf.el b/leaf.el
index 04ac5ca..ed274a5 100644
--- a/leaf.el
+++ b/leaf.el
@@ -732,15 +732,12 @@ see `alist-get'."
(with-eval-after-load 'find-func
(defvar find-function-regexp-alist)
- (add-to-list 'find-function-regexp-alist
- '(leaf . leaf-find-regexp)))
+ (add-to-list 'find-function-regexp-alist '(leaf . leaf-find-regexp)))
(defun leaf-find (name)
"Find the leaf block of NAME."
(interactive
- (list (completing-read
- "Find leaf: "
- (delete-dups (mapcar #'car leaf--paths)))))
+ (list (completing-read "Find leaf: " (delete-dups (mapcar #'car
leaf--paths)))))
(require 'find-func)
(let* ((name (intern name))
(paths (flatten-tree (mapcar (lambda (a) (when (equal name (car a))
(cdr a))) leaf--paths)))
