Commit d1c0ea6a authored by Bozhidar Batsov's avatar Bozhidar Batsov

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

parent 684d71c6
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.
......
......@@ -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))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment