Mercurial > hg > xemacs-beta
annotate lisp/gnome.el @ 4623:a9f83990e6bf
Fix a byte compiler bug with characters above ?\xFF.
lisp/ChangeLog addition:
2009-02-22 Aidan Kehoe <kehoea@parhasard.net>
* bytecomp.el (byte-compile-force-escape-quoted): New variable,
used to force `byte-compile-insert-header' to treat the output as
having characters above ?\xFF.
(byte-compile-from-buffer):
If the compiled output contains characters above ?\xFF, and
byte-compile-dynamic-docstrings or byte-compile-dynamic is non-nil
(or we're using an inappropriate coding system) recompile the
file, turning off the dynamic features and using a more
appropriate header.
(byte-compile-insert-header): Pay attention to
byte-compile-force-escape-quoted.
tests/ChangeLog addition:
2009-02-22 Aidan Kehoe <kehoea@parhasard.net>
* automated/mule-tests.el:
Use more realistic tests for the escape-quoted mule encoding
checks; update a comment, change a Known-Bug-Expect-Failure to a
normal test now that we've addressed an old bug.
author | Aidan Kehoe <kehoea@parhasard.net> |
---|---|
date | Sun, 22 Feb 2009 19:57:28 +0000 |
parents | 7039e6323819 |
children | db7068430402 |
rev | line source |
---|---|
502 | 1 (globally-declare-fboundp |
2 '(gtk-type-from-name | |
3 gtk-import-function-internal | |
4 gtk-call-function)) | |
5 | |
462 | 6 (defvar gnome-init-called nil) |
7 | |
8 (defun gnome-init (app-id app-version argv) | |
9 (mapc 'dll-load | |
10 '("libgnomesupport.so" | |
11 "libgnome.so" | |
12 "libgnomeui.so" | |
13 "libesd.so" | |
14 "libaudiofile.so" | |
15 "libart_lgpl.so")) | |
16 (if (and (not (noninteractive)) (not gnome-init-called) | |
17 (= (gtk-type-from-name "GnomeApp") 0)) | |
18 (prog1 | |
19 (gtk-call-function (gtk-import-function-internal | |
20 'gint "gnome_init" '(GtkString GtkString gint GtkArrayOfString)) | |
21 (list app-id app-version (length argv) argv)) | |
22 (setq gnome-init-called t)))) | |
23 | |
24 (require 'gnome-widgets) | |
25 (provide 'gnome) |