[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/leaf fc8924d 27/46: add just eval-buffer, byte-compile
From: |
Stefan Monnier |
Subject: |
[elpa] externals/leaf fc8924d 27/46: add just eval-buffer, byte-compile situation |
Date: |
Mon, 15 Mar 2021 22:20:45 -0400 (EDT) |
branch: externals/leaf
commit fc8924dffb02001fdbb23639e937b7829ebcec67
Author: Naoya Yamashita <conao3@gmail.com>
Commit: Naoya Yamashita <conao3@gmail.com>
add just eval-buffer, byte-compile situation
---
leaf-tests.el | 5 +++--
leaf.el | 18 +++++++++++-------
2 files changed, 14 insertions(+), 9 deletions(-)
diff --git a/leaf-tests.el b/leaf-tests.el
index 710fb47..a0fbcf5 100644
--- a/leaf-tests.el
+++ b/leaf-tests.el
@@ -2203,8 +2203,9 @@ Example:
(leaf-init)))
((leaf-handler-leaf-path leaf)
- (when load-in-progress
- (add-to-list 'leaf--paths (cons 'leaf load-file-name))))))
+ (let ((file (or load-file-name buffer-file-name
byte-compile-current-file)))
+ (when file
+ (add-to-list 'leaf--paths (cons 'leaf file)))))))
(cort-deftest-with-macroexpand leaf/leaf-defun
'(((leaf annotate
diff --git a/leaf.el b/leaf.el
index 4f2b57e..76fe756 100644
--- a/leaf.el
+++ b/leaf.el
@@ -746,11 +746,12 @@ see `alist-get'."
(let* ((name (intern name))
(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))
- (when (cdr location)
- (goto-char (cdr location)))
- (run-hooks 'find-function-after-hook))))
+ (location (find-function-search-for-symbol name 'leaf path)))
+ (when location
+ (prog1 (pop-to-buffer (car location))
+ (when (cdr location)
+ (goto-char (cdr location)))
+ (run-hooks 'find-function-after-hook)))))
;;;; Key management
@@ -944,8 +945,11 @@ FN also accept list of FN."
(defmacro leaf-handler-leaf-path (name)
"Meta handler for :leaf-path for NAME."
- `(when load-in-progress
- (add-to-list 'leaf--paths (cons ',name load-file-name))))
+ `(let ((file (or load-file-name
+ buffer-file-name
+ byte-compile-current-file)))
+ (when file
+ (add-to-list 'leaf--paths (cons ',name file)))))
(defmacro leaf-handler-package (name pkg _pin)
"Handler ensure PKG via PIN in NAME leaf block."
- [elpa] externals/leaf 39e0359 37/46: Merge pull request #480 from conao3/feature#479, (continued)
- [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
- [elpa] externals/leaf bafd5c5a 18/46: move leaf-find-regexp definition, Stefan Monnier, 2021/03/15
- [elpa] externals/leaf cb35aac 34/46: Merge pull request #478 from conao3/feature#477, Stefan Monnier, 2021/03/15
- [elpa] externals/leaf 2d210be 24/46: expand :leaf-path keyword anytime but set suppress-keywords, Stefan Monnier, 2021/03/15
- [elpa] externals/leaf fbe9bfb 43/46: Merge pull request #468 from Z572/leaf-key-list-mode, Stefan Monnier, 2021/03/15
- [elpa] externals/leaf 38ef506 45/46: tagged v4.4.0, Stefan Monnier, 2021/03/15
- [elpa] externals/leaf 1695574 11/46: update document, tagged v4.3.4, Stefan Monnier, 2021/03/15
- [elpa] externals/leaf 005481d 28/46: tagged v4.3.6, Stefan Monnier, 2021/03/15
- [elpa] externals/leaf fc8924d 27/46: add just eval-buffer, byte-compile situation,
Stefan Monnier <=
- [elpa] externals/leaf fe1003f 39/46: align load-file-name, Stefan Monnier, 2021/03/15