Mercurial > emacs
changeset 111315:bad40b05a0df
Adjust doc.
| author | Vinicius Jose Latorre <viniciusjl@ig.com.br |
|---|---|
| date | Mon, 01 Nov 2010 23:50:22 -0200 |
| parents | 1431aee91437 |
| children | c133fe92297f |
| files | lisp/ChangeLog lisp/subr.el |
| diffstat | 2 files changed, 16 insertions(+), 10 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Mon Nov 01 23:47:38 2010 +0000 +++ b/lisp/ChangeLog Mon Nov 01 23:50:22 2010 -0200 @@ -1,3 +1,9 @@ +2010-11-01 Vinicius Jose Latorre <viniciusjl@ig.com.br> + + * subr.el (version-separator, version-regexp-alist): Remove '*' + from docstring. + (version-list-<=, version<=, version=): Doc fix. + 2010-11-01 Kenichi Handa <handa@m17n.org> * faces.el (glyphless-char): Inherit underline for tty.
--- a/lisp/subr.el Mon Nov 01 23:47:38 2010 +0000 +++ b/lisp/subr.el Mon Nov 01 23:50:22 2010 -0200 @@ -3593,18 +3593,18 @@ ;;;; 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 @@ (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 @@ "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 @@ "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 @@ "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)))