Re: Let's make C-M-w in isearch yank symbol, not delete character

[Stefan Monnier]

> +  :set #'(lambda (sym val)
> +           (when (eq val 'move)
> +             (dolist (sym '(right-char right-word forward-char forward-word
> +                            forward-symbol forward-sexp next-line 
> move-end-of-line
> +                            left-char left-word backward-char backward-word
> +                            backward-symbol backward-sexp previous-line))
> +               (put sym 'isearch-move t)))
> +           (set-default sym val))

Why only set those properties in the :setter rather tan just do it at
top-level?  Also, would it be possible to avoid having to list those
commands and instead treat as `isearch-move` any command which uses the
handle-shift-selection?


        Stefan