[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/leaf f1746b8 41/46: use leaf-this-file instead of just
From: |
Stefan Monnier |
Subject: |
[elpa] externals/leaf f1746b8 41/46: use leaf-this-file instead of just ref load-file-name |
Date: |
Mon, 15 Mar 2021 22:20:47 -0400 (EDT) |
branch: externals/leaf
commit f1746b8ba19c162e1a0b0a952bf4c5d0f5aef30a
Author: Naoya Yamashita <conao3@gmail.com>
Commit: Naoya Yamashita <conao3@gmail.com>
use leaf-this-file instead of just ref load-file-name
---
leaf.el | 8 +++++++-
1 file changed, 7 insertions(+), 1 deletion(-)
diff --git a/leaf.el b/leaf.el
index 65bde04..3c1c5f8 100644
--- a/leaf.el
+++ b/leaf.el
@@ -619,6 +619,12 @@ see `alist-get'."
(when load-file-name
(format " at `%s'" load-file-name))))
+(defun leaf-this-file ()
+ "Return path to this file."
+ (or load-file-name
+ (and (boundp 'byte-compile-current-file) byte-compile-current-file)
+ buffer-file-name))
+
;;;; General functions for leaf
@@ -817,7 +823,7 @@ For example:
(keymap* (eval keymap))
(mmap (or keymap* 'global-map))
(vecp (vectorp key*))
- (path load-file-name)
+ (path (leaf-this-file))
(_mvec (if (vectorp key*) key* (read-kbd-macro key*)))
(mstr (if (stringp key*) key* (key-description key*))))
`(let* ((old (lookup-key ,mmap ,(if vecp key `(kbd ,key))))
- [elpa] externals/leaf updated (ef0bdd4 -> b1fe4f2), Stefan Monnier, 2021/03/15
- [elpa] externals/leaf e0f84ad 05/46: tagged v4.3.3, Stefan Monnier, 2021/03/15
- [elpa] externals/leaf a314668 04/46: fix test, Stefan Monnier, 2021/03/15
- [elpa] externals/leaf 6e9a4cc 02/46: unify expression; use `in <leafname> block at <filename>`, Stefan Monnier, 2021/03/15
- [elpa] externals/leaf 86b4b85 03/46: implement leaf--create-custom-comment and use it, Stefan Monnier, 2021/03/15
- [elpa] externals/leaf e0c4b74 06/46: Merge pull request #467 from Z572/load-file-name, Stefan Monnier, 2021/03/15
- [elpa] externals/leaf f425433 14/46: Revert "add :commands* keyword", Stefan Monnier, 2021/03/15
- [elpa] externals/leaf 7936c2f 13/46: Revert "update document, tagged v4.3.4", Stefan Monnier, 2021/03/15
- [elpa] externals/leaf 7cce6cc 15/46: tagged v4.3.5, Stefan Monnier, 2021/03/15
- [elpa] externals/leaf e5c185e 21/46: handle no candidates situation, Stefan Monnier, 2021/03/15
- [elpa] externals/leaf f1746b8 41/46: use leaf-this-file instead of just ref load-file-name,
Stefan Monnier <=
- [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, 2021/03/15