mirror of
https://github.com/correl/melpa.git
synced 2024-11-14 19:19:32 +00:00
parent
6c536abcb5
commit
314674b9e6
1 changed files with 3 additions and 2 deletions
|
@ -718,6 +718,7 @@ for ALLOW-EMPTY to prevent this error."
|
||||||
Deletes the .texi(nfo) files if they exist."
|
Deletes the .texi(nfo) files if they exist."
|
||||||
(dolist (spec files)
|
(dolist (spec files)
|
||||||
(let* ((source-file (car spec))
|
(let* ((source-file (car spec))
|
||||||
|
(source-path (expand-file-name source-file source-dir))
|
||||||
(dest-file (cdr spec))
|
(dest-file (cdr spec))
|
||||||
(info-path (expand-file-name
|
(info-path (expand-file-name
|
||||||
(concat (file-name-sans-extension dest-file) ".info")
|
(concat (file-name-sans-extension dest-file) ".info")
|
||||||
|
@ -727,9 +728,9 @@ Deletes the .texi(nfo) files if they exist."
|
||||||
(with-current-buffer (get-buffer-create "*package-build-info*")
|
(with-current-buffer (get-buffer-create "*package-build-info*")
|
||||||
(ignore-errors
|
(ignore-errors
|
||||||
(pb/run-process
|
(pb/run-process
|
||||||
nil
|
(file-name-directory source-path)
|
||||||
"makeinfo"
|
"makeinfo"
|
||||||
(expand-file-name source-file source-dir)
|
source-path
|
||||||
"-o"
|
"-o"
|
||||||
info-path)
|
info-path)
|
||||||
(pb/message "Created %s" info-path))))
|
(pb/message "Created %s" info-path))))
|
||||||
|
|
Loading…
Reference in a new issue