Topic: Font file issues

[alanjt]

Alan, did you read my post #34?
Thanks.

It's to remove any possible case-sensitive occurrences.

[MeasureUp]

Thanks.
Will it return a lowercase value if two line were:

Code: [Select]

(vl-registry-read reg x)
...
ttf
Instead of

Code: [Select]

(strcase (vl-registry-read reg x))
...
(strcase ttf)


[alanjt]

Thanks.
Will it return a lowercase value if two line were:

Code: [Select]

(vl-registry-read reg x)
...
ttf
Instead of

Code: [Select]

(strcase (vl-registry-read reg x))
...
(strcase ttf)


(strcase <String> T) would, but it's not to set the case, but to have the same case for comparison purposes. Unaltered, each could return any case.

eg.
(eq "dog" DOG") => nil
(eq "DOG" "DOG") => T
(eq (strcase "dog") (strcase "Dog")) => T

In this situation, the case is irrelevant, so I'll just capitalize each for easy comparison.

However, dont' take my word for it. Dissect the routine, step-by-step and see what actually happens.

[MeasureUp]

Thank you very much, Alan.

[alanjt]

Thank you very much, Alan.

Any time.