[MacPorts] #61128: Operation on files/dirs in dired mode lead to an error

[MacPorts]

#61128: Operation on files/dirs in dired mode lead to an error
--------------------+---------------------------
 Reporter:  lyskov  |      Owner:  (none)
     Type:  defect  |     Status:  new
 Priority:  Normal  |  Milestone:
Component:  ports   |    Version:  2.6.3
 Keywords:          |       Port:  emacs-mac-app
--------------------+---------------------------
 Emacs-mac-app version 8.0.0. If i try to copy file in dired mode i am
 getting following error message:

 {{{
 Values returned are normally absolute file names.
 Optional arg LOCALP as in `dired-get-filename'.
 Optional second argument ARG specifies files to use instead of marked.
  Usually ARG comes from the command's prefix arg.
  If ARG is an integer, use the next ARG files (previous -ARG, if < 0).
  If ARG is a cons with element 16, 64, or 256, corresponding to
   `C-u C-u', `C-u C-u C-u', or `C-u C-u C-u C-u', then use all files
   in the Dired buffer, where:
     16 includes NO directories (including `.' and `..')
     64 includes directories EXCEPT `.' and `..'
    256 includes ALL directories (including `.' and `..')
  If ARG is otherwise non-nil, use the current file.
 Optional third argument FILTER, if non-nil, is a function to select
  some of the files: those for which (funcall FILTER FILENAME) is
  non-nil.
 If DISTINGUISH-ONE-MARKED is non-nil, then return (t FILENAME) instead
  of (FILENAME), if only one file is marked.  Do not use non-nil
  DISTINGUISH-ONE-MARKED together with FILTER." (let ((all-of-them (save-
 excursion (prog1 (let ((inhibit-read-only t) (newarg arg) multi-C-u case-
 fold-search found results) (if (and (consp newarg) (> ... 4)) (progn (setq
 newarg ... multi-C-u t))) (if (and newarg (not multi-C-u)) (if (integerp
 newarg) (progn ... ...) (list ...)) (let (... next-position) (save-
 excursion ... ... ...) (if ... ...) (if found results ...)))) (dired-move-
 to-filename)))) result) (if (not filter) (if (and distinguish-one-marked
 (eq (car all-of-them) t)) all-of-them (nreverse all-of-them)) (let
 ((--dolist-tail-- all-of-them) file) (while --dolist-tail-- (setq file
 (car --dolist-tail--)) (if (funcall filter file) (progn (setq result (cons
 file result)))) (setq --dolist-tail-- (cdr --dolist-tail--)))) result))),
 5
 }}}

-- 
Ticket URL: <https://trac.macports.org/ticket/61128>
MacPorts <https://www.macports.org/>
Ports system for macOS