Re: [EXPERIMENTAL PATCH] Extending Isearch-repeat-forward/backward to support a prefix argument following suggesion by Juri Linkov

[Juri Linkov]

> Please try it out.

Thanks.  A few comments below:

> +    ;; Bring universal-argument and friends back in
> +    (define-key map "\C-u" 'universal-argument)
> +    (define-key map (kbd "C--") 'negative-argument)
> +    (define-key map (kbd "C-0") 'digit-argument)
> +    (define-key map (kbd "C-1") 'digit-argument)
> +    (define-key map (kbd "C-2") 'digit-argument)
> +    (define-key map (kbd "C-3") 'digit-argument)
> +    (define-key map (kbd "C-4") 'digit-argument)
> +    (define-key map (kbd "C-5") 'digit-argument)
> +    (define-key map (kbd "C-6") 'digit-argument)
> +    (define-key map (kbd "C-7") 'digit-argument)
> +    (define-key map (kbd "C-8") 'digit-argument)
> +    (define-key map (kbd "C-9") 'digit-argument)

> +    (define-key meta-map (kbd "-") 'negative-argument)
> +    (define-key meta-map (kbd "C--") 'negative-argument)
> +    (define-key meta-map (kbd "C-0") 'digit-argument)
> +    (define-key meta-map (kbd "C-1") 'digit-argument)
> +    (define-key meta-map (kbd "C-2") 'digit-argument)
> +    (define-key meta-map (kbd "C-3") 'digit-argument)
> +    (define-key meta-map (kbd "C-4") 'digit-argument)
> +    (define-key meta-map (kbd "C-5") 'digit-argument)
> +    (define-key meta-map (kbd "C-6") 'digit-argument)
> +    (define-key meta-map (kbd "C-7") 'digit-argument)
> +    (define-key meta-map (kbd "C-8") 'digit-argument)
> +    (define-key meta-map (kbd "C-9") 'digit-argument))

Instead of adding these keybindings, you can just set
`isearch-allow-scroll' to t.

Also there are plans to add a better variable `isearch-enable-prefix'
in 24.2, you can see more information at this link -
http://thread.gmane.org/gmane.emacs.devel/143829

> -(defun isearch-repeat-forward ()
> +(defun isearch-repeat-forward (arg)

> -(defun isearch-repeat-backward ()
> +(defun isearch-repeat-backward (arg)

Please use (&optional arg) for backward-compatibility.

> +                             (setq hint (number-to-string count))
> +                             (setq count (1+ count))
> +                             (set-text-properties 0 (length hint) '(face 
> lazy-highlight-hint) hint)
> +                             (overlay-put ov 'before-string hint)))

A suggestion by Tassilo to use superscripts looks good too,
but then these hints look like references to footnotes :-)