bug#14931: 24.3; marking extensions with dired-x

[Glenn Morris]

"Dieter Wilhelm, H." wrote:

> dired-x does not mark lists of extension as advertised, please have a
> look at the following diff output.

It seems to work for me, and at first sight your patch does not look
right. I tried:

emacs-24.3 -Q -l dired-x
C-x d /path/to/lisp
M-: (dired-mark-extension '(".el" ".elc"))

> *** /appl/emacs-24.3/lisp/dired-x.el~    2013-01-01 21:37:17.000000000 +0100
> --- /appl/emacs-24.3/lisp/dired-x.el    2013-07-22 12:13:52.836582859 +0200
> ***************
> *** 335,344 ****
>     ;; EXTENSION may also be a list of extensions instead of a single one.
>     ;; Optional MARKER-CHAR is marker to use.
>     (interactive "sMarking extension: \nP")
> !   (or (listp extension)
> !       (setq extension (list extension)))
>     (dired-mark-files-regexp
> !    (concat ".";; don't match names with nothing but an extension
>              "\\("
>              (mapconcat 'regexp-quote extension "\\|")
>              "\\)$")
> --- 335,343 ----
>     ;; EXTENSION may also be a list of extensions instead of a single one.
>     ;; Optional MARKER-CHAR is marker to use.
>     (interactive "sMarking extension: \nP")
> !   (setq extension (split-string extension))
>     (dired-mark-files-regexp
> !    (concat "\\.";; don't match names with nothing but an extension
>              "\\("
>              (mapconcat 'regexp-quote extension "\\|")
>              "\\)$")