From 0d5363c4cdc0de80137744f2c2445606042cf2cd Mon Sep 17 00:00:00 2001 From: Bozhidar Batsov Date: Thu, 14 Nov 2013 19:07:03 +0200 Subject: [PATCH] * lisp/subr.el (version-regexp-alist): Recognize hg, svn and darcs versions as snapshot versions. --- lisp/ChangeLog | 3 +++ lisp/subr.el | 14 ++++++++------ 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 + * 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\", -- 2.39.2