emacs-devel
[Top][All Lists]
Advanced

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

Re: Simple isearch concerns


From: Juri Linkov
Subject: Re: Simple isearch concerns
Date: Wed, 07 Apr 2021 19:36:32 +0300
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/28.0.50 (x86_64-pc-linux-gnu)

> +(put 'beginning-of-buffer 'isearch-match-scroll 'isearch-beginning-of-buffer)
> +(put 'end-of-buffer 'isearch-match-scroll 'isearch-end-of-buffer)
> +(put 'scroll-up-command 'isearch-match-scroll 'isearch-scroll-up)
> +(put 'scroll-down-command 'isearch-match-scroll 'isearch-scroll-down)
> ...
> +     ((and isearch-allow-match-scroll
> +           (symbolp this-command)
> +           (get this-command 'isearch-match-scroll))
> +      (setq this-command (get this-command 'isearch-match-scroll)))

As noted in another message, this is basically the same as:

  (define-key isearch-mode-map [remap beginning-of-buffer] 
'isearch-beginning-of-buffer)
  (define-key isearch-mode-map [remap end-of-buffer] 'isearch-end-of-buffer)
  (define-key isearch-mode-map [remap scroll-up-command] 'isearch-scroll-up)
  (define-key isearch-mode-map [remap scroll-down-command] 'isearch-scroll-down)



reply via email to

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