[Emacs-diffs] trunk r114904: * lisp/emacs-lisp/package.el (package-version-join): Recognize snapshot versions.

[Bozhidar Batsov]

------------------------------------------------------------
revno: 114904
revision-id: address@hidden
parent: address@hidden
committer: Bozhidar Batsov <address@hidden>
branch nick: trunk
timestamp: Sat 2013-11-02 12:55:22 +0200
message:
  * lisp/emacs-lisp/package.el (package-version-join): Recognize snapshot 
versions.
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-11-02 09:48:11 +0000
+++ b/lisp/ChangeLog    2013-11-02 10:55:22 +0000
@@ -1,5 +1,10 @@
 2013-11-02  Bozhidar Batsov  <address@hidden>
 
+       * emacs-lisp/package.el (package-version-join): Recognize
+       snapshot versions.
+
+2013-11-02  Bozhidar Batsov  <address@hidden>
+
        * subr.el (version-regexp-alist): Add support for snapshot versions.
 
 2013-11-02  Dmitry Gutov  <address@hidden>

=== modified file 'lisp/emacs-lisp/package.el'
--- a/lisp/emacs-lisp/package.el        2013-10-30 06:29:51 +0000
+++ b/lisp/emacs-lisp/package.el        2013-11-02 10:55:22 +0000
@@ -429,7 +429,7 @@
         ((>= 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 @@
                 (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))