; * lisp/emacs-lisp/shortdoc.el (regexp): less contrived rx example

diff --git a/lisp/emacs-lisp/shortdoc.el b/lisp/emacs-lisp/shortdoc.el
index 1231e799eddb1f2dd417a318e2a09fcb252f9fb9..59c8c7794cf46a5d60e84f1fc7351aeacbb24ab9 100644 (file)
--- a/lisp/emacs-lisp/shortdoc.el
+++ b/lisp/emacs-lisp/shortdoc.el
@@ -665,7 +665,7 @@ There can be any number of :example/:result elements."
    :eval (regexp-opt-charset '(?a ?b ?c ?d ?e)))
   "The `rx' Structured Regexp Notation"
   (rx
-   :eval (rx bol (| (* "f") (+ "o") (? "o")) (| digit space) (group "bar")))
+   :eval (rx "IP=" (+ digit) (= 3 "." (+ digit))))
   (rx-to-string
    :eval (rx-to-string '(| "foo" "bar")))
   (rx-define