procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Bozhidar Batsov 2013-11-02 12:55:22 +02:00
parent 684d71c6b4
commit d1c0ea6a18
2 changed files with 8 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/emacs-lisp/package.el
View file

@ -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))