[Emacs-diffs] /srv/bzr/emacs/trunk r110709: * lisp/emacs-lisp/package.el (package-generate-autoloads): Kill buffer

[Stefan Monnier]

------------------------------------------------------------
revno: 110709
author: Daniel Hackney <address@hidden>
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Sun 2012-10-28 16:41:49 -0400
message:
  * lisp/emacs-lisp/package.el (package-generate-autoloads): Kill buffer
  "PKGNAME-autoloads.el" in case we created it.
modified:
  lisp/ChangeLog
  lisp/emacs-lisp/package.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-10-28 19:07:52 +0000
+++ b/lisp/ChangeLog    2012-10-28 20:41:49 +0000
@@ -1,3 +1,8 @@
+2012-10-28  Daniel Hackney  <address@hidden>
+
+       * emacs-lisp/package.el (package-generate-autoloads): Kill buffer
+       "PKGNAME-autoloads.el" in case we created it.
+
 2012-10-28  Stefan Monnier  <address@hidden>
 
        * minibuffer.el (completion--sifn-requote): Rewrite to handle things

=== modified file 'lisp/emacs-lisp/package.el'
--- a/lisp/emacs-lisp/package.el        2012-10-25 12:38:09 +0000
+++ b/lisp/emacs-lisp/package.el        2012-10-28 20:41:49 +0000
@@ -590,7 +590,9 @@
         (version-control 'never))
     (unless (fboundp 'autoload-ensure-default-file)
       (package-autoload-ensure-default-file generated-autoload-file))
-    (update-directory-autoloads pkg-dir)))
+    (update-directory-autoloads pkg-dir)
+    (let ((buf (find-buffer-visiting generated-autoload-file)))
+      (when buf (kill-buffer buf)))))
 
 (defvar tar-parse-info)
 (declare-function tar-untar-buffer "tar-mode" ())