[nongnu] elpa/helm 4e99cc8ef6: Use non destructive change to dired-directory like in emacs-29

[ELPA Syncer]

branch: elpa/helm
commit 4e99cc8ef66aac2d824c456f58abe833be26c99d
Author: Thierry Volpiatto <thievol@posteo.net>
Commit: Thierry Volpiatto <thievol@posteo.net>

    Use non destructive change to dired-directory like in emacs-29
---
 helm-lib.el | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

diff --git a/helm-lib.el b/helm-lib.el
index f15cb18b3d..90b191a5d3 100644
--- a/helm-lib.el
+++ b/helm-lib.el
@@ -261,13 +261,14 @@ available APPEND is ignored."
                 ((and (consp dired-directory)
                       (cdr dired-directory)
                       files-renamed)
-                 (setcdr dired-directory
-                         ;; Replace in `dired-directory' files that have
-                         ;; been modified with their new name keeping
-                         ;; the ones that are unmodified at the same place.
-                         (cl-loop for f in (cdr dired-directory)
-                                  collect (or (assoc-default f files-renamed)
-                                              f)))))
+                 (setq dired-directory
+                       ;; Replace in `dired-directory' files that have
+                       ;; been modified with their new name keeping
+                       ;; the ones that are unmodified at the same place.
+                       (cons (car dired-directory)
+                             (cl-loop for f in (cdr dired-directory)
+                                      collect (or (assoc-default f 
files-renamed)
+                                                  f))))))
          ;; Re-sort the buffer if all went well.
          (unless (> errors 0) (revert-buffer))
          (let ((inhibit-read-only t))