Mercurial > hg > xemacs-beta

diff lisp/isearch-mode.el @ 442:abe6d1db359e r21-2-36

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-36
author cvs
date Mon, 13 Aug 2007 11:35:02 +0200
parents 8de8e3f6228a
children 576fb035e263
line wrap: on
line diff
--- a/lisp/isearch-mode.el	Mon Aug 13 11:33:40 2007 +0200
+++ b/lisp/isearch-mode.el	Mon Aug 13 11:35:02 2007 +0200
@@ -1210,7 +1210,8 @@
       (set yank-pointer-name
 	   (setq yank-pointer
 		 (mod (+ (or yank-pointer 0)
-			 (if advance -1 1))
+			 ;; XEmacs change
+			 (if advance -1 (if yank-pointer 1 0)))
 		      length)))
       (setq isearch-string (nth yank-pointer ring)
 	    isearch-message (mapconcat 'isearch-text-char-description
@@ -1883,8 +1884,7 @@
   ;; buffer.
   (mapc #'delete-extent isearch-highlight-extents)
   (setq isearch-highlight-extents nil)
-  (setq isearch-highlight-all-start nil
-	isearch-window-end nil
+  (setq isearch-window-end nil
 	isearch-highlight-last-string nil))
 
 (defun isearch-highlight-all-update ()