Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
7
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
ec6d29af
Commit
ec6d29af
authored
Dec 05, 1996
by
Karl Heuer
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(Info-follow-reference): Add each cross-reference to
completions list just once, case-insensitively.
parent
fc21ed03
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
12 additions
and
3 deletions
+12
-3
lisp/info.el
lisp/info.el
+12
-3
No files found.
lisp/info.el
View file @
ec6d29af
...
...
@@ -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
))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment