* lisp/emacs-lisp/package.el (package-version-join): Recognize snapshot versions.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b2ba7d5e207ce28cd1ef84df2290c2401f93a741..8639cf4fbe3d0c7fb02d47d7baba80c917d0bc49 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2013-11-02  Bozhidar Batsov  <bozhidar@batsov.com>
+
+       * emacs-lisp/package.el (package-version-join): Recognize
+       snapshot versions.
+
 2013-11-02  Bozhidar Batsov  <bozhidar@batsov.com>
 
        * subr.el (version-regexp-alist): Add support for snapshot versions.

diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el
index 957c516f5d386e009b5de4b2f769666e984942f2..056bc9bd19b7ec84abcd15a814c3ea544a510c01 100644 (file)
--- a/lisp/emacs-lisp/package.el
+++ b/lisp/emacs-lisp/package.el
@@ -429,7 +429,7 @@ This is, approximately, the inverse of `version-to-list'.
         ((>= num 0)
          (push (int-to-string num) str-list)
          (push "." str-list))
-        ((< num -3)
+        ((< num -4)
          (error "Invalid version list `%s'" vlist))
         (t
          ;; pre, or beta, or alpha
@@ -439,7 +439,8 @@ This is, approximately, the inverse of `version-to-list'.
                 (error "Invalid version list `%s'" vlist)))
          (push (cond ((= num -1) "pre")
                      ((= num -2) "beta")
-                     ((= num -3) "alpha"))
+                     ((= num -3) "alpha")
+                      ((= num -4) "snapshot"))
                str-list))))
       (if (equal "." (car str-list))
          (pop str-list))