* lisp/subr.el (version-regexp-alist):

Recognize hg, svn and darcs versions as snapshot versions.

2 files changed, 11 insertions, 6 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c9d767e5b7d..1177d14a6e9 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2013-11-14  Bozhidar Batsov  <bozhidar@batsov.com>
 
+        * subr.el (version-regexp-alist):
+        Recognize hg, svn and darcs versions as snapshot versions.
+
         * progmodes/ruby-mode.el (ruby-mode-set-encoding):
         Add the ability to always insert an utf-8 encoding comment.
         Fix and simplify coding comment update logic.
diff --git a/lisp/subr.el b/lisp/subr.el
index e8d3245ff10..612638fcf20 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -4470,12 +4470,14 @@ Usually the separator is \".\", but it can be any other string.")
 
 
 (defconst version-regexp-alist
-  '(("^[-_+ ]?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))
+  '(("^[-_+ ]?snapshot$"                                 . -4)
+    ;; treat "1.2.3-20050920" and "1.2-3" as snapshot releases
+    ("^[-_+]$"                                           . -4)
+    ;; treat "1.2.3-CVS" as snapshot release
+    ("^[-_+ ]?\\(cvs\\|git\\|bzr\\|svn\\|hg\\|darcs\\)$" . -4)
+    ("^[-_+ ]?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\",