docutils/tools/editors/emacs/tests/re.el

   1 ;; Tests for the regular expression builder
   2
   3 (add-to-list 'load-path ".")
   4 (load "ert-support" nil t)
   5
   6 (ert-deftest rst-re ()
   7   "Tests `rst-re'."
   8   (should (equal (rst-re "xy") "xy"))
   9   (should (equal (rst-re ?A) "A"))
  10   (should (equal (rst-re ?$) "\\$"))
  11   (should (equal (rst-re 'exm-tag) "\\.\\."))
  12   (should (equal (rst-re "xy" ?A ?$ 'exm-tag) "xyA\\$\\.\\."))
  13   (should (equal (rst-re '(:seq "xy" ?A ?$ exm-tag)) "xyA\\$\\.\\."))
  14   (should (equal (rst-re '(:shy "xy" ?A ?$ exm-tag)) "\\(?:xyA\\$\\.\\.\\)"))
  15   (should (equal (rst-re '(:grp "xy" ?A ?$ exm-tag)) "\\(xyA\\$\\.\\.\\)"))
  16   (should (equal (rst-re '(:alt "xy" ?A ?$ exm-tag))
  17                  "\\(?:xy\\|A\\|\\$\\|\\.\\.\\)"))
  18   (should (equal (rst-re '(:seq (:seq "xy" ?A ?$ exm-tag))) "xyA\\$\\.\\."))
  19   (should (equal (rst-re '(:grp (:alt "xy" ?A ?$ exm-tag)))
  20                  "\\(\\(?:xy\\|A\\|\\$\\|\\.\\.\\)\\)"))
  21   (should (equal (rst-re '(:alt (:grp "xy" ?A ?$ exm-tag)))
  22                  "\\(?:\\(xyA\\$\\.\\.\\)\\)"))
  23   (should (equal (rst-re '(:alt "xy" ?A) '(:grp ?$ exm-tag))
  24                  "\\(?:xy\\|A\\)\\(\\$\\.\\.\\)"))
  25   (should-error (rst-re '(:unknown "xy")))
  26   (should-error (rst-re [1]))
  27   )
  28
  29 (defun re-equal-modify-orig (orig loc refactored repls)
  30   (let ((case-fold-search nil))
  31     (while (string-match "\\[ \t]" orig)
  32       ;; Transpose horizontal whitespace
  33       (setq orig (replace-match "[\t ]" t nil orig)))
  34     (while (string-match "\\\\s \\*\\$" orig)
  35       ;; Replace symbolic whitespace
  36       (setq orig (replace-match "[\t ]*$" t nil orig)))
  37     (dolist (regex-repl repls)
  38       (if (string-match (car regex-repl) orig)
  39           (setq orig (replace-match (cdr regex-repl) t t orig))
  40         (error "Replacement regex /%s/ didn't match in '%s' for location '%s'"
  41                (car regex-repl) orig loc)))
  42     orig))
  43
  44
  45 (defun re-equal (orig loc refactored &rest repls)
  46   "Compare regex ORIG at location LOC to REFACTORED.
  47 REPLS starts with a list of cons cells telling where regex in car
  48 is replaced by cdr in ORIG."
  49   (equal (re-equal-modify-orig orig loc refactored repls) refactored))
  50
  51 (defun re-equal-explain (orig loc refactored &rest repls)
  52   (setq orig (re-equal-modify-orig orig loc refactored repls))
  53   (ert--explain-not-equal orig refactored))
  54
  55 (put 're-equal 'ert-explainer 're-equal-explain)
  56
  57 (defun re-check-matches (orig loc refactored s pairs)
  58   "Check matches and return those pairs which didn't work"
  59   (let ((case-fold-search nil)
  60         failed)
  61     (dolist (pair pairs failed)
  62       (let ((orig-mtc (if (string-match orig s)
  63                           (match-string (car pair) s)))
  64             (refa-mtc (if (string-match refactored s)
  65                           (match-string (cdr pair) s))))
  66         (if (not orig-mtc)
  67             (error "Original regex '%s' didn't match string '%s' for location '%s'"
  68                    orig s loc)
  69           (if (not refa-mtc)
  70               (error "Refactored regex '%s' didn't match string '%s' for location '%s'"
  71                      refactored s loc)
  72             (if (not (equal orig-mtc refa-mtc))
  73                 (push pair failed))))))))
  74
  75 (defun re-equal-matches (orig loc refactored matches &rest repls)
  76   "Like `re-equal'. However, if MATCHES is non-nil it must be a
  77 list with a string and cons cells each consisting of two numbers.
  78 For each cons cell the string is matched with ORIG and REFACTORED
  79 and the numbered matches are compared."
  80   (and (equal (re-equal-modify-orig orig loc refactored repls) refactored)
  81        (not (re-check-matches orig loc refactored
  82                               (car matches) (cdr matches)))))
  83
  84 (defun re-equal-matches-explain (orig loc refactored matches &rest repls)
  85   (if (not (equal (re-equal-modify-orig orig loc refactored repls) refactored))
  86       (apply 're-equal-explain orig loc refactored repls)
  87     (let (result)
  88       (dolist (failed (re-check-matches orig loc refactored
  89                                         (car matches) (cdr matches)) result)
  90         (push (list 'matchers-didnt-match (car failed) (cdr failed))
  91               result)))))
  92
  93 (put 're-equal-matches 'ert-explainer 're-equal-matches-explain)
  94
  95 (ert-deftest rst-re-refactoring ()
  96   "Test the refactorings done based on rst_el_1_68."
  97   ;; Any comment or string "=== rst.el.~rst_el_1_68~:..." gives the line number
  98   ;; of the refactored code in the original file for the previous expression.
  99   (let* ((rst-bullets
 100           '(?- ?* ?+))
 101          ;; === rst.el.~rst_el_1_68~:451
 102          (rst-re-bullets
 103           (format "\\([%s][ \t]\\)[^ \t]" (regexp-quote (concat rst-bullets))))
 104          ;; === rst.el.~rst_el_1_68~:1604
 105          ;; More parameters
 106          (c ?*)
 107          (len 10)
 108          (char ?+)
 109          (adornment "$$$$")
 110          (ado-re (regexp-quote adornment))
 111          (fromchar ?.)
 112          )
 113     (should (re-equal
 114              "^\\.\\. "
 115              "=== rst.el.~rst_el_1_68~:398"
 116              (rst-re "^" 'exm-sta)
 117              (cons " $" "[       ]+") ;; Any whitespace may follow
 118              ))
 119     (should (re-equal
 120              "^[ \t]*\\S *\\w\\S *"
 121              "=== rst.el.~rst_el_1_68~:567"
 122              (rst-re 'lin-beg "\\S *\\w\\S *")
 123              ))
 124     (should (re-equal
 125              "::[ \t]*$"
 126              "=== rst.el.~rst_el_1_68~:591"
 127              (rst-re 'dcl-tag 'lin-end)
 128              ))
 129     (should (re-equal
 130              "\\.\\.\\.[ \t]*$"
 131              "=== rst.el.~rst_el_1_68~:592"
 132              (rst-re 'ell-tag 'lin-end)
 133              ))
 134     (should (re-equal
 135              ".[ \t]*$"
 136              "=== rst.el.~rst_el_1_68~:594"
 137              (rst-re "." 'lin-end)
 138              ))
 139     (should (re-equal
 140              "^[ \t]+"
 141              "=== rst.el.~rst_el_1_68~:605"
 142              (rst-re 'hws-sta)
 143              (cons "^^" "") ;; No need to anchor for looking-at
 144              ))
 145     (should (re-equal
 146              "^[ \t]*$"
 147              "=== rst.el.~rst_el_1_68~:744"
 148              (rst-re 'lin-end)
 149              (cons "^^" "") ;; No need to anchor for looking-at
 150              ))
 151     (should (re-equal
 152              "^[ \t]*$"
 153              "=== rst.el.~rst_el_1_68~:1517"
 154              (rst-re 'lin-end)
 155              (cons "^^" "") ;; No need to anchor for looking-at
 156              ))
 157     (should (re-equal
 158              "^[ \t]*$"
 159              "=== rst.el.~rst_el_1_68~:1545"
 160              (rst-re 'lin-end)
 161              (cons "^^" "") ;; No need to anchor for looking-at
 162              ))
 163     (should (re-equal
 164              "^[ \t]*$"
 165              "=== rst.el.~rst_el_1_68~:1548"
 166              (rst-re 'lin-end)
 167              (cons "^^" "") ;; No need to anchor for looking-at
 168              ))
 169     (should (re-equal
 170              "[0-9]+"
 171              "=== rst.el.~rst_el_1_68~:1657"
 172              (rst-re 'num-tag)
 173              ))
 174     (should (re-equal
 175              "[IVXLCDMivxlcdm]+"
 176              "=== rst.el.~rst_el_1_68~:1661"
 177              (rst-re 'rom-tag)
 178              ))
 179     (should (re-equal
 180              "[IVXLCDMivxlcdm]+"
 181              "=== rst.el.~rst_el_1_68~:1677"
 182              (rst-re 'rom-tag)
 183              ))
 184     (should (re-equal
 185              "[a-zA-Z]"
 186              "=== rst.el.~rst_el_1_68~:1685"
 187              (rst-re 'ltr-tag)
 188              ))
 189     (should (re-equal
 190              "[ \t\n]*\\'"
 191              "=== rst.el.~rst_el_1_68~:1762"
 192              (rst-re "[ \t\n]*\\'")
 193              ))
 194     (should (re-equal
 195              "\\S .*\\S "
 196              "=== rst.el.~rst_el_1_68~:1767"
 197              (rst-re "\\S .*\\S ")
 198              ))
 199     (should (re-equal
 200              "[ \t]*$"
 201              "=== rst.el.~rst_el_1_68~:2066"
 202              (rst-re 'lin-end)
 203              ))
 204     (should (re-equal
 205              "[ \t]*$"
 206              "=== rst.el.~rst_el_1_68~:2366"
 207              (rst-re 'lin-end)
 208              ))
 209     (should (re-equal
 210              "^[ \t]*$"
 211              "=== rst.el.~rst_el_1_68~:2414"
 212              (rst-re 'lin-end)
 213              (cons "^^" "") ;; No need to anchor for looking-at
 214              ))
 215     (should (re-equal
 216              "[ \t]*$"
 217              "=== rst.el.~rst_el_1_68~:2610"
 218              (rst-re 'lin-end)
 219              ))
 220     (should (re-equal
 221              "[ \t]*$"
 222              "=== rst.el.~rst_el_1_68~:2612"
 223              (rst-re 'lin-end)
 224              ))
 225     (should (re-equal
 226              "[ \t]*$"
 227              "=== rst.el.~rst_el_1_68~:2645"
 228              (rst-re 'lin-end)
 229              ))
 230     (should (re-equal
 231              "[^ \t]\\|[ \t]*\\.\\.[^ \t]\\|.*::$"
 232              "=== rst.el.~rst_el_1_68~:3177"
 233              (rst-re '(:alt
 234                        "[^ \t]"
 235                        (:seq hws-tag exm-tag "[^ \t]")
 236                        (:seq ".*" dcl-tag lin-end)))
 237              (cons "^" "\\(?:") (cons "$" "\\)") ;; Add outermost shy group
 238              (cons "::\\$" "::[  ]*$") ;; Allow trailing space after double
 239                                        ;; colon
 240              ))
 241     (should (re-equal
 242              "\\s *$"
 243              "=== rst.el.~rst_el_1_68~:3209"
 244              (rst-re 'lin-end)
 245              ))
 246     (should (re-equal
 247              "^\\s *$"
 248              "=== rst.el.~rst_el_1_68~:3215"
 249              (rst-re 'linemp-tag)
 250              ))
 251     (should (re-equal
 252              "\\s *$"
 253              "=== rst.el.~rst_el_1_68~:3253"
 254              (rst-re 'lin-end)
 255              ))
 256     (should (re-equal
 257              "\\s *"
 258              "=== rst.el.~rst_el_1_68~:3256"
 259              (rst-re 'hws-tag)
 260              (cons "\\\\s \\*" "[\t ]*") ;; Replace symbolic by real whitespace
 261              ))
 262     (should (re-equal
 263              "\\s *$"
 264              "=== rst.el.~rst_el_1_68~:3261"
 265              (rst-re 'lin-end)
 266              ))
 267     (should (re-equal
 268              "\\s *"
 269              "=== rst.el.~rst_el_1_68~:3268"
 270              (rst-re 'hws-tag)
 271              (cons "\\\\s \\*" "[\t ]*") ;; Replace symbolic by real whitespace
 272              ))
 273     (should (re-equal
 274              (regexp-quote adornment)
 275              "=== rst.el.~rst_el_1_68~:3346"
 276              (rst-re (regexp-quote adornment))
 277              ))
 278     (should (re-equal
 279              "\\s *$"
 280              "=== rst.el.~rst_el_1_68~:3354"
 281              (rst-re 'lin-end)
 282              ))
 283     (should (re-equal
 284              "\\s *$"
 285              "=== rst.el.~rst_el_1_68~:3358"
 286              (rst-re 'lin-end)
 287              ))
 288     (should (re-equal
 289              "\\s *$"
 290              "=== rst.el.~rst_el_1_68~:3374"
 291              (rst-re 'lin-end)
 292              ))
 293     (should (re-equal
 294              (concat "\\(" ado-re "\\)\\s *$")
 295              "=== rst.el.~rst_el_1_68~:3377"
 296              (rst-re (list :grp
 297                            ado-re)
 298                      'lin-end)
 299              ))
 300     (should (re-equal
 301              (concat "\\(" ado-re "\\)\\s *$")
 302              "=== rst.el.~rst_el_1_68~:3393"
 303              (rst-re (list :grp
 304                            ado-re)
 305                      'lin-end)
 306              ))
 307     (should (re-equal
 308              (concat "^" (regexp-quote (string fromchar)) "+\\( *\\)$")
 309              "=== rst.el.~rst_el_1_68~:3590"
 310              (rst-re "^" fromchar "+\\( *\\)$")
 311              ))
 312     (should (re-equal
 313              "\f\\|>*[ \t]*$\\|>*[ \t]*[-+*] \\|>*[ \t]*[0-9#]+\\. "
 314              "=== rst.el.~rst_el_1_68~:391"
 315              (rst-re '(:alt
 316                        "\f"
 317                        lin-end
 318                        (:seq hws-tag itmany-sta-1)))
 319              (cons "^" "\\(?:") (cons "$" "\\)") ;; Add outermost shy group
 320              (cons (regexp-quote "[-+*] \\|>*[   ]*[0-9#]+\\. ")
 321                    "\\(\\(?:\\(?:\\(?:[a-zA-Z]\\|[0-9]+\\|[IVXLCDMivxlcdm]+\\|#\\)\\.\\|(?\\(?:[a-zA-Z]\\|[0-9]+\\|[IVXLCDMivxlcdm]+\\|#\\))\\)\\|[-*+\u2022\u2023\u2043]\\)\\)[         ]+"
 322                    ) ;; Now matches all items
 323              (cons ">\\*" "") ;; Remove ">" prefix
 324              (cons ">\\*" "") ;; Remove another ">" prefix
 325              (cons "\\[\t ]\\+" "\\(?:[\t ]+\\|$\\)") ;; Item tag needs no
 326                                                       ;; trailing whitespace
 327              ))
 328     (should (re-equal
 329              (format "[%s]+[ \t]*$" (char-to-string c))
 330              "=== rst.el.~rst_el_1_68~:587"
 331              (rst-re c "+" 'lin-end)
 332              (cons "\\[\\*]" "\\*") ;; Use quoting instead of char class
 333              ))
 334     (should (re-equal
 335              (concat "^"
 336                      (regexp-quote (make-string len char))
 337                      "$")
 338              "=== rst.el.~rst_el_1_68~:941"
 339              (rst-re "^" char (format "\\{%d\\}" len) "$")
 340              (cons "\\(\\\\\\+\\)\\{9\\}\\$"
 341                    "\\{10\\}$") ;; Use regex repeat instead of explicit repeat
 342              ))
 343     (should (re-equal
 344              (format "#.\\|[%s]"
 345                      (regexp-quote (concat rst-bullets)))
 346              "=== rst.el.~rst_el_1_68~:1653"
 347              (rst-re '(:alt
 348                        enmaut-tag
 349                        bul-tag))
 350              (cons "^" "\\(?:") (cons "$" "\\)") ;; Add outermost shy group
 351              (cons (regexp-quote "[-\\*\\+]")
 352                    "[-*+\u2022\u2023\u2043]") ;; Wrongly quoted characters in
 353                                               ;; class and more bullets
 354              (cons "#\\." "\\(?:#\\.\\|(?#)\\)") ;; Use all auto enumerators
 355              ))
 356     (should (re-equal
 357              "[a-zA-Z]+"
 358              "=== rst.el.~rst_el_1_68~:1672"
 359              (rst-re 'ltr-tag)
 360              (cons "\\+$" "") ;; Wrong in source
 361              ))
 362     (should (re-equal
 363              rst-re-bullets
 364              "=== rst.el.~rst_el_1_68~:1735"
 365              (rst-re 'bul-sta)
 366              (cons (regexp-quote "[-\\*\\+]")
 367                    "[-*+\u2022\u2023\u2043]") ;; Wrongly quoted characters in
 368                                               ;; class and more bullets
 369              (cons "\\[^ \t]" "") ;; Accept bullets without content
 370              (cons "^\\\\(" "") (cons "\\\\)" "") ;; Remove superfluous group
 371              (cons "$" "+") ;; Allow more whitespace
 372              (cons "\\[\t ]\\+" "\\(?:[\t ]+\\|$\\)") ;; Item tag needs no
 373                                                       ;; trailing whitespace
 374              ))
 375     (should (re-equal
 376              "^\\.\\. contents[ \t]*::\\(.*\\)\n\\([ \t]+:\\w+:.*\n\\)*\\.\\."
 377              "=== rst.el.~rst_el_1_68~:2056"
 378              (rst-re "^" 'exm-sta "contents" 'dcl-tag ".*\n"
 379                      "\\(?:" 'hws-sta 'fld-tag ".*\n\\)*" 'exm-tag)
 380              (cons " contents\\[\t ]\\*"
 381                    "[\t ]+contents") ;; Any whitespace before but no after
 382              (cons "\\\\(\\.\\*\\\\)" ".*") ;; Remove superfluous group
 383              (cons "\\\\(" "\\(?:") ;; Make group shy
 384              (cons ":\\\\w\\+:" ":\\(?:[^:\n]\\|\\\\:\\)+:") ;; Use improved
 385                                                              ;; field tag
 386              ))
 387     (should (re-equal
 388              "[ \t]+[^ \t]"
 389              "=== rst.el.~rst_el_1_68~:2065"
 390              (rst-re 'hws-sta "\\S ")
 391              (cons "\\[^ \t]" "\\S ") ;; Require non-whitespace instead
 392                                       ;; of only non-horizontal whitespace
 393              ))
 394     ))
 395
 396 (ert-deftest rst-re-refactoring-complicated ()
 397   "Try to test complicated refactorings done based on rst_el_1_68."
 398   :expected-result :failed ;; These have been reviewed logically and are ok
 399   (let* ((rst-bullets
 400           '(?- ?* ?+))
 401          ;; === rst.el.~rst_el_1_68~:451
 402          (rst-re-enumerator "\\(?:[a-zA-Z]\\|[0-9IVXLCDMivxlcdm]+\\)")
 403          ;; === rst.el.~rst_el_1_68~:1608
 404          (rst-re-enumerations
 405           (format "^[ \t]*\\(%s.\\|(?%s)\\)[ \t]"
 406                   rst-re-enumerator
 407                   rst-re-enumerator))
 408          ;; === rst.el.~rst_el_1_68~:1610
 409          (rst-re-items
 410           (format "^[ \t]*\\([%s]\\|\\(#\\|%s\\)\\.\\|(?%s)\\)[ \t]"
 411                   (regexp-quote (concat rst-bullets))
 412                   rst-re-enumerator
 413                   rst-re-enumerator))
 414          ;; === rst.el.~rst_el_1_68~:1616
 415          ;; More parameters
 416          (char ?+)
 417          )
 418     (should (re-equal
 419              rst-re-items
 420              "=== rst.el.~rst_el_1_68~:2718"
 421              (rst-re 'itmany-sta-1)
 422              (cons "^^\\[\t ]\\*" "") ;; Wrongly anchored at the beginning of
 423                                       ;; the line
 424              (cons (regexp-quote "\\(#\\|\\(?:[a-zA-Z]\\|[0-9IVXLCDMivxlcdm]+\\)\\)")
 425                    "\\(?:[a-zA-Z]\\|[0-9]+\\|[IVXLCDMivxlcdm]+\\|#\\)"
 426                    ) ;; Replace counter for "\\."
 427              (cons (regexp-quote "\\(?:[a-zA-Z]\\|[0-9IVXLCDMivxlcdm]+\\)")
 428                    "\\(?:[a-zA-Z]\\|[0-9]+\\|[IVXLCDMivxlcdm]+\\|#\\)"
 429                    ) ;; Replace counter for "(?)"
 430              (cons "$" "+") ;; Allow more whitespace
 431              (cons "^\\\\(" "\\(\\(?:") (cons "\\[\t ]\\+$" "\\)[\t ]+"
 432                                               ) ;; Add superfluous shy group
 433              (cons (regexp-quote "[-\\*\\+]\\|") "") ;; Remove wrongly quoted
 434                                                      ;; characters
 435              (cons (regexp-quote "\\)\\)[\t ]+")
 436                    "\\|[-*+\u2022\u2023\u2043]\\)\\)[\t ]+"
 437                    ) ;; Re-add bullets
 438              ))
 439     (should (re-equal
 440              rst-re-items
 441              "=== rst.el.~rst_el_1_68~:2724"
 442              (rst-re 'itmany-beg-1)
 443              ))
 444     (should (re-equal
 445              rst-re-items
 446              "=== rst.el.~rst_el_1_68~:1649"
 447              (rst-re 'itmany-beg-1)
 448              ))
 449     (should (re-equal
 450              rst-re-enumerations
 451              "=== rst.el.~rst_el_1_68~:1671"
 452              (rst-re 'enmexp-beg)
 453              ))
 454     (should (re-equal
 455              rst-re-items
 456              "=== rst.el.~rst_el_1_68~:1719"
 457              (rst-re 'itmany-beg-1)
 458              ))
 459     (should (re-equal
 460              (concat
 461               "\\(?:"
 462               "\\(\\(?:[0-9a-zA-Z#]\\{1,3\\}[.):-]\\|[*+-]\\)[ \t]+\\)[^ \t\n]"
 463               "\\|"
 464               (format "\\(%s%s+[ \t]+\\)[^ \t\n]"
 465                       (regexp-quote (char-to-string char))
 466                       (regexp-quote (char-to-string char)))
 467               "\\)")
 468              "=== rst.el.~rst_el_1_68~:2430"
 469              (rst-re
 470               `(:grp
 471                 (:alt
 472                  itmany-tag
 473                  (:seq ,(char-after) "\\{2,\\}"))
 474                 hws-sta)
 475               "\\S ")
 476              (cons "^\\\\(\\?:" "") (cons "\\\\)$" "") ;; Remove superfluous
 477                                                        ;; shy group
 478              (cons (regexp-quote "[0-9a-zA-Z#]\\{1,3\\}[.):-]\\|[*+-]")
 479                    "\\(\\(?:\\(?:\\(?:[a-zA-Z]\\|[0-9]+\\|[IVXLCDMivxlcdm]+\\|#\\)\\.\\|(?\\(?:[a-zA-Z]\\|[0-9]+\\|[IVXLCDMivxlcdm]+\\|#\\))\\)\\|[-*+\u2022\u2023\u2043]\\)\\)"
 480                    ) ;; Replace wrong item tag by correct one
 481              (cons (regexp-quote "\\+\\++")
 482                    "\\+\\{2,\\}") ;; Use regex repeat instead of explicit repeat
 483              (cons "\\[^ \t\n]" "\\S ") ;; Use symbolic non-whitespace
 484              (cons "\\[^ \t\n]" "\\S ") ;; Use symbolic non-whitespace again
 485              (cons "\\\\S " "") ;; Factor out symbolic non-whitespace
 486              ))
 487     ))
 488
 489 (ert-deftest rst-re-refactoring-font-lock ()
 490   "Test the refactorings in font-lock done based on rst_el_1_68."
 491   ;; Any comment or string "=== rst.el.~rst_el_1_68~:..." gives the line number
 492   ;; of the refactored code in the original file for the previous expression.
 493   (let* ((rst-use-char-classes t)
 494          (rst-use-unicode t)
 495          ;; horizontal white space
 496          (re-hws "[\t ]")
 497          ;; beginning of line with possible indentation
 498          (re-bol (concat "^" re-hws "*"))
 499          ;; Separates block lead-ins from their content
 500          (re-blksep1 (concat "\\(" re-hws "+\\|$\\)"))
 501          ;; explicit markup tag
 502          (re-emt "\\.\\.")
 503          ;; explicit markup start
 504          (re-ems (concat re-emt re-hws "+"))
 505          ;; inline markup prefix
 506          (re-imp1 (concat "\\(^\\|" re-hws "\\|[-'\"([{<"
 507                           (if rst-use-unicode
 508                               "\u2018\u201c\u00ab\u2019"
 509                             "")
 510                           "/:]\\)"))
 511          ;; inline markup suffix
 512          (re-ims1 (concat "\\(" re-hws "\\|[]-'\")}>"
 513                           (if rst-use-unicode
 514                               "\u2019\u201d\u00bb"
 515                             "")
 516                           "/:.,;!?\\]\\|$\\)"))
 517          ;; symbol character
 518          (re-sym1 "\\(\\sw\\|\\s_\\)")
 519          ;; inline markup content begin
 520          (re-imbeg2 "\\(\\S \\|\\S \\([^")
 521
 522          ;; There seems to be a bug leading to error "Stack overflow in regexp
 523          ;; matcher" when "|" or "\\*" are the characters searched for
 524          (re-imendbegbeg
 525           (if (< emacs-major-version 21)
 526               "]"
 527             "\\]\\|\\\\."))
 528          ;; inline markup content end
 529          (re-imendbeg (concat re-imendbegbeg "\\)\\{0,"
 530                            (format "%d" rst-max-inline-length)
 531                            "\\}[^\t "))
 532          (re-imendend "\\\\]\\)")
 533          ;; inline markup content without asterisk
 534          (re-ima2 (concat re-imbeg2 "*" re-imendbeg "*" re-imendend))
 535          ;; inline markup content without backquote
 536          (re-imb2 (concat re-imbeg2 "`" re-imendbeg "`" re-imendend))
 537          ;; inline markup content without vertical bar
 538          (re-imv2 (concat re-imbeg2 "|" re-imendbeg "|" re-imendend))
 539          ;; Supported URI schemes
 540          (re-uris1 "\\(acap\\|cid\\|data\\|dav\\|fax\\|file\\|ftp\\|gopher\\|http\\|https\\|imap\\|ldap\\|mailto\\|mid\\|modem\\|news\\|nfs\\|nntp\\|pop\\|prospero\\|rtsp\\|service\\|sip\\|tel\\|telnet\\|tip\\|urn\\|vemmi\\|wais\\)")
 541          ;; Line starting with adornment and optional whitespace; complete
 542          ;; adornment is in (match-string 1); there must be at least 3
 543          ;; characters because otherwise explicit markup start would be
 544          ;; recognized
 545          (re-ado2 (concat "^\\(\\(["
 546                           (if rst-use-char-classes
 547                               "^[:word:][:space:][:cntrl:]"
 548                             "^\\w \t\x00-\x1F")
 549                           "]\\)\\2\\2+\\)" re-hws "*$"))
 550          )
 551     (should (re-equal-matches
 552              ;; `Bullet Lists`_
 553              (concat re-bol "\\([-*+]" re-blksep1 "\\)")
 554              "=== rst.el.~rst_el_1_68~:3011"
 555              (rst-re 'lin-beg '(:grp bul-sta))
 556              (list "*"
 557                    (cons 1 1))
 558              (cons (regexp-quote "[-*+]")
 559                    "[-*+\u2022\u2023\u2043]") ;; More bullets
 560              (cons "\\\\(\\[\t " "\\(?:[\t ") ;; Make a group shy
 561              ))
 562     (should (re-equal-matches
 563              ;; `Enumerated Lists`_
 564              (concat re-bol "\\((?\\(#\\|[0-9]+\\|[A-Za-z]\\|[IVXLCMivxlcm]+\\)[.)]"
 565                      re-blksep1 "\\)")
 566              "=== rst.el.~rst_el_1_68~:3015"
 567              (rst-re 'lin-beg '(:grp enmany-sta))
 568              (list "  (#) Item"
 569                    (cons 1 1))
 570              (cons (regexp-quote
 571                     "(?\\(#\\|[0-9]+\\|[A-Za-z]\\|[IVXLCMivxlcm]+\\)[.)]")
 572                    "\\(?:\\(?:[a-zA-Z]\\|[0-9]+\\|[IVXLCDMivxlcdm]+\\|#\\)\\.\\|(?\\(?:[a-zA-Z]\\|[0-9]+\\|[IVXLCDMivxlcdm]+\\|#\\))\\)"
 573                    ) ;; Enumeration tags are more sophisticated
 574              (cons "\\\\(\\[\t " "\\(?:[\t ") ;; Make a group shy
 575              ))
 576     (should (re-equal-matches
 577              ;; `Field Lists`_
 578              (concat re-bol "\\(:[^:\n]+:\\)" re-blksep1)
 579              "=== rst.el.~rst_el_1_68~:3021"
 580              (rst-re 'lin-beg '(:grp fld-tag) 'bli-sfx)
 581              (list "  :some field: "
 582                    (cons 1 1))
 583              (cons "\\[^:\n]" "\\(?:[^:\n]\\|\\\\:\\)") ;; Field name more
 584                                                         ;; sophisticated
 585              (cons "\\\\(\\[\t " "\\(?:[\t ") ;; Make a group shy
 586              ))
 587     (should (re-equal-matches
 588              ;; `Option Lists`_
 589              (concat re-bol "\\(\\(\\(\\([-+/]\\|--\\)\\sw\\(-\\|\\sw\\)*"
 590                      "\\([ =]\\S +\\)?\\)\\(,[\t ]\\)?\\)+\\)\\($\\|[\t ]\\{2\\}\\)")
 591              "=== rst.el.~rst_el_1_68~:3025"
 592              (rst-re 'lin-beg '(:grp opt-tag (:shy optsep-tag opt-tag) "*")
 593                      '(:alt "$" (:seq hws-prt "\\{2\\}")))
 594              (list "  --len=length, -l length    Explanation"
 595                    (cons 1 1))
 596              (cons (regexp-quote "\\(\\(\\(\\([-+/]\\|--\\)\\sw\\(-\\|\\sw\\)*\\([ =]\\S +\\)?\\)\\(,[   ]\\)?\\)+\\)")
 597                    "\\(\\(?:\\(?:[-+/]\\|--\\)\\sw\\(?:-\\|\\sw\\)*\\(?:[ =]\\S +\\)?\\)\\(?:\\(?:,[     ]\\)\\(?:\\(?:[-+/]\\|--\\)\\sw\\(?:-\\|\\sw\\)*\\(?:[ =]\\S +\\)?\\)\\)*\\)"
 598                    ) ;; Option recognition more sophisticated
 599              (cons "\\\\(\\$" "\\(?:$") ;; Make a group shy
 600              ))
 601     (should (re-equal-matches
 602              ;; `Line Blocks`_
 603              (concat re-bol "\\(|" re-blksep1 "\\)[^|\n]*$")
 604              "=== rst.el.~rst_el_1_68~:3030"
 605              (rst-re 'lin-beg '(:grp "|" bli-sfx) "[^|\n]*$")
 606              (list "  | Some text"
 607                    (cons 1 1))
 608              (cons "\\\\(\\[\t " "\\(?:[\t ") ;; Make a group shy
 609              ))
 610     (should (re-equal-matches
 611              ;; `Footnotes`_ / `Citations`_
 612              (concat re-bol "\\(" re-ems "\\[[^[\n]+\\]\\)" re-blksep1)
 613              "=== rst.el.~rst_el_1_68~:3038"
 614              (rst-re 'lin-beg '(:grp exm-sta fnc-tag) 'bli-sfx)
 615              (list ".. [#]"
 616                    (cons 1 1))
 617              (cons "\\[^\\[" "[^]") ;; Error correction in old code
 618              (cons "\\\\]" "]") ;; Remove superfluous quote
 619              (cons "\\\\(\\[\t " "\\(?:[\t ") ;; Make a group shy
 620              ))
 621     (should (re-equal-matches
 622              ;; `Directives`_ / `Substitution Definitions`_
 623              (concat re-bol "\\(" re-ems "\\)\\(\\(|[^|\n]+|[\t ]+\\)?\\)\\("
 624                      re-sym1 "+::\\)" re-blksep1)
 625              "=== rst.el.~rst_el_1_68~:3042"
 626              (rst-re 'lin-beg '(:grp exm-sta)
 627                      '(:grp (:shy subdef-tag hws-sta) "?")
 628                      '(:grp sym-tag dcl-tag) 'bli-sfx)
 629              (list ".. |attr| replace:: val"
 630                    (cons 1 1)
 631                    (cons 2 2)
 632                    (cons 4 3))
 633              (cons "\\\\(|" "\\(?:|") ;; Make a group shy
 634              (cons "\\[^|\n]\\+" "\\(?:\\S \\|\\S \\(?:[^|\\\n]\\|\\\\.\\)\\{0,1000\\}[^         |\\]\\)"
 635                    ) ;; Symbol name more sophisticated
 636              (cons (regexp-quote "\\(\\sw\\|\\s_\\)+")
 637                    "\\(?:\\sw+\\(?:\\s_\\sw+\\)*\\)") ;; New syntax for symbols
 638              (cons "\\\\(\\[\t " "\\(?:[\t ") ;; Make a group shy
 639              ))
 640     (should (re-equal-matches
 641              ;; `Hyperlink Targets`_
 642              (concat re-bol "\\(" re-ems "_\\([^:\\`\n]\\|\\\\.\\|`[^`\n]+`\\)+:\\)"
 643                      re-blksep1)
 644              "=== rst.el.~rst_el_1_68~:3049"
 645              (rst-re 'lin-beg
 646                      '(:grp exm-sta "_" (:alt
 647                                          (:seq "`" ilcbkqdef-tag "`")
 648                                          (:seq (:alt "[^:\\\n]" "\\\\.") "+")) ":")
 649                      'bli-sfx)
 650              (list ".. _`some\\: target`:"
 651                    (cons 1 1))
 652              (cons (regexp-quote "\\([^:\\`\n]\\|\\\\.\\|`[^`\n]+`\\)+")
 653                    "\\(?:`\\(?:\\S \\|\\S \\(?:[^`\\\n]\\|\\\\.\\)\\{0,1000\\}[^         `\\]\\)`\\|\\(?:[^:\\\n]\\|\\\\.\\)+\\)"
 654                    ) ;; Hyperlink name recognition more sophisticated
 655              (cons "\\\\(\\[\t " "\\(?:[\t ") ;; Make a group shy
 656              ))
 657     (should (re-equal-matches
 658              ;; `Hyperlink Targets`_
 659              (concat re-bol "\\(__\\)" re-blksep1)
 660              "=== rst.el.~rst_el_1_68~:3053"
 661              (rst-re 'lin-beg '(:grp "__") 'bli-sfx)
 662              (list "  __"
 663                    (cons 1 1))
 664              (cons "\\\\(\\[\t " "\\(?:[\t ") ;; Make a group shy
 665              ))
 666     (should (re-equal-matches
 667              ;; `Strong Emphasis`_
 668              (concat re-imp1 "\\(\\*\\*" re-ima2 "\\*\\*\\)" re-ims1)
 669              "=== rst.el.~rst_el_1_68~:3062"
 670              (rst-re 'ilm-pfx '(:grp "\\*\\*" ilcast-tag "\\*\\*") 'ilm-sfx)
 671              (list "abc **def** ghi"
 672                    (cons 2 1))
 673              (cons "^\\\\(" "\\(?:") ;; Make a group shy
 674              (cons "\\\\(\\\\S" "\\(?:\\S") ;; Make a group shy
 675              (cons "\\\\(\\[^" "\\(?:[^") ;; Make a group shy
 676              (cons (regexp-quote "\\\\]") "\\]") ;; Remove superfluous quote
 677              (cons (regexp-quote "\\|$") "")
 678              (cons (regexp-quote "\\([\t ]")
 679                    "\\(?:$\\|[\t ]") ;; Move "$" in regex and make a group shy
 680              ))
 681     (should (re-equal-matches
 682              ;; `Emphasis`_
 683              (concat re-imp1 "\\(\\*" re-ima2 "\\*\\)" re-ims1)
 684              "=== rst.el.~rst_el_1_68~:3066"
 685              (rst-re 'ilm-pfx '(:grp "\\*" ilcast-tag "\\*") 'ilm-sfx)
 686              (list "*x*"
 687                    (cons 2 1))
 688              (cons "^\\\\(" "\\(?:") ;; Make a group shy
 689              (cons "\\\\(\\\\S" "\\(?:\\S") ;; Make a group shy
 690              (cons "\\\\(\\[^" "\\(?:[^") ;; Make a group shy
 691              (cons (regexp-quote "\\\\]") "\\]") ;; Remove superfluous quote
 692              (cons (regexp-quote "\\|$") "")
 693              (cons (regexp-quote "\\([\t ]")
 694                    "\\(?:$\\|[\t ]") ;; Move "$" in regex and make a group shy
 695              ))
 696     (should (re-equal-matches
 697              ;; `Inline Literals`_
 698              (concat re-imp1 "\\(``" re-imb2 "``\\)" re-ims1)
 699              "=== rst.el.~rst_el_1_68~:3070"
 700              (rst-re 'ilm-pfx '(:grp "``" ilcbkq-tag "``") 'ilm-sfx)
 701              (list "``co de``"
 702                    (cons 2 1))
 703              (cons "^\\\\(" "\\(?:") ;; Make a group shy
 704              (cons "\\\\(\\\\S" "\\(?:\\S") ;; Make a group shy
 705              (cons "\\\\(\\[^" "\\(?:[^") ;; Make a group shy
 706              (cons (regexp-quote "\\\\]") "\\]") ;; Remove superfluous quote
 707              (cons (regexp-quote "\\|$") "")
 708              (cons (regexp-quote "\\([\t ]")
 709                    "\\(?:$\\|[\t ]") ;; Move "$" in regex and make a group shy
 710              ))
 711     (should (re-equal-matches
 712              ;; `Inline Internal Targets`_
 713              (concat re-imp1 "\\(_`" re-imb2 "`\\)" re-ims1)
 714              "=== rst.el.~rst_el_1_68~:3074"
 715              (rst-re 'ilm-pfx '(:grp "_`" ilcbkq-tag "`") 'ilm-sfx)
 716              (list "_`Inline\ntarget`"
 717                    (cons 2 1))
 718              (cons "^\\\\(" "\\(?:") ;; Make a group shy
 719              (cons "\\\\(\\\\S" "\\(?:\\S") ;; Make a group shy
 720              (cons "\\\\(\\[^" "\\(?:[^") ;; Make a group shy
 721              (cons (regexp-quote "\\\\]") "\\]") ;; Remove superfluous quote
 722              (cons (regexp-quote "\\|$") "")
 723              (cons (regexp-quote "\\([\t ]")
 724                    "\\(?:$\\|[\t ]") ;; Move "$" in regex and make a group shy
 725              ))
 726     (should (re-equal-matches
 727              ;; `Hyperlink References`_
 728              (concat re-imp1 "\\(\\(`" re-imb2 "`\\|\\(\\sw\\(\\sw\\|-\\)+\\sw\\)\\)__?\\)" re-ims1)
 729              "=== rst.el.~rst_el_1_68~:3079"
 730              (rst-re 'ilm-pfx '(:grp (:alt (:seq "`" ilcbkq-tag "`")
 731                                            (:seq "\\sw" (:alt "\\sw" "-") "+\\sw"))
 732                                      "__?") 'ilm-sfx)
 733              (list "<`xxx`__>"
 734                    (cons 2 1))
 735              (cons "^\\\\(" "\\(?:") ;; Make a group shy
 736              (cons "\\\\(\\\\S" "\\(?:\\S") ;; Make a group shy
 737              (cons "\\\\(\\[^" "\\(?:[^") ;; Make a group shy
 738              (cons (regexp-quote "\\\\]") "\\]") ;; Remove superfluous quote
 739              (cons (regexp-quote "\\|$") "")
 740              (cons (regexp-quote "\\([\t ]")
 741                    "\\(?:$\\|[\t ]") ;; Move "$" in regex and make a group shy
 742              (cons "\\\\(`" "\\(?:`") ;; Make a group shy
 743              (cons "\\\\(\\\\sw" "\\sw")
 744              (cons "\\\\sw\\\\)" "\\sw") ;; Remove a group
 745              (cons "sw\\\\(\\\\sw" "sw\\(?:\\sw") ;; Make a group shy
 746              ))
 747     (should (re-equal-matches
 748              ;; `Interpreted Text`_
 749              (concat re-imp1 "\\(\\(:" re-sym1 "+:\\)?\\)\\(`" re-imb2 "`\\)\\(\\(:"
 750                      re-sym1 "+:\\)?\\)" re-ims1)
 751              "=== rst.el.~rst_el_1_68~:3083"
 752              (rst-re 'ilm-pfx '(:grp (:shy ":" sym-tag ":") "?")
 753                      '(:grp "`" ilcbkq-tag "`")
 754                      '(:grp (:shy ":" sym-tag ":") "?") 'ilm-sfx)
 755              (list "`Interpreted`"
 756                    (cons 2 1)
 757                    (cons 5 2)
 758                    (cons 8 3))
 759              (cons "^\\\\(" "\\(?:") ;; Make a group shy
 760              (cons "\\\\(\\\\S" "\\(?:\\S") ;; Make a group shy
 761              (cons "\\\\(\\[^" "\\(?:[^") ;; Make a group shy
 762              (cons "\\\\(:" "\\(?::") ;; Make a group shy
 763              (cons "\\\\(:" "\\(?::") ;; Make a group shy
 764              (cons (regexp-quote "\\(\\sw\\|\\s_\\)+")
 765                    "\\(?:\\sw+\\(?:\\s_\\sw+\\)*\\)") ;; New syntax for symbols
 766              (cons (regexp-quote "\\(\\sw\\|\\s_\\)+")
 767                    "\\(?:\\sw+\\(?:\\s_\\sw+\\)*\\)") ;; New syntax for symbols
 768              (cons (regexp-quote "\\\\]") "\\]") ;; Remove superfluous quote
 769              (cons (regexp-quote "\\|$") "")
 770              (cons (regexp-quote "\\([\t ]")
 771                    "\\(?:$\\|[\t ]") ;; Move "$" in regex and make a group shy
 772              ))
 773     (should (re-equal-matches
 774              ;; `Footnote References`_ / `Citation References`_
 775              (concat re-imp1 "\\(\\[[^]]+\\]_\\)" re-ims1)
 776              "=== rst.el.~rst_el_1_68~:3090"
 777              (rst-re 'ilm-pfx '(:grp fnc-tag "_") 'ilm-sfx)
 778              (list "[1]_"
 779                    (cons 2 1))
 780              (cons "^\\\\(" "\\(?:") ;; Make a group shy
 781              (cons "]]" "]\n]") ;; A reference may not contain \n
 782              (cons "\\\\]" "]") ;; Remove superfluous quote
 783              (cons (regexp-quote "\\|$") "")
 784              (cons (regexp-quote "\\([\t ]")
 785                    "\\(?:$\\|[\t ]") ;; Move "$" in regex and make a group shy
 786              ))
 787     (should (re-equal-matches
 788              ;; `Substitution References`_
 789              (concat re-imp1 "\\(|" re-imv2 "|\\)" re-ims1)
 790              "=== rst.el.~rst_el_1_68~:3094"
 791              (rst-re 'ilm-pfx '(:grp sub-tag) 'ilm-sfx)
 792              (list "|attr|"
 793                    (cons 2 1))
 794              (cons "^\\\\(" "\\(?:") ;; Make a group shy
 795              (cons "\\\\(\\\\S" "\\(?:\\S") ;; Make a group shy
 796              (cons (regexp-quote "\\([^|") "\\(?:[^|") ;; Make a group shy
 797              (cons "\\\\]" "]") ;; Remove superfluous quote
 798              (cons "\\\\]" "]") ;; Remove superfluous quote
 799              (cons "\\[^|]" "[^|\\]") ;; Improve recognition
 800              (cons (regexp-quote "\\|$") "")
 801              (cons (regexp-quote "\\([\t ]")
 802                    "\\(?:$\\|[\t ]") ;; Move "$" in regex and make a group shy
 803              ))
 804     (should (re-equal-matches
 805              ;; `Standalone Hyperlinks`_
 806              (concat re-imp1 "\\(" re-uris1 ":\\S +\\)" re-ims1)
 807              "=== rst.el.~rst_el_1_68~:3099"
 808              (rst-re 'ilm-pfx '(:grp uri-tag ":\\S +") 'ilm-sfx)
 809              (list "http://example.com/"
 810                    (cons 2 1))
 811              (cons "^\\\\(" "\\(?:") ;; Make a group shy
 812              (cons "\\\\(acap" "\\(?:acap") ;; Make a group shy
 813              (cons (regexp-quote "\\|$") "")
 814              (cons (regexp-quote "\\([\t ]")
 815                    "\\(?:$\\|[\t ]") ;; Move "$" in regex and make a group shy
 816              ))
 817     (should (re-equal-matches
 818              ;; `Standalone Hyperlinks`_
 819              (concat re-imp1 "\\(" re-sym1 "+@" re-sym1 "+\\)" re-ims1)
 820              "=== rst.el.~rst_el_1_68~:3102"
 821              (rst-re 'ilm-pfx '(:grp sym-tag "@" sym-tag ) 'ilm-sfx)
 822              (list "someone@example"
 823                    (cons 2 1))
 824              (cons "^\\\\(" "\\(?:") ;; Make a group shy
 825              (cons (regexp-quote "\\(\\sw\\|\\s_\\)+")
 826                    "\\(?:\\sw+\\(?:\\s_\\sw+\\)*\\)") ;; New syntax for symbols
 827              (cons (regexp-quote "\\(\\sw\\|\\s_\\)+")
 828                    "\\(?:\\sw+\\(?:\\s_\\sw+\\)*\\)") ;; New syntax for symbols
 829              (cons (regexp-quote "\\|$") "")
 830              (cons (regexp-quote "\\([\t ]")
 831                    "\\(?:$\\|[\t ]") ;; Move "$" in regex and make a group shy
 832              ))
 833     (should (re-equal
 834              ;; Sections_ / Transitions_
 835              re-ado2
 836              "=== rst.el.~rst_el_1_68~:3109"
 837              (rst-re 'ado-beg-2-1)
 838              (cons "\\^\\[:word:]\\[:space:]\\[:cntrl:]"
 839                    "]!\"#$%&'()*+,./:;<=>?@[\\^_`{|}~-") ;; Use real adornment
 840                                                          ;; characters
 841              (cons "2\\+" "{2,\\}") ;; Use repeat count
 842              ))
 843     (should (re-equal
 844              ;; `Comments`_
 845              (concat re-bol "\\(" re-ems "\\)\[^[|_\n]\\([^:\n]\\|:\\([^:\n]\\|$\\)\\)*$")
 846              "=== rst.el.~rst_el_1_68~:3128"
 847              (rst-re 'lin-beg '(:grp exm-sta) "[^\[|_\n]"
 848                      '(:alt "[^:\n]" (:seq ":" (:alt "[^:\n]" "$"))) "*$")
 849              (cons "\\\\(\\[^:" "\\(?:[^:") ;; Make a group shy
 850              (cons "\\\\(\\[^:" "\\(?:[^:") ;; Make a group shy
 851              ))
 852     (should (re-equal-matches
 853              ;; `Comments`_
 854              (concat re-bol "\\(" re-emt "\\)\\(\\s *\\)$")
 855              "=== rst.el.~rst_el_1_68~:3135"
 856              (rst-re 'lin-beg '(:grp exm-tag) '(:grp hws-tag) "$")
 857              (list ".. "
 858                    (cons 1 1)
 859                    (cons 2 2))
 860              (cons "\\\\s " "[\t ]") ;; Only horizontal space
 861              ))
 862     (should (re-equal-matches
 863              ;; `Literal Blocks`_
 864              (concat re-bol "\\(\\([^.\n]\\|\\.[^.\n]\\).*\\)?\\(::\\)$")
 865              "=== rst.el.~rst_el_1_68~:3145"
 866              (rst-re 'lin-beg '(:shy (:alt "[^.\n]" "\\.[^.\n]") ".*") "?"
 867                      '(:grp dcl-tag) "$")
 868              (list "Some text ::"
 869                    (cons 3 1))
 870              (cons "\\\\(\\\\(" "\\(?:\\(?:") ;; Make two groups shy
 871              ))
 872     (should (re-equal-matches
 873              ;; `Doctest Blocks`_
 874              (concat re-bol "\\(>>>\\|\\.\\.\\.\\)\\(.+\\)")
 875              "=== rst.el.~rst_el_1_68~:3154"
 876              (rst-re 'lin-beg '(:grp (:alt ">>>" ell-tag)) '(:grp ".+"))
 877              (list ">>> content"
 878                    (cons 1 1)
 879                    (cons 2 2))
 880              (cons ">>>" "\\(?:>>>") (cons "\\.\\\\)" ".\\)\\)") ;; Add a shy
 881                                                                  ;; group
 882              ))
 883     ))