Revert "compat-27: Drop obsolete `compat-call dired-get-marked-files'."

This reverts commit e59e311d1ffc422f91e4e9c494598e978f5c2125.

2 files changed, 13 insertions, 1 deletions

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 ;; <compat-tests:make-decoded-time>