From ec6d29af5e52b4e0b1c4962cd77685a78c26e84f Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Thu, 5 Dec 1996 19:53:00 +0000 Subject: [PATCH] (Info-follow-reference): Add each cross-reference to completions list just once, case-insensitively. --- lisp/info.el | 15 ++++++++++++--- 1 file changed, 12 insertions(+), 3 deletions(-) diff --git a/lisp/info.el b/lisp/info.el index 9e001469073..c3df1a843be 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -894,9 +894,18 @@ NAME may be an abbreviation of the reference name." ;; Record as a completion and perhaps as default. (if (eq default t) (setq default str)) (if (eq alt-default t) (setq alt-default str)) - (setq completions - (cons (cons str nil) - completions)))) + ;; Don't add this string if it's a duplicate. + ;; We use a loop instead of "(assoc str completions)" because + ;; we want to do a case-insensitive compare. + (let ((tail completions) + (tem (downcase str))) + (while (and tail + (not (string-equal tem (downcase (car (car tail)))))) + (setq tail (cdr tail))) + (or tail + (setq completions + (cons (cons str nil) + completions)))))) ;; If no good default was found, try an alternate. (or default (setq default alt-default)) -- 2.39.5