branch: externals/compat
commit de37c4c06381078a7700a2d1f8e580baf738c92c
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
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 13b400b16c..106a565d4e 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))
