bug#9185: 24.0.50; "C-s M-p" does not bring the tip of the search ring

[Juri Linkov]

Severity: wishlist
Tags: patch

> So what do people think it would be more convenient?
>
> Isn't it more consistent with the behavior of M-p in other contexts?

Most importantly it will be more consistent with `C-s M-e M-p [M-p ...]'
The amount of typed M-p will be the same for the same previous search string.

So when people will agree, here is the patch:

Using parent branch file:///home/work/emacs/bzr/emacs/http-trunk/
=== modified file 'lisp/isearch.el'
--- lisp/isearch.el     2011-07-15 13:33:07 +0000
+++ lisp/isearch.el     2011-07-30 08:49:36 +0000
@@ -2071,7 +2086,7 @@ (defun isearch-ring-adjust1 (advance)
        ()
       (set yank-pointer-name
           (setq yank-pointer
-                (mod (+ (or yank-pointer 0)
+                (mod (+ (or yank-pointer (if advance 0 -1))
                         (if advance -1 1))
                      length)))
       (setq isearch-string (nth yank-pointer ring)