diff options
| author | Michal Nazarewicz <[email protected]> | 2014-06-05 16:39:18 +0200 |
|---|---|---|
| committer | Michal Nazarewicz <[email protected]> | 2014-06-05 16:39:18 +0200 |
| commit | 9342feecdd92b769b1f45a6feea8ad34985c5049 (patch) | |
| tree | 5be0d974eccfc0bb98effbe6735cb29271f13d69 /test | |
| parent | af9a3b28c0ca250ed245bd54c8737792916fe4c6 (diff) | |
tildify.el: Fix matched group indexes in end-regex building
* lisp/textmodes/tildifi.el (tildify-find-env): When looking for
a start of an ignore-environment, the regex is built by
concatenating regexes of all the environments configured in
`tildify-ignored-environments-alist'. So for example, the following
list could be used to match TeX's \verb and \verb* commands:
(("\\\\verb\\(.\\)" . (1))
("\\\\verb\\*\\(.\\)" . (1)))
This would result in the following regex being used to find the start
of any of the variants of the \verb command:
\\\\verb\\(.\\)\\|\\\\verb\\*\\(.\\)
But now, if “\\\\verb\\*\\(.\\)” matches, the first capture group
won't match anything, and thus (match-string 1) will be nil, which
will cause building of the end-matching regex to fail.
Fix this by using capture groups from the time when the opening
regexes are matched individually.
* tests/automated/tildify-tests.el (tildify-test-find-env-group-index-bug):
New test validating fix to the above bug.
Diffstat (limited to 'test')
| -rw-r--r-- | test/ChangeLog | 4 | ||||
| -rw-r--r-- | test/automated/tildify-tests.el | 12 |
2 files changed, 16 insertions, 0 deletions
diff --git a/test/ChangeLog b/test/ChangeLog index db32aae578..93ef0980c9 100644 --- a/test/ChangeLog +++ b/test/ChangeLog @@ -1,5 +1,9 @@ 2014-06-05 Michal Nazarewicz <[email protected]> + * automated/tildify-tests.el (tildify-test-find-env-group-index-bug): + New test checking end-regex building when multiple environment pairs + use integers to refer to capture groups. + * automated/tildify-tests.el (tildify-test-find-env-end-re-bug): New test checking end-regex building in `tildify-find-env' function when integers (denoting capture groups) and strings are mixed together. diff --git a/test/automated/tildify-tests.el b/test/automated/tildify-tests.el index 25e9f22adf..6fee28b386 100644 --- a/test/automated/tildify-tests.el +++ b/test/automated/tildify-tests.el @@ -112,6 +112,18 @@ latter is missing, SENTENCE will be used in all placeholder positions." (should (string-equal "end-foo" (tildify-find-env "foo\\|bar")))))) +(ert-deftest tildify-test-find-env-group-index-bug () + "Tests generation of match-string indexes" + (with-temp-buffer + (let ((tildify-ignored-environments-alist + `((,major-mode ("start-\\(foo\\|bar\\)" . ("end-" 1)) + ("open-\\(foo\\|bar\\)" . ("close-" 1))))) + (beg-re "start-\\(foo\\|bar\\)\\|open-\\(foo\\|bar\\)")) + (insert "open-foo whatever close-foo") + (goto-char (point-min)) + (should (string-equal "close-foo" (tildify-find-env beg-re)))))) + + (provide 'tildify-tests) ;;; tildify-tests.el ends here |