Commit ec6d29af authored by Karl Heuer's avatar Karl Heuer

(Info-follow-reference): Add each cross-reference to

completions list just once, case-insensitively.
parent fc21ed03
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment