diff options
| author | Mattias Engdegård | 2024-04-29 12:35:55 +0200 |
|---|---|---|
| committer | Mattias Engdegård | 2024-04-29 14:29:53 +0200 |
| commit | 3be382311fa03b9ec9c571b5e5737ff2d51bc2d3 (patch) | |
| tree | 41d40c44fdf4a446e9707cc97138914c214cccb5 /test | |
| parent | f906ce5543818f2cba08dd2c7b94e4ba566ce64c (diff) | |
| download | emacs-3be382311fa03b9ec9c571b5e5737ff2d51bc2d3.tar.gz emacs-3be382311fa03b9ec9c571b5e5737ff2d51bc2d3.zip | |
Declare the variable `rx-constituents` obsolete.
It has been effectively obsolete since Emacs 27, when the modern
extension mechanism was introduced.
* lisp/emacs-lisp/rx.el (rx-constituents): Make obsolete.
* test/lisp/emacs-lisp/rx-tests.el (rx-constituents): Suppress warning.
* etc/NEWS: Announce.
Diffstat (limited to 'test')
| -rw-r--r-- | test/lisp/emacs-lisp/rx-tests.el | 25 |
1 files changed, 13 insertions, 12 deletions
diff --git a/test/lisp/emacs-lisp/rx-tests.el b/test/lisp/emacs-lisp/rx-tests.el index 072209bcbcc..1bb79f72671 100644 --- a/test/lisp/emacs-lisp/rx-tests.el +++ b/test/lisp/emacs-lisp/rx-tests.el | |||
| @@ -619,18 +619,19 @@ | |||
| 619 | "[^amz]\\S_")))) | 619 | "[^amz]\\S_")))) |
| 620 | 620 | ||
| 621 | (ert-deftest rx-constituents () | 621 | (ert-deftest rx-constituents () |
| 622 | (let ((rx-constituents | 622 | (with-suppressed-warnings ((obsolete rx-constituents)) |
| 623 | (append '((beta . gamma) | 623 | (let ((rx-constituents |
| 624 | (gamma . "a*b") | 624 | (append '((beta . gamma) |
| 625 | (delta . ((lambda (form) | 625 | (gamma . "a*b") |
| 626 | (regexp-quote (format "<%S>" form))) | 626 | (delta . ((lambda (form) |
| 627 | 1 nil symbolp)) | 627 | (regexp-quote (format "<%S>" form))) |
| 628 | (epsilon . delta)) | 628 | 1 nil symbolp)) |
| 629 | rx-constituents))) | 629 | (epsilon . delta)) |
| 630 | (should (equal (rx-to-string '(seq (+ beta) nonl gamma) t) | 630 | rx-constituents))) |
| 631 | "\\(?:a*b\\)+.\\(?:a*b\\)")) | 631 | (should (equal (rx-to-string '(seq (+ beta) nonl gamma) t) |
| 632 | (should (equal (rx-to-string '(seq (delta a b c) (* (epsilon d e))) t) | 632 | "\\(?:a*b\\)+.\\(?:a*b\\)")) |
| 633 | "\\(?:<(delta a b c)>\\)\\(?:<(epsilon d e)>\\)*")))) | 633 | (should (equal (rx-to-string '(seq (delta a b c) (* (epsilon d e))) t) |
| 634 | "\\(?:<(delta a b c)>\\)\\(?:<(epsilon d e)>\\)*"))))) | ||
| 634 | 635 | ||
| 635 | (ert-deftest rx-compat () | 636 | (ert-deftest rx-compat () |
| 636 | "Test old symbol retained for compatibility (bug#37517)." | 637 | "Test old symbol retained for compatibility (bug#37517)." |