From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sat, 4 Jun 2022 12:04:41 +0000 (+0200)
Subject: Fix failing shortdoc test
X-Git-Tag: emacs-29.0.90~1910^2~234
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d37d099ad7968ed9217599faa168571699fa03e4;p=emacs.git

Fix failing shortdoc test

* lisp/emacs-lisp/shortdoc.el (string): Each example section is
supposed to contain only examples of using the function in
question (as policed by the FAILED  shortdoc-examples test).
---

diff --git a/lisp/emacs-lisp/shortdoc.el b/lisp/emacs-lisp/shortdoc.el
index 5c94b06e767..92b9c1dd32e 100644
--- a/lisp/emacs-lisp/shortdoc.el
+++ b/lisp/emacs-lisp/shortdoc.el
@@ -260,16 +260,16 @@ A FUNC form can have any number of `:no-eval' (or `:no-value'),
    :no-manual t
    :eval (string-blank-p " \n"))
   (string-lessp
-   :eval (string-lessp "foo" "bar"))
+   :eval (string-lessp "foo" "bar")
+   :eval (string-lessp "pic4.png" "pic32.png")
+   :eval (string-lessp "1.1" "1 2"))
   (string-greaterp
    :eval (string-greaterp "foo" "bar"))
   (string-version-lessp
    :eval (string-version-lessp "pic4.png" "pic32.png")
-   :eval (string-lessp "pic4.png" "pic32.png"))
+   :eval (string-version-lessp "1.1" "1 2"))
   (string-collate-lessp
-   :eval (string-collate-lessp "1.1" "1 2")
-   :eval (string-version-lessp "1.1" "1 2")
-   :eval (string-lessp "1.1" "1 2"))
+   :eval (string-collate-lessp "1.1" "1 2"))
   (string-prefix-p
    :eval (string-prefix-p "foo" "foobar"))
   (string-suffix-p