From de37c4c06381078a7700a2d1f8e580baf738c92c Mon Sep 17 00:00:00 2001 From: Daniel Mendler Date: Thu, 23 Nov 2023 18:56:37 +0100 Subject: compat-tests: derived-mode-p with multiple arguments has been deprecated See Emacs master e6556db4200ccf28bd9bb033be0d5ce3cd2316a9 --- compat-tests.el | 19 +++++++------------ 1 file changed, 7 insertions(+), 12 deletions(-) diff --git a/compat-tests.el b/compat-tests.el index 13b400b..106a565 100644 --- a/compat-tests.el +++ b/compat-tests.el @@ -1206,24 +1206,19 @@ (put three 'derived-mode-parent two) (should (provided-mode-derived-p one one)) (should (provided-mode-derived-p two one)) + (should (provided-mode-derived-p two two)) (should (provided-mode-derived-p three one)) (should-not (provided-mode-derived-p one eins)) (should-not (provided-mode-derived-p two eins)) (should-not (provided-mode-derived-p two one.5)) - (should (provided-mode-derived-p two one.5 one)) - (should (provided-mode-derived-p two one.5 two)) - (should (provided-mode-derived-p three one.5 one)) - (should (provided-mode-derived-p three one.5 one two)) - (should (provided-mode-derived-p three one.5 two one)) - (should (provided-mode-derived-p three one.5 two one three)) - (should (provided-mode-derived-p three one.5 three two one)) + (should (provided-mode-derived-p three one)) + (should (provided-mode-derived-p three two)) + (should-not (provided-mode-derived-p three one.5)) (let ((major-mode three)) + (should-not (derived-mode-p one.5)) (should (derived-mode-p one)) - (should (derived-mode-p one.5 one)) - (should (derived-mode-p one.5 one two)) - (should (derived-mode-p one.5 two one)) - (should (derived-mode-p one.5 two one three)) - (should (derived-mode-p one.5 three two one))))) + (should (derived-mode-p two)) + (should (derived-mode-p three))))) (ert-deftest compat-format-prompt () (should-equal "Prompt: " (format-prompt "Prompt" nil)) -- cgit v1.0