|
From: | Stefan Monnier |
Subject: | bug#14742: 24.3.50; enhancement request: be able to prepend stuff from buffer when search backward |
Date: | Fri, 05 Jul 2013 18:59:16 -0400 |
User-agent: | Gnus/5.13 (Gnus v5.13) Emacs/24.3.50 (gnu/linux) |
> + ;; Handle a motion function. > + ((and isearch-allow-move > + (progn (setq key (isearch-reread-key-sequence-naturally > keylist)) > + (setq keylist (listify-key-sequence key)) > + (setq main-event (aref key 0)) > + (setq move-command (or > + (isearch-lookup-move-key key) > + (isearch-lookup-move-key > + ;; Use the last key in the sequence. > + (vector (aref key (1- (length > key))))))))) > + (setq prefix-arg arg) > + (let ((new-point (save-excursion > + (condition-case () > + (command-execute move-command) > + (error nil)) > + (point)))) > + ;; An alternative to move without yanking is (goto-char new-point) > + (isearch-yank-or-del (point) new-point)) > + (unless (eq (car-safe isearch-allow-move) 'only) > + (setq isearch-allow-move (cons 'only isearch-allow-move)))) Hmm... that still adds a crap load of code in this already too-long function. Can't we bring it down to something like + ((isearch-handle-motion-function <blabla>)) Stefan
[Prev in Thread] | Current Thread | [Next in Thread] |