From: John Paul Wallington <jpw@pobox.com>
Date: Wed, 18 Dec 2002 05:16:09 +0000 (+0000)
Subject: (Info-dir-remove-duplicates): Avoid infloop when
X-Git-Tag: ttn-vms-21-2-B4~11977
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=250465030318621ed461d261e7807bf25b2f90b1;p=emacs.git

(Info-dir-remove-duplicates): Avoid infloop when
deleting last entry.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1ea289e4273..16a98504aca 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-12-18  John Paul Wallington  <jpw@shootybangbang.com>
+
+	* info.el (Info-dir-remove-duplicates): Avoid infloop when
+	deleting last entry.
+
 2002-12-17  Nick Roberts  <nick@nick.uklinux.net>
 
 	* gdb-ui.el (gdba-marker-filter, gdb-output-burst): Merge and
diff --git a/lisp/info.el b/lisp/info.el
index 53630bce3a3..05a56ef1c92 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -967,7 +967,7 @@ a case-insensitive match is tried."
 	  	(if (member-ignore-case x seen)
 	  	    (delete-region (match-beginning 0)
 	  			   (progn (re-search-forward "^[^ \t]" nil t)
-	  				  (goto-char (match-beginning 0))))
+	  				  (match-beginning 0)))
 	  	  (push x seen))))))))))
 
 ;; Note that on entry to this function the current-buffer must be the