Mercurial > hg > xemacs-beta
comparison src/lisp.h @ 4910:6bc1f3f6cf0d
Make canoncase visible to Lisp; use it with chars in internal_equalp.
src/ChangeLog addition:
2010-02-01 Aidan Kehoe <kehoea@parhasard.net>
* fns.c (internal_equalp):
Use bytecode_arithcompare, which takes two args, instead of
passing a stack pointer to Feqlsign.
Use CANONCASE(), not DOWNCASE(), for case-insensitive character
comparison.
Correct a comment here.
* casefiddle.c (casify_object): New operation in this function,
CASE_CANONICALIZE.
(Fcanoncase): New function, used for case-insensitive comparison.
* lisp.h:
Make Fcanoncase, bytecode_arithcompare visible here.
* bytecode.c (bytecode_arithcompare):
Make this visible to other files.
lisp/ChangeLog addition:
2010-02-01 Aidan Kehoe <kehoea@parhasard.net>
* cl-macs.el (equalp):
Remove special treatment for an #'equalp with a single character
constant argument, it was incorrect (it used #'downcase instead of
#'canoncase).
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Mon, 01 Feb 2010 17:57:04 +0000 |
| parents | 6ef8256a020a |
| children | 1628e3b9601a 48b63cd88a21 |
comparison
equal
deleted
inserted
replaced
| 4909:87175eb65ff4 | 4910:6bc1f3f6cf0d |
|---|---|
| 4386 EXFUN (Fcall_interactively, 3); | 4386 EXFUN (Fcall_interactively, 3); |
| 4387 EXFUN (Fprefix_numeric_value, 1); | 4387 EXFUN (Fprefix_numeric_value, 1); |
| 4388 | 4388 |
| 4389 /* Defined in casefiddle.c */ | 4389 /* Defined in casefiddle.c */ |
| 4390 EXFUN (Fdowncase, 2); | 4390 EXFUN (Fdowncase, 2); |
| 4391 EXFUN (Fcanoncase, 2); | |
| 4391 EXFUN (Fupcase, 2); | 4392 EXFUN (Fupcase, 2); |
| 4392 EXFUN (Fupcase_initials, 2); | 4393 EXFUN (Fupcase_initials, 2); |
| 4393 EXFUN (Fupcase_initials_region, 3); | 4394 EXFUN (Fupcase_initials_region, 3); |
| 4394 EXFUN (Fupcase_region, 3); | 4395 EXFUN (Fupcase_region, 3); |
| 4395 | 4396 |
| 5117 Lisp_Object concat3 (Lisp_Object, Lisp_Object, Lisp_Object); | 5118 Lisp_Object concat3 (Lisp_Object, Lisp_Object, Lisp_Object); |
| 5118 Lisp_Object vconcat2 (Lisp_Object, Lisp_Object); | 5119 Lisp_Object vconcat2 (Lisp_Object, Lisp_Object); |
| 5119 Lisp_Object vconcat3 (Lisp_Object, Lisp_Object, Lisp_Object); | 5120 Lisp_Object vconcat3 (Lisp_Object, Lisp_Object, Lisp_Object); |
| 5120 Lisp_Object nconc2 (Lisp_Object, Lisp_Object); | 5121 Lisp_Object nconc2 (Lisp_Object, Lisp_Object); |
| 5121 Lisp_Object bytecode_nconc2 (Lisp_Object *); | 5122 Lisp_Object bytecode_nconc2 (Lisp_Object *); |
| 5123 int bytecode_arithcompare (Lisp_Object obj1, Lisp_Object obj2); | |
| 5122 void check_losing_bytecode (const char *, Lisp_Object); | 5124 void check_losing_bytecode (const char *, Lisp_Object); |
| 5123 | 5125 |
| 5124 Lisp_Object add_suffix_to_symbol (Lisp_Object symbol, | 5126 Lisp_Object add_suffix_to_symbol (Lisp_Object symbol, |
| 5125 const Ascbyte *ascii_string); | 5127 const Ascbyte *ascii_string); |
| 5126 Lisp_Object add_prefix_to_symbol (const Ascbyte *ascii_string, | 5128 Lisp_Object add_prefix_to_symbol (const Ascbyte *ascii_string, |