# HG changeset patch
# User John Paul Wallington <jpw@pobox.com>
# Date 1040188569 0
# Node ID e846f8d1619c2a82c4dbc2724188379b5e07772b
# Parent  f016200d5069f0b4d1b65a4d2b94c62b381f8f1a
(Info-dir-remove-duplicates): Avoid infloop when
deleting last entry.

diff -r f016200d5069 -r e846f8d1619c lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Dec 18 02:44:24 2002 +0000
+++ b/lisp/ChangeLog	Wed Dec 18 05:16:09 2002 +0000
@@ -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 -r f016200d5069 -r e846f8d1619c lisp/info.el
--- a/lisp/info.el	Wed Dec 18 02:44:24 2002 +0000
+++ b/lisp/info.el	Wed Dec 18 05:16:09 2002 +0000
@@ -967,7 +967,7 @@
 	  	(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