mirror of
https://github.com/correl/melpa.git
synced 2024-11-15 03:00:14 +00:00
exclude texi(nfo)?
files from the final archive
This commit is contained in:
parent
4cdf235762
commit
fecc3a31fa
1 changed files with 3 additions and 2 deletions
|
@ -683,7 +683,7 @@ file path and DEST is the relative path to which it should be copied."
|
|||
(cl-loop for (source-file . dest-file) in files
|
||||
for target-file = (concat (file-name-sans-extension dest-file)
|
||||
".info")
|
||||
if (and (string-match ".texi\\(nfo\\)?$" source-file)
|
||||
if (and (string-match ".texi\\(nfo\\)?$" dest-file)
|
||||
(not (file-exists-p target-file)))
|
||||
do (ignore-errors
|
||||
(pb/run-process
|
||||
|
@ -693,7 +693,8 @@ file path and DEST is the relative path to which it should be copied."
|
|||
"--force"
|
||||
"-o"
|
||||
(expand-file-name target-file
|
||||
target-dir)))))
|
||||
target-dir)))
|
||||
and do (delete-file (message (expand-file-name dest-file target-dir)))))
|
||||
|
||||
(defun pb/generate-dir-file (files target-dir)
|
||||
"Create dir file from any .info files listed in FILES in TARGET-DIR."
|
||||
|
|
Loading…
Reference in a new issue