github/melpa
1
0
Fork 0
mirror of https://github.com/correl/melpa.git synced 2024-11-15 03:00:14 +00:00
Code Issues Projects Releases Packages Wiki Activity

Better method of showing archive-contents after building recipe

Browse source 
This removes a redundant "changed on disk" prompt when the file is
already open.
This commit is contained in:
Steve Purcell 2013-06-02 10:54:05 +01:00
parent 8c2ffb5064
commit d89cc499c5
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
package-build.el
View file

@ -924,8 +924,9 @@ FILES is a list of (SOURCE . DEST) relative filepath pairs."
(let ((pkg-name (intern (file-name-nondirectory (buffer-file-name))))) (let ((pkg-name (intern (file-name-nondirectory (buffer-file-name)))))
(package-build-archive pkg-name) (package-build-archive pkg-name)
(save-current-buffer (save-current-buffer
(find-file-other-window (switch-to-buffer-other-window
(expand-file-name "archive-contents" package-build-archive-dir)) (find-file-noselect
(expand-file-name "archive-contents" package-build-archive-dir) t))
(revert-buffer t t)) (revert-buffer t t))
(when (yes-or-no-p "Install new package? ") (when (yes-or-no-p "Install new package? ")
(package-install-file (pb/find-package-file pkg-name))))) (package-install-file (pb/find-package-file pkg-name)))))