[Emacs-diffs] trunk r115104: * lisp/subr.el (version-regexp-alist):

[Bozhidar Batsov]

------------------------------------------------------------
revno: 115104
revision-id: address@hidden
parent: address@hidden
committer: Bozhidar Batsov <address@hidden>
branch nick: master
timestamp: Thu 2013-11-14 19:07:03 +0200
message:
  * lisp/subr.el (version-regexp-alist):
  Recognize hg, svn and darcs versions as 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-14 12:39:41 +0000
+++ b/lisp/ChangeLog    2013-11-14 17:07:03 +0000
@@ -1,5 +1,8 @@
 2013-11-14  Bozhidar Batsov  <address@hidden>
 
+       * 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.

=== modified file 'lisp/subr.el'
--- a/lisp/subr.el      2013-11-11 18:05:47 +0000
+++ b/lisp/subr.el      2013-11-14 17:07:03 +0000
@@ -4470,12 +4470,14 @@
 
 
 (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\",