From b29f5b7bf279a5e49bb3419ec6fec1aebd1162cc Mon Sep 17 00:00:00 2001 From: Vinicius Jose Latorre Date: Mon, 1 Nov 2010 23:50:22 -0200 Subject: [PATCH] Adjust doc. --- lisp/ChangeLog | 6 ++++++ lisp/subr.el | 20 ++++++++++---------- 2 files changed, 16 insertions(+), 10 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 77b7dd2e6d5..120b37a6f25 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2010-11-01 Vinicius Jose Latorre + + * subr.el (version-separator, version-regexp-alist): Remove '*' + from docstring. + (version-list-<=, version<=, version=): Doc fix. + 2010-11-01 Kenichi Handa * faces.el (glyphless-char): Inherit underline for tty. diff --git a/lisp/subr.el b/lisp/subr.el index 8c42e5bd66a..c9300ad9711 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -3593,18 +3593,18 @@ convenience wrapper around `make-progress-reporter' and friends. ;;;; Comparing version strings. (defconst version-separator "." - "*Specify the string used to separate the version elements. + "Specify the string used to separate the version elements. Usually the separator is \".\", but it can be any other string.") (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) + '(("^[-_+ ]?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)) - "*Specify association between non-numeric version and its priority. + "Specify association between non-numeric version and its priority. This association is used to handle version string like \"1.0pre2\", \"0.9alpha1\", etc. It's used by `version-to-list' (which see) to convert the @@ -3698,7 +3698,7 @@ See documentation for `version-separator' and `version-regexp-alist'." (setq al (cdr al))) (cond (al (push (cdar al) lst)) - ;; Convert 22.3a to 22.3.1. + ;; Convert 22.3a to 22.3.1, 22.3b to 22.3.2, etc. ((string-match "^[-_+ ]?\\([a-zA-Z]\\)$" s) (push (- (aref (downcase (match-string 1 s)) 0) ?a -1) lst)) @@ -3754,7 +3754,7 @@ turn is higher than (1 -2), which is higher than (1 -3)." "Return t if L1, a list specification of a version, is lower or equal to L2. Note that integer list (1) is equal to (1 0), (1 0 0), (1 0 0 0), -etc. That is, the trailing zeroes are irrelevant. Also, integer +etc. That is, the trailing zeroes are insignificant. Also, integer list (1) is greater than (1 -1) which is greater than (1 -2) which is greater than (1 -3)." (while (and l1 l2 (= (car l1) (car l2))) @@ -3796,7 +3796,7 @@ which is higher than \"1alpha\"." "Return t if version V1 is lower (older) than or equal to V2. Note that version string \"1\" is equal to \"1.0\", \"1.0.0\", \"1.0.0.0\", -etc. That is, the trailing \".0\"s are insignificant.. Also, version +etc. That is, the trailing \".0\"s are insignificant. Also, version string \"1\" is higher (newer) than \"1pre\", which is higher than \"1beta\", which is higher than \"1alpha\"." (version-list-<= (version-to-list v1) (version-to-list v2))) @@ -3805,7 +3805,7 @@ which is higher than \"1alpha\"." "Return t if version V1 is equal to V2. Note that version string \"1\" is equal to \"1.0\", \"1.0.0\", \"1.0.0.0\", -etc. That is, the trailing \".0\"s are insignificant.. Also, version +etc. That is, the trailing \".0\"s are insignificant. Also, version string \"1\" is higher (newer) than \"1pre\", which is higher than \"1beta\", which is higher than \"1alpha\"." (version-list-= (version-to-list v1) (version-to-list v2))) -- 2.39.5