Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
3585916f
Commit
3585916f
authored
Apr 05, 1993
by
Richard M. Stallman
Browse files
(dired-unmark-all-files): Read the arg as just a char.
parent
0cbe967f
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
5 additions
and
2 deletions
+5
-2
lisp/dired.el
lisp/dired.el
+5
-2
No files found.
lisp/dired.el
View file @
3585916f
...
...
@@ -1710,9 +1710,12 @@ OLD and NEW are both characters used to mark files."
(
defun
dired-unmark-all-files
(
flag
&optional
arg
)
"Remove a specific mark or any mark from every file.
With
an
arg, quer
ies
for each marked file.
With
prefix
arg, quer
y
for each marked file.
Type \\[help-command] at that time for help."
(
interactive
"sRemove mark: (default: all marks) \nP"
)
(
interactive
(
let*
((
cursor-in-echo-area
t
))
(
list
(
progn
(
message
"Remove marks (RET means all): "
)
(
read-char
))
current-prefix-arg
)))
(
let
((
count
0
)
(
re
(
if
(
zerop
(
length
flag
))
dired-re-mark
(
concat
"^"
(
regexp-quote
flag
)))))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment