[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/site-lisp 8a7f14a45e: Reset mtime of 'site-lisp-autoloa
From: |
ELPA Syncer |
Subject: |
[elpa] externals/site-lisp 8a7f14a45e: Reset mtime of 'site-lisp-autoload-file' after recursing |
Date: |
Fri, 8 Mar 2024 03:59:11 -0500 (EST) |
branch: externals/site-lisp
commit 8a7f14a45e62b3dd4672cf3094baeb58716df62d
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>
Reset mtime of 'site-lisp-autoload-file' after recursing
---
site-lisp.el | 42 +++++++++++++++++++++++-------------------
1 file changed, 23 insertions(+), 19 deletions(-)
diff --git a/site-lisp.el b/site-lisp.el
index a46715e119..cddf2e0d02 100644
--- a/site-lisp.el
+++ b/site-lisp.el
@@ -52,10 +52,6 @@
"Name of file to store autoload forms in."
:type 'string)
-(defcustom site-lisp-fixed-subdirectories '("progmode")
- "List of sub-directory names to traverse for code."
- :type '(repeat string))
-
(defcustom site-lisp-collect-recursivly nil
"Non-nil means that all files should be recursively scraped."
:type 'boolean)
@@ -83,22 +79,30 @@ of the list."
(interactive "DPrepare: ")
(if (listp dir)
(mapc #'site-lisp-prepare dir)
- (let ((backup-inhibited t)
- (start dir)
- (site-lisp--autoload-file
- (or (bound-and-true-p site-lisp--autoload-file)
- (expand-file-name site-lisp-autoload-file dir))))
- (dolist (dir (cons dir (directory-files dir t "^[^.]")))
+ (let* ((backup-inhibited t)
+ (site-lisp--autoload-file
+ (or (bound-and-true-p site-lisp--autoload-file)
+ (expand-file-name site-lisp-autoload-file dir)))
+ (old-modtime
+ ;; we check whatever the mtime of the autoload file was
+ ;; before we touched anything...
+ (file-attribute-modification-time
+ (file-attributes site-lisp--autoload-file))))
+ (dolist (dir (directory-files dir t "^[^.]"))
(when (file-directory-p dir)
- (if (member (file-name-nondirectory dir)
- site-lisp-fixed-subdirectories)
- (site-lisp-prepare dir)
- (add-to-list 'load-path dir)
- (site-lisp-generate-autoloads
- dir site-lisp--autoload-file)
- (when (and site-lisp-collect-recursivly
- (not (eq dir start)))
- (site-lisp-prepare dir)))))
+ (add-to-list 'load-path dir)
+ (site-lisp-generate-autoloads
+ dir site-lisp--autoload-file)
+ (when (and site-lisp-collect-recursivly)
+ (site-lisp-prepare dir))))
+ (add-to-list 'load-path dir)
+ ;; ... and reset that after returning from a possible recursive
+ ;; descent through the file system, so that we don't ignore
+ ;; files that are now "accidentally" older than the just updated
+ ;; auto-load file.
+ (set-file-times site-lisp--autoload-file old-modtime)
+ (site-lisp-generate-autoloads
+ dir site-lisp--autoload-file)
(byte-recompile-directory dir)
(load site-lisp--autoload-file nil t))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/site-lisp 8a7f14a45e: Reset mtime of 'site-lisp-autoload-file' after recursing,
ELPA Syncer <=