emacs-diffs
[Top][All Lists]
Advanced

[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



reply via email to

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