bug#33871: 27.0.50; Revert Dired window saved in window configuration

[Juri Linkov]

>>    (set-window-parameter window 'dired-positions
>>      '((#<buffer *dired-1*> dired-file-1 window-point-1)
>>        (#<buffer *dired-2*> dired-file-2 window-point-2)
>>        ...))
>
> Something like that.  But I still fail to see what these lines are
> supposed to accomplish in your scenario:
>
>        (set-window-configuration w-c)
>        (goto-char p-m)))
>
> What is it 'dired-restore-positions' does not handle here?  IIUC your
> lines mangle everything it has done.

Instead of (goto-char p-m), after (set-window-configuration w-c)
something like this should be performed:

  (dired-goto-file (car (cdr (assoc (current-buffer)
                                    (window-parameter nil 'dired-positions)))))