[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/leaf ce10d84 22/46: use mapcan for old Emacs<=27.1
From: |
Stefan Monnier |
Subject: |
[elpa] externals/leaf ce10d84 22/46: use mapcan for old Emacs<=27.1 |
Date: |
Mon, 15 Mar 2021 22:20:44 -0400 (EDT) |
branch: externals/leaf
commit ce10d8437590f8bdda189b0820e8c209d59fbe63
Author: Naoya Yamashita <conao3@gmail.com>
Commit: Naoya Yamashita <conao3@gmail.com>
use mapcan for old Emacs<=27.1
---
leaf.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/leaf.el b/leaf.el
index 8a9df24..46c2398 100644
--- a/leaf.el
+++ b/leaf.el
@@ -743,7 +743,7 @@ see `alist-get'."
(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 (eq name (car a)) (cdr
a))) leaf--paths)))
+ (paths (mapcan (lambda (elm) (when (eq name (car elm)) (list (cdr
elm)))) leaf--paths))
(path (if (= (length paths) 1) paths (list (completing-read "Select
one: " paths))))
(location (apply #'find-function-search-for-symbol name 'leaf path)))
(prog1 (pop-to-buffer (car location))
- [elpa] externals/leaf b07b728 16/46: Merge pull request #476 from conao3/feature#475, (continued)
- [elpa] externals/leaf b07b728 16/46: Merge pull request #476 from conao3/feature#475, Stefan Monnier, 2021/03/15
- [elpa] externals/leaf edb220a 23/46: use eval-after-load for old Emacs<=24.3, Stefan Monnier, 2021/03/15
- [elpa] externals/leaf 8d68ff9 30/46: Merge pull request #469 from Z572/find-func, Stefan Monnier, 2021/03/15
- [elpa] externals/leaf cfa1047 32/46: add leaf-find-function-support to configure find-func integration, Stefan Monnier, 2021/03/15
- [elpa] externals/leaf f0a1cf9 17/46: use backquote instead of cons, Stefan Monnier, 2021/03/15
- [elpa] externals/leaf a1442a8 29/46: Merge branch 'master' into find-func, Stefan Monnier, 2021/03/15
- [elpa] externals/leaf d0f9ceb 25/46: fix testcases, Stefan Monnier, 2021/03/15
- [elpa] externals/leaf b04f3ba 36/46: tagged v4.3.8, Stefan Monnier, 2021/03/15
- [elpa] externals/leaf bc78da0 38/46: Let the leaf-key-describe-bindings with a path, Stefan Monnier, 2021/03/15
- [elpa] externals/leaf 539758b 26/46: add testcases, Stefan Monnier, 2021/03/15
- [elpa] externals/leaf ce10d84 22/46: use mapcan for old Emacs<=27.1,
Stefan Monnier <=
- [elpa] externals/leaf 3e28eb0 31/46: fix list minor issue, Stefan Monnier, 2021/03/15
- [elpa] externals/leaf 641672c 35/46: expand leaf--paths initialize sexp, Stefan Monnier, 2021/03/15
- [elpa] externals/leaf 896da3e 44/46: fix leaf-find-regexp., Stefan Monnier, 2021/03/15
- [elpa] externals/leaf b1fe4f2 46/46: Merge pull request #481 from Z572/fix-leaf-find-regexp, Stefan Monnier, 2021/03/15
- [elpa] externals/leaf b64a2fa 40/46: fix test, Stefan Monnier, 2021/03/15
- [elpa] externals/leaf d6c12f1 33/46: tagged v4.3.7, Stefan Monnier, 2021/03/15
- [elpa] externals/leaf 1db35d4 19/46: format sexp, Stefan Monnier, 2021/03/15
- [elpa] externals/leaf 39e0359 37/46: Merge pull request #480 from conao3/feature#479, Stefan Monnier, 2021/03/15
- [elpa] externals/leaf 1ee956d 42/46: tagged v4.3.9, Stefan Monnier, 2021/03/15
- [elpa] externals/leaf 31e1fac 07/46: Added support to find the leaf block., Stefan Monnier, 2021/03/15