branch: externals/compat
commit bb25afc191d4884125c48e57ab319fb8d05c4625
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
Remove compat--internal-provided-mode-derived-p
---
compat-27.el | 3 +--
compat-29.el | 2 +-
2 files changed, 2 insertions(+), 3 deletions(-)
diff --git a/compat-27.el b/compat-27.el
index a57618b3e2..7c7bf509f3 100644
--- a/compat-27.el
+++ b/compat-27.el
@@ -395,7 +395,6 @@ where USER is a valid login name."
"Non-nil if MODE is derived from one of MODES.
Uses the `derived-mode-parent' property of the symbol to trace backwards.
If you just want to check `major-mode', use `derived-mode-p'."
- :realname compat--internal-provided-mode-derived-p
;; If MODE is an alias, then look up the real mode function first.
(let ((alias (symbol-function mode)))
(when (and alias (symbolp alias))
@@ -412,7 +411,7 @@ If you just want to check `major-mode', use
`derived-mode-p'."
(compat-defun derived-mode-p (&rest modes)
"Non-nil if the current major mode is derived from one of MODES.
Uses the `derived-mode-parent' property of the symbol to trace backwards."
- (apply #'compat--internal-provided-mode-derived-p major-mode modes))
+ (apply #'provided-mode-derived-p major-mode modes))
;;* UNTESTED
(compat-defmacro ignore-error (condition &rest body)
diff --git a/compat-29.el b/compat-29.el
index 2389ff9ee4..1042b5bf02 100644
--- a/compat-29.el
+++ b/compat-29.el
@@ -306,7 +306,7 @@ CONDITION is either:
(buffer-local-value 'major-mode buffer)
(cdr condition)))
((eq (car-safe condition) 'derived-mode)
- (compat--internal-provided-mode-derived-p
+ (provided-mode-derived-p
(buffer-local-value 'major-mode buffer)
(cdr condition)))
((eq (car-safe condition) 'not)
