[MacPorts] #61128: Operation on files/dirs in dired mode lead to an error
MacPorts
noreply at macports.org
Sat Sep 5 18:41:27 UTC 2020
#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
More information about the macports-tickets
mailing list