diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2016-09-24 18:10:42 +0300 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2016-09-24 18:10:42 +0300 |
| commit | 5ee56c4613e9380dbbe4bbaa97b29dd377e2134c (patch) | |
| tree | f6e73dd63278de7976a029673c6f7060208bd0bc | |
| parent | 6ddcb0f10fb2b3c6c6a31733b28f7fbb30637ac2 (diff) | |
| download | emacs-5ee56c4613e9380dbbe4bbaa97b29dd377e2134c.tar.gz emacs-5ee56c4613e9380dbbe4bbaa97b29dd377e2134c.tar.bz2 emacs-5ee56c4613e9380dbbe4bbaa97b29dd377e2134c.zip | |
Fix 'dired-mark-extension' with prefix argument
* lisp/dired-x.el (dired-mark-extension): Allow to specify
MARKER-CHAR interactively as a string, not as a character's
codepoint. (Bug#24518)
* doc/misc/dired-x.texi (Advanced Mark Commands): Document the
behavior when invoked with a prefix arg.
| -rw-r--r-- | doc/misc/dired-x.texi | 3 | ||||
| -rw-r--r-- | lisp/dired-x.el | 14 |
2 files changed, 14 insertions, 3 deletions
diff --git a/doc/misc/dired-x.texi b/doc/misc/dired-x.texi index 474dd0a5208..2391852ca0f 100644 --- a/doc/misc/dired-x.texi +++ b/doc/misc/dired-x.texi @@ -710,7 +710,8 @@ variable @code{window-min-height}. @findex dired-mark-extension Mark all files with a certain extension for use in later commands. A @samp{.} is not automatically prepended to the string entered, you must type it -explicitly. +explicitly. If invoked with a prefix argument, this command asks for +a character to use as the marker. When called from Lisp, @var{extension} may also be a list of extensions and an optional argument @var{marker-char} specifies the marker used. diff --git a/lisp/dired-x.el b/lisp/dired-x.el index 41c2256ec6f..7d73c42befb 100644 --- a/lisp/dired-x.el +++ b/lisp/dired-x.el @@ -333,8 +333,18 @@ See also the functions: "Mark all files with a certain EXTENSION for use in later commands. A `.' is *not* automatically prepended to the string entered. EXTENSION may also be a list of extensions instead of a single one. -Optional MARKER-CHAR is marker to use." - (interactive "sMarking extension: \nP") +Optional MARKER-CHAR is marker to use. +Interactively, ask for EXTENSION, and if invoked with a prefix +argument, for MARKER-CHAR as well." + (interactive + (list (read-string "Marking extension: ") + (and current-prefix-arg + (let* ((dflt (char-to-string dired-marker-char)) + (input (read-string + (format + "Marker character to use (default %s): " dflt) + nil nil dflt))) + (aref input 0))))) (or (listp extension) (setq extension (list extension))) (dired-mark-files-regexp |