branch: externals/compat
commit e18ee33e091c8ec76a4235a50d1711818688ff7f
Author: Philip Kaludercic <phil...@posteo.net>
Commit: Philip Kaludercic <phil...@posteo.net>
Remove redundant binding of load-file-name in compat-entwine
---
compat.el | 32 +++++++++++++++-----------------
1 file changed, 15 insertions(+), 17 deletions(-)
diff --git a/compat.el b/compat.el
index b4473b0831..1283f64684 100644
--- a/compat.el
+++ b/compat.el
@@ -57,23 +57,21 @@
((let* ((compat--generate-function 'compat--generate-minimal-no-prefix)
(file (format "compat-%d.el" version))
defs)
- (let ((load-file-name file))
- (with-temp-buffer
- (insert-file-contents file)
- (emacs-lisp-mode)
- (while (progn
- (forward-comment 1)
- (not (eobp)))
- (let ((form (read (current-buffer))))
- (when (memq (car-safe form)
- '(declare-function
- compat-defun
- compat-defmacro
- compat-advise
- compat-defvar
- defvar))
- (push form defs))))))
-
+ (with-temp-buffer
+ (insert-file-contents file)
+ (emacs-lisp-mode)
+ (while (progn
+ (forward-comment 1)
+ (not (eobp)))
+ (let ((form (read (current-buffer))))
+ (when (memq (car-safe form)
+ '(declare-function
+ compat-defun
+ compat-defmacro
+ compat-advise
+ compat-defvar
+ defvar))
+ (push form defs)))))
(let ((byte-compile-current-file file))
(macroexpand-all
(macroexp-progn
