Always set load-true-file-name' where
load-file-name' is set too.
Fix bug#40620. * lisp/cus-dep.el (custom-make-dependencies): Set load-true-file-name. * lisp/emacs-lisp/package.el (package-quickstart-refresh): Likewise. * lisp/international/mule.el (load-with-code-conversion): Likewise. * lisp/loadup.el (load-true-file-name): Likewise.
This commit is contained in:
parent
8decfbe4d7
commit
8db8c851ad
5 changed files with 10 additions and 4 deletions
|
@ -167,7 +167,9 @@ expression, in which case we want to handle forms differently."
|
|||
define-inline cl-defun cl-defmacro cl-defgeneric
|
||||
cl-defstruct pcase-defmacro))
|
||||
(macrop car)
|
||||
(setq expand (let ((load-file-name file)) (macroexpand form)))
|
||||
(setq expand (let ((load-true-file-name file)
|
||||
(load-file-name file))
|
||||
(macroexpand form)))
|
||||
(memq (car expand) '(progn prog1 defalias)))
|
||||
(make-autoload expand file 'expansion)) ;Recurse on the expansion.
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue