bug-gnu-emacs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

bug#14742: 24.3.50; enhancement request: be able to prepend stuff from b


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





reply via email to

[Prev in Thread] Current Thread [Next in Thread]