From 250465030318621ed461d261e7807bf25b2f90b1 Mon Sep 17 00:00:00 2001 From: John Paul Wallington Date: Wed, 18 Dec 2002 05:16:09 +0000 Subject: [PATCH] (Info-dir-remove-duplicates): Avoid infloop when deleting last entry. --- lisp/ChangeLog | 5 +++++ lisp/info.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) 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 + + * info.el (Info-dir-remove-duplicates): Avoid infloop when + deleting last entry. + 2002-12-17 Nick Roberts * 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 -- 2.39.5