[Emacs-diffs] trunk r114903: * subr.el (version-regexp-alist): Add support for snapshot versions.

[Bozhidar Batsov]

------------------------------------------------------------
revno: 114903
revision-id: address@hidden
parent: address@hidden
committer: Bozhidar Batsov <address@hidden>
branch nick: trunk
timestamp: Sat 2013-11-02 11:48:11 +0200
message:
  * subr.el (version-regexp-alist): Add support for snapshot versions.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/subr.el                   subr.el-20091113204419-o5vbwnq5f7feedwu-151

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-11-02 05:18:11 +0000
+++ b/lisp/ChangeLog    2013-11-02 09:48:11 +0000
@@ -1,3 +1,7 @@
+2013-11-02  Bozhidar Batsov  <address@hidden>
+
+       * subr.el (version-regexp-alist): Add support for snapshot versions.
+
 2013-11-02  Dmitry Gutov  <address@hidden>
 
        * progmodes/ruby-mode.el (ruby-smie--rule-parent-skip-assign): New

=== modified file 'lisp/subr.el'
--- a/lisp/subr.el      2013-10-30 02:14:16 +0000
+++ b/lisp/subr.el      2013-11-02 09:48:11 +0000
@@ -4478,11 +4478,12 @@
 
 
 (defconst version-regexp-alist
-  '(("^[-_+ ]?alpha$"           . -3)
-    ("^[-_+]$"                  . -3) ; treat "1.2.3-20050920" and "1.2-3" as 
alpha releases
-    ("^[-_+ ]cvs$"              . -3) ; treat "1.2.3-CVS" as alpha release
-    ("^[-_+ ]?beta$"            . -2)
-    ("^[-_+ ]?\\(pre\\|rcc\\)$" . -1))
+  '(("^[-_+ ]?snapshot$"              . -4)
+    ("^[-_+]$"                        . -4) ; treat "1.2.3-20050920" and 
"1.2-3" as snapshot releases
+    ("^[-_+ ]?\\(cvs\\|git\\|bzr\\)$" . -4) ; treat "1.2.3-CVS" as snapshot 
release
+    ("^[-_+ ]?alpha$"                 . -3)
+    ("^[-_+ ]?beta$"                  . -2)
+    ("^[-_+ ]?\\(pre\\|rcc\\)$"       . -1))
   "Specify association between non-numeric version and its priority.
 
 This association is used to handle version string like \"1.0pre2\",
@@ -4490,6 +4491,8 @@
 non-numeric part of a version string to an integer.  For example:
 
    String Version    Integer List Version
+   \"0.9snapshot\"     (0  9 -4)
+   \"1.0-git\"         (1  0 -4)
    \"1.0pre2\"         (1  0 -1 2)
    \"1.0PRE2\"         (1  0 -1 2)
    \"22.8beta3\"       (22 8 -2 3)
@@ -4546,6 +4549,8 @@
    \"0.9alpha1\"       (0  9 -3 1)
    \"0.9AlphA1\"       (0  9 -3 1)
    \"0.9alpha\"        (0  9 -3)
+   \"0.9snapshot\"     (0  9 -4)
+   \"1.0-git\"         (1  0 -4)
 
 See documentation for `version-separator' and `version-regexp-alist'."
   (or (and (stringp ver) (> (length ver) 0))