Mercurial > hg > xemacs-beta
view src/sysdll.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 | 0bcc1e4dfd91 |
| children | 19a72041c5ed |
line wrap: on
line source
/* sysdll.h --- system dependent support for dynamic linked libraries Copyright (C) 1998 Free Software Foundation, Inc. Author: William Perry <wmperry@aventail.com> This file is part of XEmacs. XEmacs is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. XEmacs is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with XEmacs; see the file COPYING. If not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #ifndef INCLUDED_sysdll_h_ #define INCLUDED_sysdll_h_ BEGIN_C_DECLS typedef void * dll_handle; typedef void * dll_func; typedef void * dll_var; extern dll_handle dll_open (Lisp_Object); extern int dll_close (dll_handle); extern dll_func dll_function (dll_handle, const CIbyte *); extern dll_var dll_variable (dll_handle, const CIbyte *); extern Lisp_Object dll_error (void); /* More stand-ins ... */ #define Qdll_filename_encoding Qfile_name #define Qdll_function_name_encoding Qnative END_C_DECLS #endif /* INCLUDED_sysdll_h_ */