[Emacs-diffs] trunk r113182: * lisp/emacs-lisp/package.el (package--add-to-archive-contents): Add missing

[Stefan Monnier]

------------------------------------------------------------
revno: 113182
revision-id: address@hidden
parent: address@hidden
fixes bug: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=14718
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Tue 2013-06-25 20:44:35 -0400
message:
  * lisp/emacs-lisp/package.el (package--add-to-archive-contents): Add missing
  nil to terminate the loop.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/emacs-lisp/package.el     package.el-20100617020707-ybavz666awsxwin6-2

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-06-25 22:29:01 +0000
+++ b/lisp/ChangeLog    2013-06-26 00:44:35 +0000
@@ -1,3 +1,8 @@
+2013-06-26  Stefan Monnier  <address@hidden>
+
+       * emacs-lisp/package.el (package--add-to-archive-contents): Add missing
+       nil terminate the loop (bug#14718).
+
 2013-06-25  Lars Magne Ingebrigtsen  <address@hidden>
 
        * net/eww.el: Rework history traversal.  When going forward/back,
@@ -24,7 +29,7 @@
 
 2013-06-25  Lars Magne Ingebrigtsen  <address@hidden>
 
-       * net/eww.el (eww-copy-page-url): Changed name of command.
+       * net/eww.el (eww-copy-page-url): Change name of command.
 
        * net/shr.el (shr-map): Change `shr-copy-url' from `u' to `w' to
        be more consistent with Info and dired.

=== modified file 'lisp/emacs-lisp/package.el'
--- a/lisp/emacs-lisp/package.el        2013-06-25 16:13:49 +0000
+++ b/lisp/emacs-lisp/package.el        2013-06-26 00:44:35 +0000
@@ -3,6 +3,7 @@
 ;; Copyright (C) 2007-2013 Free Software Foundation, Inc.
 
 ;; Author: Tom Tromey <address@hidden>
+;;         Daniel Hackney <address@hidden>
 ;; Created: 10 Mar 2007
 ;; Version: 1.0.1
 ;; Keywords: tools
@@ -924,7 +925,8 @@
                    (version-list-<
                     version (package-desc-version (cadr existing-packages))))
               (setq existing-packages (cdr existing-packages))
-            (push pkg-desc (cdr existing-packages))))))))
+            (push pkg-desc (cdr existing-packages))
+            nil))))))
 
 (defun package-download-transaction (packages)
   "Download and install all the packages in PACKAGES.