[elpa] externals/compat b35abb542d 1/3: Revert "compat-27: Drop obsolete `compat-call dired-get-marked-files'."

[ELPA Syncer]

branch: externals/compat
commit b35abb542d24fe0d137fef93910872a66601a3d5
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    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 3058e4dfe6..d27a731dd3 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 30aa97ca34..a2e47ca2bd 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>