From: "Drew Adams" <drew.adams@oracle.com>
To: <emacs-devel@gnu.org>
Subject: isearch.el patch for `M-e' to put point at mismatch position
Date: Mon, 16 May 2011 14:36:39 -0700 [thread overview]
Message-ID: <79A3EFE6965F48DC99409B8AC2363D2A@us.oracle.com> (raw)
[-- Attachment #1: Type: text/plain, Size: 442 bytes --]
The attached patch makes `M-e' (`isearch-edit-string') put point at the first
mismatch position (or the search-string end if no mismatch).
When you hit `M-e' you are ready to edit at the mismatch position. This makes
it easy to change or insert a char or two to make the string match. (`C-g', on
the other hand just removes all of the mismatch.)
(This feature complements the use of highlighting to show users where the
mismatch starts.)
[-- Attachment #2: isearch-2011-05-16.patch --]
[-- Type: application/octet-stream, Size: 1968 bytes --]
diff -cw isearch.el isearch-patched-2011-05-16.el
*** isearch.el Mon May 16 11:38:22 2011
--- isearch-patched-2011-05-16.el Mon May 16 14:21:04 2011
***************
*** 1060,1065 ****
--- 1060,1080 ----
(defvar minibuffer-history-symbol) ;; from external package gmhist.el
+ (defun isearch-fail-pos ()
+ "Position of first mismatch in search string, or its length if none."
+ (let ((cmds isearch-cmds)
+ succ-msg)
+ (if (and isearch-success (not isearch-error))
+ (length isearch-message)
+ (while (or (not (isearch-success-state (car cmds)))
+ (isearch-error-state (car cmds)))
+ (pop cmds))
+ (setq succ-msg (and cmds (isearch-message-state (car cmds))))
+ (if (and (stringp succ-msg) (< (length succ-msg) (length isearch-message))
+ (equal succ-msg (substring isearch-message 0 (length succ-msg))))
+ (length succ-msg)
+ 0))))
+
(defun isearch-edit-string ()
"Edit the search string in the minibuffer.
The following additional command keys are active while editing.
***************
*** 1139,1145 ****
(setq isearch-new-string
(read-from-minibuffer
(isearch-message-prefix nil nil isearch-nonincremental)
! isearch-string
minibuffer-local-isearch-map nil
(if isearch-regexp
(cons 'regexp-search-ring
--- 1154,1160 ----
(setq isearch-new-string
(read-from-minibuffer
(isearch-message-prefix nil nil isearch-nonincremental)
! (cons isearch-string (1+ (isearch-fail-pos)))
minibuffer-local-isearch-map nil
(if isearch-regexp
(cons 'regexp-search-ring
Diff finished. Mon May 16 14:23:06 2011
next reply other threads:[~2011-05-16 21:36 UTC|newest]
Thread overview: 12+ messages / expand[flat|nested] mbox.gz Atom feed top
2011-05-16 21:36 Drew Adams [this message]
2011-05-16 22:14 ` isearch.el patch for `M-e' to put point at mismatch position Juri Linkov
2011-05-16 22:37 ` Drew Adams
2011-05-17 3:08 ` Stefan Monnier
2011-05-27 20:54 ` Drew Adams
2011-05-28 1:27 ` Stefan Monnier
2011-09-10 11:54 ` Juri Linkov
2011-09-10 16:13 ` Drew Adams
2011-09-10 16:22 ` Drew Adams
2011-09-12 11:28 ` Juri Linkov
2011-09-12 14:58 ` Drew Adams
2011-09-14 16:08 ` Juri Linkov
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=79A3EFE6965F48DC99409B8AC2363D2A@us.oracle.com \
--to=drew.adams@oracle.com \
--cc=emacs-devel@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.