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

Recognize hg, svn and darcs versions as snapshot versions.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c9d767e5b7dccfe1cc46006e290736096999c823..1177d14a6e9a6d920f6b63369dd3829c77895fab 100644 (file)
--- 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 e8d3245ff104b7ca61c2e6081d128762f9d7f98b..612638fcf20d38c6f8c3ff1430c4d8e1c366fee8 100644 (file)
--- 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\",