[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master b7f67d4: * lisp/emacs-lisp/macroexp.el (macroexp-file-name): Work
From: |
Stefan Monnier |
Subject: |
master b7f67d4: * lisp/emacs-lisp/macroexp.el (macroexp-file-name): Work in `eval-buffer` |
Date: |
Wed, 24 Feb 2021 17:16:05 -0500 (EST) |
branch: master
commit b7f67d432ba9d4a3247fa9553093ab1db82e00fe
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>
* lisp/emacs-lisp/macroexp.el (macroexp-file-name): Work in `eval-buffer`
Rely on `current-load-list` instead of `load-file-name`.
* lisp/emacs-lisp/bytecomp.el (byte-compile-close-variables):
Change the var we override accordingly.
---
lisp/emacs-lisp/bytecomp.el | 2 +-
lisp/emacs-lisp/macroexp.el | 6 +++++-
2 files changed, 6 insertions(+), 2 deletions(-)
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 26fab31..7aae8c0 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -1731,7 +1731,7 @@ It is too wide if it has any lines longer than the
largest of
;; This is used in `macroexp-file-name' to make sure that
;; loading file A which does (byte-compile-file B) won't
;; cause macro calls in B to think they come from A.
- (load-file-name nil)
+ (current-load-list (list nil))
)
,@body))
diff --git a/lisp/emacs-lisp/macroexp.el b/lisp/emacs-lisp/macroexp.el
index a6b0985..d52aee5 100644
--- a/lisp/emacs-lisp/macroexp.el
+++ b/lisp/emacs-lisp/macroexp.el
@@ -127,7 +127,11 @@ A non-nil result is expected to be reliable when called
from a macro in order
to find the file in which the macro's call was found, and it should be
reliable as well when used at the top-level of a file.
Other uses risk returning non-nil value that point to the wrong file."
- (or load-file-name (bound-and-true-p byte-compile-current-file)))
+ ;; `eval-buffer' binds `current-load-list' but not `load-file-name',
+ ;; so prefer using it over using `load-file-name'.
+ (let ((file (car (last current-load-list))))
+ (or (if (stringp file) file)
+ (bound-and-true-p byte-compile-current-file))))
(defvar macroexp--warned (make-hash-table :test #'equal :weakness 'key))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master b7f67d4: * lisp/emacs-lisp/macroexp.el (macroexp-file-name): Work in `eval-buffer`,
Stefan Monnier <=