[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
feature/package+vc e9504782fe 2/2: Have VC ignore auto generated files
From: |
Philip Kaludercic |
Subject: |
feature/package+vc e9504782fe 2/2: Have VC ignore auto generated files |
Date: |
Tue, 2 Aug 2022 11:40:47 -0400 (EDT) |
branch: feature/package+vc
commit e9504782fe0cb9c64348b0466dba67cad0547460
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>
Have VC ignore auto generated files
* package-vc.el (package-vc-unpack): Generate autoloads and ignore
have the VCS ignore them (along with package description file).
---
lisp/emacs-lisp/package-vc.el | 15 +++++++++++++--
1 file changed, 13 insertions(+), 2 deletions(-)
diff --git a/lisp/emacs-lisp/package-vc.el b/lisp/emacs-lisp/package-vc.el
index f5263d08b9..8b2b2f707d 100644
--- a/lisp/emacs-lisp/package-vc.el
+++ b/lisp/emacs-lisp/package-vc.el
@@ -135,8 +135,19 @@ The output is written out into PKG-FILE."
(package-download-transaction
(package-compute-transaction nil (delete-dups deps)))))
- (package-vc-generate-description-file
- pkg-desc (file-name-concat pkg-dir (package--description-file pkg-dir)))
+ (let ((default-directory pkg-dir)
+ (name (package-desc-name pkg-desc))
+ (pkg-file (expand-file-name (package--description-file pkg-dir)
pkg-dir)))
+ ;; Generate autoloads
+ (package-generate-autoloads name pkg-dir)
+ (vc-ignore (concat "/" (file-relative-name
+ (expand-file-name (format "%s-autoloads.el"
name))
+ default-directory)))
+
+ ;; Generate package file
+ (package-vc-generate-description-file pkg-desc pkg-file)
+ (vc-ignore (concat "/" (file-relative-name pkg-file default-directory))))
+
;; Update package-alist.
(let ((new-desc (package-load-descriptor pkg-dir)))
;; Activation has to be done before compilation, so that if we're