diff options
| author | Mattias Engdegård | 2020-02-26 22:59:22 +0100 |
|---|---|---|
| committer | Mattias Engdegård | 2020-02-26 22:59:22 +0100 |
| commit | 3766bf728a43933083f4525970bcf9fdace3838d (patch) | |
| tree | 34f1a94f379bac2b2f6fa28866de6e30da1dbd7d /test/src | |
| parent | 8d5e8cddab732ac90e9ae930c63f7830f9dab24f (diff) | |
| download | emacs-3766bf728a43933083f4525970bcf9fdace3838d.tar.gz emacs-3766bf728a43933083f4525970bcf9fdace3838d.zip | |
Don't complain about the regexp "[:-:]"
Suggested by Clément Pit-Claudel.
* src/regex-emacs.c (regex_compile):
* test/src/regex-emacs-tests.el (regexp-invalid): Tolerate ranges.
Diffstat (limited to 'test/src')
| -rw-r--r-- | test/src/regex-emacs-tests.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/test/src/regex-emacs-tests.el b/test/src/regex-emacs-tests.el index 661d416e6a7..f1c703ab8bd 100644 --- a/test/src/regex-emacs-tests.el +++ b/test/src/regex-emacs-tests.el | |||
| @@ -806,6 +806,7 @@ This evaluates the TESTS test cases from glibc." | |||
| 806 | (ert-deftest regexp-invalid () | 806 | (ert-deftest regexp-invalid () |
| 807 | ;; relint suppression: Duplicated | 807 | ;; relint suppression: Duplicated |
| 808 | (should-error (string-match "[:space:]" "") | 808 | (should-error (string-match "[:space:]" "") |
| 809 | :type 'invalid-regexp)) | 809 | :type 'invalid-regexp) |
| 810 | (should (equal (string-match "[:-:]" "a-:") 2))) | ||
| 810 | 811 | ||
| 811 | ;;; regex-emacs-tests.el ends here | 812 | ;;; regex-emacs-tests.el ends here |