[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/leaf cfa1047 32/46: add leaf-find-function-support to c
From: |
Stefan Monnier |
Subject: |
[elpa] externals/leaf cfa1047 32/46: add leaf-find-function-support to configure find-func integration |
Date: |
Mon, 15 Mar 2021 22:20:46 -0400 (EDT) |
branch: externals/leaf
commit cfa10472fe1fb6bd3b8b664726bc71e2449cacb3
Author: Naoya Yamashita <conao3@gmail.com>
Commit: Naoya Yamashita <conao3@gmail.com>
add leaf-find-function-support to configure find-func integration
---
leaf.el | 18 +++++++++++++-----
1 file changed, 13 insertions(+), 5 deletions(-)
diff --git a/leaf.el b/leaf.el
index 1493072..a974449 100644
--- a/leaf.el
+++ b/leaf.el
@@ -440,6 +440,19 @@ Ref: `lisp-imenu-generic-expression'."
lisp-imenu-generic-expression))))))
:group 'leaf)
+(defcustom leaf-find-function-support t
+ "If non-nil, enable `find-func' integrations.
+Ref: `find-function-regexp-alist'."
+ :type 'boolean
+ :set (lambda (sym value)
+ (set sym value)
+ (eval-after-load 'find-func
+ (if value
+ `(add-to-list 'find-function-regexp-alist '(leaf .
leaf-find-regexp))
+ `(setq find-function-regexp-alist
+ (delete '(leaf . leaf-find-regexp)
find-function-regexp-alist)))))
+ :group 'leaf)
+
;;;; General polyfill
@@ -740,11 +753,6 @@ see `alist-get'."
;;;; find-function
-(eval-after-load 'find-func
- (lambda ()
- (defvar find-function-regexp-alist)
- (add-to-list 'find-function-regexp-alist '(leaf . leaf-find-regexp))))
-
(defun leaf-find (name)
"Find the leaf block of NAME."
(interactive
- [elpa] externals/leaf f1746b8 41/46: use leaf-this-file instead of just ref load-file-name, (continued)
- [elpa] externals/leaf f1746b8 41/46: use leaf-this-file instead of just ref load-file-name, Stefan Monnier, 2021/03/15
- [elpa] externals/leaf 721319c 01/46: Add load-file-name in Warning, Stefan Monnier, 2021/03/15
- [elpa] externals/leaf 562885f 08/46: README: add documentation about the leaf-find, Stefan Monnier, 2021/03/15
- [elpa] externals/leaf c5ddde8 09/46: leaf-path: add test, Stefan Monnier, 2021/03/15
- [elpa] externals/leaf a82c47d 10/46: add :commands* keyword, Stefan Monnier, 2021/03/15
- [elpa] externals/leaf ad2d3ee 12/46: Merge pull request #472 from conao3/feature#471, Stefan Monnier, 2021/03/15
- [elpa] externals/leaf 2edf0fc 20/46: use eq to compare symbols, Stefan Monnier, 2021/03/15
- [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 <=
- [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, 2021/03/15
- [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