emacs-elpa-diffs
[Top][All Lists]
Advanced

[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))))"



reply via email to

[Prev in Thread] Current Thread [Next in Thread]