|
From: | Juri Linkov |
Subject: | Re: Let's make C-M-w in isearch yank symbol, not delete character |
Date: | Sun, 11 Mar 2018 23:52:58 +0200 |
User-agent: | Gnus/5.13 (Gnus v5.13) Emacs/27.0.50 (x86_64-pc-linux-gnu) |
> 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? Supporting only commands which use the handle-shift-selection makes the most sense. I tested this to confirm it works as expected: diff --git a/lisp/isearch.el b/lisp/isearch.el index 84b121a..245bf8a 100644 --- a/lisp/isearch.el +++ b/lisp/isearch.el @@ -2433,8 +2448,8 @@ isearch-pre-command-hook (setq this-command 'isearch-edit-string)) ;; Don't terminate the search for motion commands. ((or (and (eq search-exit-option 'move) - (symbolp this-command) - (eq (get this-command 'isearch-move) t)) + (stringp (nth 1 (interactive-form this-command))) + (string-match-p "^^" (nth 1 (interactive-form this-command)))) (and (eq search-exit-option 'shift-move) this-command-keys-shift-translated)) (setq this-command-keys-shift-translated nil)
[Prev in Thread] | Current Thread | [Next in Thread] |