From b35abb542d24fe0d137fef93910872a66601a3d5 Mon Sep 17 00:00:00 2001 From: Daniel Mendler Date: Sat, 11 Feb 2023 18:00:49 +0100 Subject: Revert "compat-27: Drop obsolete `compat-call dired-get-marked-files'." This reverts commit e59e311d1ffc422f91e4e9c494598e978f5c2125. --- NEWS.org | 1 - compat-27.el | 13 +++++++++++++ 2 files changed, 13 insertions(+), 1 deletion(-) diff --git a/NEWS.org b/NEWS.org index 3058e4d..d27a731 100644 --- a/NEWS.org +++ b/NEWS.org @@ -6,7 +6,6 @@ that compilation of downstream packages works even if Compat itself is not compiled. Magit uses a complex continuous integration system, where Magit is compiled and tested, while the Compat dependency is not compiled. -- compat-27: Drop obsolete ~compat-call dired-get-marked-files~. - compat-28: Add ~process-lines-handling-status~ and ~process-lines-ignore-status~. * Release of "Compat" Version 29.1.3.3 diff --git a/compat-27.el b/compat-27.el index 30aa97c..a2e47ca 100644 --- a/compat-27.el +++ b/compat-27.el @@ -574,6 +574,19 @@ The return value is a string (or nil in case we can’t find it)." (or (lm-header "package-version") (lm-header "version"))))))))) +;;;; Defined in dired.el + +(compat-defun dired-get-marked-files + (&optional localp arg filter distinguish-one-marked error) + "Obsolete function." + :obsolete "The compatibility function has been made obsolete." + :feature dired + :extended t + (let ((result (dired-get-marked-files localp arg filter distinguish-one-marked))) + (if (and (null result) error) + (user-error (if (stringp error) error "No files specified")) + result))) + ;;;; Defined in time-date.el (compat-defun make-decoded-time ;; -- cgit v1.0