[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/compat 9b984aeb08 2/3: Drop unneeded definitions
From: |
ELPA Syncer |
Subject: |
[elpa] externals/compat 9b984aeb08 2/3: Drop unneeded definitions |
Date: |
Sat, 21 Jan 2023 11:57:28 -0500 (EST) |
branch: externals/compat
commit 9b984aeb088901fc8b238a5e52ae343ea1dac527
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>
Drop unneeded definitions
---
compat-25.el | 4 ----
compat-26.el | 16 ++++++++++++++++
compat-27.el | 55 -------------------------------------------------------
compat-28.el | 5 +++++
compat-29.el | 3 ---
compat-tests.el | 2 +-
compat.texi | 38 --------------------------------------
7 files changed, 22 insertions(+), 101 deletions(-)
diff --git a/compat-25.el b/compat-25.el
index 8414ada65d..305f94f4db 100644
--- a/compat-25.el
+++ b/compat-25.el
@@ -276,9 +276,5 @@ itself or not."
form))))))))
(t form)))
-;;;; Defined in byte-run.el
-
-(compat-defalias function-put put) ;; <compat-tests:function-put>
-
(provide 'compat-25)
;;; compat-25.el ends here
diff --git a/compat-26.el b/compat-26.el
index bdfb6e91dc..ad080f5f84 100644
--- a/compat-26.el
+++ b/compat-26.el
@@ -83,6 +83,22 @@ see `region-noncontiguous-p' and `extract-rectangle-bounds'."
;;;; Defined in subr.el
+(compat-defun provided-mode-derived-p (mode &rest modes) ;;
<compat-tests:provided-derived-mode-p>
+ "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'."
+ ;; If MODE is an alias, then look up the real mode function first.
+ (let ((alias (symbol-function mode)))
+ (when (and alias (symbolp alias))
+ (setq mode alias)))
+ (while
+ (and
+ (not (memq mode modes))
+ (let* ((parent (get mode 'derived-mode-parent))
+ (parentfn (symbol-function parent)))
+ (setq mode (if (and parentfn (symbolp parentfn)) parentfn parent)))))
+ mode)
+
(compat-defun alist-get (key alist &optional default remove testfn) ;;
<compat-tests:alist-get>
"Handle optional argument TESTFN."
:explicit t
diff --git a/compat-27.el b/compat-27.el
index 8c06a5aabb..ee7f89ec79 100644
--- a/compat-27.el
+++ b/compat-27.el
@@ -123,40 +123,6 @@ NOTE: This function is not as accurate as the actual
`time-equal-p'."
(< (abs (- (float-time t1) (float-time t2)))
(if (and t1 t2) 1e-6 1e-5)))))
-;;;; Defined in fileio.c
-
-(compat-defun file-name-absolute-p (filename) ;;
<compat-tests:file-name-absolute-p>
- "Return t if FILENAME is an absolute file name.
-On Unix, absolute file names start with `/'. In Emacs, an absolute
-file name can also start with an initial `~' or `~USER' component,
-where USER is a valid login name."
- ;; See definitions in filename.h
- (let ((drive
- (eval-when-compile
- (cond
- ((memq system-type '(windows-nt ms-dos))
- "\\`[A-Za-z]:[\\/]")
- ((eq system-type 'cygwin)
- "\\`\\([\\/]\\|[A-Za-z]:\\)")
- ("\\`/"))))
- (home
- (eval-when-compile
- (if (memq system-type '(cygwin windows-nt ms-dos))
- "\\`~[\\/]" "\\`~/")))
- (user-home
- (eval-when-compile
- (format "\\`\\(~.*?\\)\\(%s.*\\)?$"
- (if (memq system-type '(cygwin windows-nt ms-dos))
- "[\\/]" "/")))))
- (or (and (string-match-p drive filename) t)
- (and (string-match-p home filename) t)
- (save-excursion
- (when (string-match user-home filename)
- (let ((init (match-string 1 filename)))
- (not (string=
- (file-name-base (expand-file-name init))
- init))))))))
-
;;;; Defined in subr.el
(compat-defalias fixnump integerp) ;; <compat-tests:fixnump>
@@ -177,27 +143,6 @@ where USER is a valid login name."
body)))
(cons 'progn (nreverse body))))
-(compat-defun provided-mode-derived-p (mode &rest modes) ;;
<compat-tests:derived-mode-p>
- "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'."
- ;; If MODE is an alias, then look up the real mode function first.
- (let ((alias (symbol-function mode)))
- (when (and alias (symbolp alias))
- (setq mode alias)))
- (while
- (and
- (not (memq mode modes))
- (let* ((parent (get mode 'derived-mode-parent))
- (parentfn (symbol-function parent)))
- (setq mode (if (and parentfn (symbolp parentfn)) parentfn parent)))))
- mode)
-
-(compat-defun derived-mode-p (&rest modes) ;; <compat-tests:derived-mode-p>
- "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 #'provided-mode-derived-p major-mode modes))
-
(compat-defmacro ignore-error (condition &rest body) ;;
<compat-tests:ignore-error>
"Execute BODY; if the error CONDITION occurs, return nil.
Otherwise, return result of last form in BODY.
diff --git a/compat-28.el b/compat-28.el
index 2c56c786b6..e1527e7d92 100644
--- a/compat-28.el
+++ b/compat-28.el
@@ -799,5 +799,10 @@ function will never return nil."
((not text-quoting-style) 'grave)
(t 'curve)))
+;;;; Defined in button.el
+
+;; Obsolete Alias since 29
+(compat-defalias button-buttonize buttonize :obsolete t) ;;
<compat-tests:button-buttonize>
+
(provide 'compat-28)
;;; compat-28.el ends here
diff --git a/compat-29.el b/compat-29.el
index 1988df636f..6e5b93f223 100644
--- a/compat-29.el
+++ b/compat-29.el
@@ -1188,9 +1188,6 @@ Also see `buttonize'."
(add-text-properties start end (button--properties callback data help-echo))
(add-face-text-property start end 'button t))
-;; Obsolete Alias since 29
-(compat-defalias button-buttonize buttonize :obsolete t) ;;
<compat-tests:button-buttonize>
-
;;;; Defined in rmc.el
(compat-defun read-multiple-choice ;; <compat-tests:read-multiple-choice>
diff --git a/compat-tests.el b/compat-tests.el
index 431a7ffcc8..52d6d57315 100644
--- a/compat-tests.el
+++ b/compat-tests.el
@@ -1147,7 +1147,7 @@
(should-equal '((0 . zero) a (0 . zero)) (compat-call assoc-delete-all 0
(list (cons 0 'zero) (cons 1 'one) 'a (cons 0 'zero)) #'/=))
(should-equal '(a (0 . zero) (0 . zero)) (compat-call assoc-delete-all 0
(list 'a (cons 0 'zero) (cons 1 'one) (cons 0 'zero)) #'/=)))
-(ert-deftest derived-mode-p ()
+(ert-deftest provided-derived-mode-p ()
(let ((one (make-symbol "1"))
(two (make-symbol "2"))
(three (make-symbol "3"))
diff --git a/compat.texi b/compat.texi
index 60528cc3e5..1d5a4ffc7f 100644
--- a/compat.texi
+++ b/compat.texi
@@ -1281,13 +1281,6 @@ This function returns non-@code{nil} if @var{mode} is
derived from any
of the major modes given by the symbols @var{modes}.
@end defun
-@defun derived-mode-p &rest modes
-This function returns non-@code{nil} if the current major mode is
-derived from any of the major modes given by the symbols @var{modes}.
-
-@xref{Derived Modes,,,elisp}.
-@end defun
-
@c based on lispref/files.texi
@defun make-empty-file filename &optional parents
This function creates an empty file named @var{filename}. As
@@ -2013,37 +2006,6 @@ If native compilation is not available, this function
always returns
@code{nil}.
@end defun
-@c copied from lispref/files.texi
-@defun file-name-absolute-p filename
-This function returns @code{t} if file @var{filename} is an absolute
-file name, @code{nil} otherwise. A file name is considered to be
-absolute if its first component is @samp{~}, or is @samp{~@var{user}}
-where @var{user} is a valid login name. In the following examples,
-assume that there is a user named @samp{rms} but no user named
-@samp{nosuchuser}.
-
-@example
-@group
-(file-name-absolute-p "~rms/foo")
- @result{} t
-@end group
-@group
-(file-name-absolute-p "~nosuchuser/foo")
- @result{} nil
-@end group
-@group
-(file-name-absolute-p "rms/foo")
- @result{} nil
-@end group
-@group
-(file-name-absolute-p "/user/rms/foo")
- @result{} t
-@end group
-@end example
-
-@xref{Absolute and Relative File Names,,,elisp}.
-@end defun
-
@subsection Explicit Definitions
These functions must be called explicitly via @code{compat-call},
since their calling convention or behavior changed: