[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/keycast a0d30dbf17 4/5: make: Improve creation of autoload
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/keycast a0d30dbf17 4/5: make: Improve creation of autoloads file |
Date: |
Fri, 22 Apr 2022 18:58:41 -0400 (EDT) |
branch: elpa/keycast
commit a0d30dbf177002be2deff56be3b60cce50450854
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>
make: Improve creation of autoloads file
---
Makefile | 40 +++++++++++++---------------------------
1 file changed, 13 insertions(+), 27 deletions(-)
diff --git a/Makefile b/Makefile
index 1514c6f80f..893f89c5fb 100644
--- a/Makefile
+++ b/Makefile
@@ -32,33 +32,19 @@ loaddefs: $(PKG)-autoloads.el
CLEAN = $(ELCS) $(PKG)-autoloads.el
clean:
- @printf "Cleaning...\n"
+ @printf " Cleaning...\n"
@rm -rf $(CLEAN)
-define LOADDEFS_TMPL
-;;; $(PKG)-autoloads.el --- automatically extracted autoloads
-;;
-;;; Code:
-(add-to-list 'load-path (directory-file-name \
-(or (file-name-directory #$$) (car load-path))))
-
-;; Local Variables:
-;; version-control: never
-;; no-byte-compile: t
-;; no-update-autoloads: t
-;; End:
-;;; $(PKG)-autoloads.el ends here
-endef
-export LOADDEFS_TMPL
-#'
-
$(PKG)-autoloads.el: $(ELS)
- @printf "Generating $@\n"
- @printf "%s" "$$LOADDEFS_TMPL" > $@
- @$(EMACS) -Q --batch --eval "(progn\
- (setq make-backup-files nil)\
- (setq vc-handled-backends nil)\
- (setq default-directory (file-truename default-directory))\
- (setq generated-autoload-file (expand-file-name \"$@\"))\
- (setq find-file-visit-truename t)\
- (update-directory-autoloads default-directory))"
+ @printf " Creating $@\n"
+ @$(EMACS) -Q --batch -l autoload -l cl-lib --eval "\
+(let ((file (expand-file-name \"$@\"))\
+ (autoload-timestamps nil) \
+ (backup-inhibited t)\
+ (version-control 'never)\
+ (coding-system-for-write 'utf-8-emacs-unix))\
+ (write-region (autoload-rubric file \"package\" nil) nil file nil 'silent)\
+ (cl-letf (((symbol-function 'progress-reporter-do-update) (lambda (&rest
_)))\
+ ((symbol-function 'progress-reporter-done) (lambda (_))))\
+ (let ((generated-autoload-file file))\
+ (update-directory-autoloads default-directory))))"