diff options
| author | Bozhidar Batsov <bozhidar@batsov.com> | 2013-11-02 12:55:22 +0200 |
|---|---|---|
| committer | Bozhidar Batsov <bozhidar@batsov.com> | 2013-11-02 12:55:22 +0200 |
| commit | d1c0ea6a18fe23e880d2346f6578f667e9881de4 (patch) | |
| tree | d00b41e4fd2d1867afb7dbcc79602dc6dc43c586 /lisp/emacs-lisp | |
| parent | 684d71c6b4df5c250960310b376e7a2fa87b6e91 (diff) | |
| download | emacs-d1c0ea6a18fe23e880d2346f6578f667e9881de4.tar.gz emacs-d1c0ea6a18fe23e880d2346f6578f667e9881de4.tar.bz2 emacs-d1c0ea6a18fe23e880d2346f6578f667e9881de4.zip | |
* lisp/emacs-lisp/package.el (package-version-join): Recognize snapshot versions.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/package.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el index 957c516f5d3..056bc9bd19b 100644 --- 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)) |