Mercurial > hg > xemacs-beta
view lwlib/lwlib-Xm.h @ 5916:1152e0091f8c
Avoid confusion about ELC vs. source file encoding, #'load, #'load-internal.
lisp/ChangeLog addition:
2015-06-03 Aidan Kehoe <kehoea@parhasard.net>
* code-files.el (load):
Revise this to respect load-ignore-out-of-date-elc-files, rather
than leaving that to #'load-internal. Avoids a corner case where
the source and the compiled file have different, incompatible
encodings.
Move the call to #'substitute-in-file-name here.
No longer check for a zero-length filename, since #'load-internal
no longer chokes on same and errors correctly.
src/ChangeLog addition:
2015-06-03 Aidan Kehoe <kehoea@parhasard.net>
* lread.c (Fload_internal):
Delegate calling the handler and #'substitute-in-file-name to #'load.
Error correctly with a zero-length file name, instead of giving a
bus error on my machine.
Delegate the check for out-of-date ELC files to #'load,
avoiding a bug where the encoding of the ELC file and the source
file differed.
* lread.c (PRINT_LOADING_MESSAGE_1):
This is simplified, now we no longer have to talk about
out-of-date ELC files.
tests/ChangeLog addition:
2015-06-03 Aidan Kehoe <kehoea@parhasard.net>
* automated/file-tests.el:
Gross sanity check for #'load and #'load-internal with a
zero-length FILE, something that crashed until today.
author | Aidan Kehoe <kehoea@parhasard.net> |
---|---|
date | Wed, 03 Jun 2015 20:13:07 +0100 |
parents | ade4c7e2c6cb |
children |
line wrap: on
line source
/* The lwlib interface to Motif widgets. Copyright (C) 1992, 1993, 1994 Lucid, Inc. Copyright (C) 1995 Tinker Systems and INS Engineering Corp. This file is part of the Lucid Widget Library. The Lucid Widget Library 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 3 of the License, or (at your option) any later version. The Lucid Widget Library 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 the Lucid Widget Library. If not, see <http://www.gnu.org/licenses/>. */ #ifndef INCLUDED_lwlib_Xm_h_ #define INCLUDED_lwlib_Xm_h_ #include "lwlib-internal.h" extern const widget_creation_entry xm_creation_table []; Widget xm_create_dialog (widget_instance* instance); Widget xm_create_label (Widget parent, widget_value* val); Boolean lw_motif_widget_p (Widget widget); void xm_update_one_widget (widget_instance* instance, Widget widget, widget_value* val, Boolean deep_p); void xm_update_one_value (widget_instance* instance, Widget widget, widget_value* val); void xm_destroy_instance (widget_instance* instance); void xm_set_keyboard_focus (Widget parent, Widget w); void xm_popup_menu (Widget widget, XEvent *event); void xm_pop_instance (widget_instance* instance, Boolean up); extern Widget first_child (Widget); /* garbage */ #endif /* INCLUDED_lwlib_Xm_h_ */