11:59 a.m.
Ben,
A fresh version of XEmacs, configured with:
../xemacs-21.5/configure --prefix=/usr/local/gcc3-world --with-gnome
produces:
make[1]: *** No rule to make target `events-mod.h', needed by `event-gtk.o'.
Stop.
make[1]: Leaving directory `/home/malcolmp/devl/xemacs/objdir/src'
make: *** [src] Error 2
System: PPC linux, GCC 3.0.4.
Malcolm
1:33 p.m.
New subject: [MERGED-BEN-MULE] Crash with background pixmap
After merge, XEmacs crashes in startup, if I have background pixmap
set in Xresources:
# (unwind-protect ...)
# (catch #<INTERNAL OBJECT (XEmacs bug?) (opaque-ptr, adr=0x833abe4) 0x8362310>
...)
# (unwind-protect ...)
add-spec-list-to-specifier(#<image-specifier global=<unspecified> 0x208>
((global (nil . "~/pic/pixmaps/background5l2.xpm"))) append)
# bind (is-valid nval how-to-add tag-set locale value specifier)
set-specifier(#<image-specifier global=<unspecified> 0x208>
"~/pic/pixmaps/background5l2.xpm" global nil append)
# bind (how-to-add tag-set locale value property face)
set-face-property(default background-pixmap "~/pic/pixmaps/background5l2.xpm"
global nil append)
# bind (how-to-add tag-set locale pixmap face)
set-face-background-pixmap(default "~/pic/pixmaps/background5l2.xpm" global
nil append)
# bind (rp bp dp hp stp ulp bgp bg fg fn name face-sym device-class tty-tag-set
x-tag-set tag-set append set-anyway locale face)
x-init-face-from-resources(default global)
# bind (devtype locale face)
init-face-from-resources(default global)
# bind (face G99446)
init-global-faces()
# (unwind-protect ...)
# (unwind-protect ...)
# bind (inhibit-quit)
# (unwind-protect ...)
# (unwind-protect ...)
make-device(x nil)
# bind (display)
make-x-device(nil)
init-x-win()
# bind (debugger debug-on-error command-line-args-left)
command-line()
# (unwind-protect ...)
normal-top-level()
# (condition-case ... . error)
# (catch top-level ...)
zsh: 5107 segmentation fault (core dumped) /local/pkg/xemacs-21.5-b5-2/bin/xemacs -q
(gdb) where
#0 0x404fd9f1 in kill () from /lib/libc.so.6
#1 0x080d02e8 in fatal_error_signal ()
#2 0x404fd928 in sigaction () from /lib/libc.so.6
#3 0x0813e5d9 in potential_pixmap_file_instantiator ()
#4 0x0813fd1e in xpm_normalize ()
#5 0x0813a3ed in normalize_image_instantiator ()
#6 0x080d448d in call_with_suspended_errors_1 ()
#7 0x080d47b0 in call_with_suspended_errors ()
#8 0x08141cb4 in image_going_to_add ()
#9 0x081e9fe9 in build_up_processed_list ()
#10 0x081ea212 in specifier_add_spec ()
#11 0x081eafbe in Fadd_spec_list_to_specifier ()
#12 0x080d6d3d in Ffuncall ()
#13 0x0809f37e in execute_optimized_program ()
#14 0x0809ef83 in funcall_compiled_function ()
#15 0x080d6ec7 in Ffuncall ()
#16 0x0809f37e in execute_optimized_program ()
#17 0x0809ef83 in funcall_compiled_function ()
#18 0x080d6ec7 in Ffuncall ()
#19 0x0809f37e in execute_optimized_program ()
#20 0x0809ef83 in funcall_compiled_function ()
#21 0x080d6ec7 in Ffuncall ()
#22 0x0809f37e in execute_optimized_program ()
#23 0x0809ef83 in funcall_compiled_function ()
#24 0x080d6ec7 in Ffuncall ()
#25 0x0809f37e in execute_optimized_program ()
#26 0x0809ef83 in funcall_compiled_function ()
#27 0x080d6ec7 in Ffuncall ()
#28 0x0809f37e in execute_optimized_program ()
#29 0x0809ef83 in funcall_compiled_function ()
#30 0x080d6ec7 in Ffuncall ()
#31 0x080db90a in call0_with_handler ()
#32 0x080c0e85 in call_critical_lisp_code ()
#33 0x0810b67f in init_global_faces ()
#34 0x080bec0a in Fmake_device ()
#35 0x080d6d3d in Ffuncall ()
#36 0x0809f37e in execute_optimized_program ()
#37 0x0809ef83 in funcall_compiled_function ()
#38 0x080d6ec7 in Ffuncall ()
#39 0x0809f37e in execute_optimized_program ()
#40 0x0809ef83 in funcall_compiled_function ()
#41 0x080d6ec7 in Ffuncall ()
#42 0x0809f37e in execute_optimized_program ()
#43 0x0809ef83 in funcall_compiled_function ()
#44 0x080d6ec7 in Ffuncall ()
#45 0x0809f37e in execute_optimized_program ()
#46 0x0809ef83 in funcall_compiled_function ()
#47 0x080d65d7 in Feval ()
#48 0x080d3666 in condition_case_1 ()
#49 0x080b01b3 in top_level_1 ()
#50 0x080dba4c in internal_catch ()
#51 0x080af3f7 in initial_command_loop ()
#52 0x080cf64d in xemacs_21_5_b5_i686_pc_linux ()
#53 0x080d1493 in main ()
#54 0x404ed6cf in __libc_start_main () from /lib/libc.so.6
(gdb) quit
--
pema(a)iki.fi * http://www.iki.fi/pema/
8:13 p.m.
New subject: [MERGED-BEN-MULE] mule doesn't compile on linux
uname -a: Linux localhost.localdomain 2.4.9-21 #1 Thu Jan 17 14:16:30 EST 2002 i686
unknown
./configure '--with-mule'
XEmacs 21.5-b5 "beets" configured for `i686-pc-linux'.
Compilation / Installation:
Source code location: /home/jas/src/xemacs-21.5
Installation prefix: /usr/local
Operating system description file: `s/linux.h'
Machine description file: `m/intel386.h'
Compiler: gcc -g -O3 -Wall -Wno-switch -Winline
-Wmissing-prototypes -Wsign-compare -Wshadow
Relocating allocator for buffers: no
GNU version of malloc: yes
- Using Doug Lea's new malloc from the GNU C Library.
Window System:
Compiling in support for the X window system:
- X Windows headers location: /usr/X11R6/include
- X Windows libraries location: /usr/X11R6/lib
- Handling WM_COMMAND properly.
Using Lucid menubars.
Using Lucid scrollbars.
Using Motif dialog boxes.
Using Motif native widgets.
TTY:
Compiling in support for ncurses.
Compiling in support for GPM (General Purpose Mouse).
Images:
Compiling in support for GIF images (builtin).
Compiling in support for XPM images.
Compiling in support for PNG images.
Compiling in support for JPEG images.
Compiling in support for TIFF images.
Compiling in support for X-Face message headers.
Sound:
Compiling in support for sound (native).
Compiling in support for ESD (Enlightened Sound Daemon).
Databases:
Compiling in support for Berkeley database.
Compiling in support for LDAP.
Compiling in support for PostgreSQL.
- Using PostgreSQL header file: pgsql/libpq-fe.h
- Using PostgreSQL V7 bindings.
Internationalization:
Compiling in support for Mule (multi-lingual Emacs).
Compiling in support for XIM (X11R5+ I18N input method).
- Using raw Xlib to provide XIM support.
Compiling in support for Canna on Mule.
Compiling in support for the WNN input method on Mule.
Mail:
Compiling in support for "dot-locking" mail spool file locking method.
Other Features:
Inhibiting IPv6 canonicalization at startup.
Compiling in support for dynamic shared object modules.
Compiling in support for extra debugging code.
WARNING: ---------------------------------------------------------
WARNING: Compiling in support for runtime error checking.
WARNING: XEmacs will run noticeably more slowly as a result.
WARNING: Error checking is on by default for XEmacs beta releases.
WARNING: ---------------------------------------------------------
cd ./lib-src && make all
make[1]: Entering directory `/home/jas/src/xemacs-21.5/lib-src'
make[1]: Nothing to be done for `all'.
make[1]: Leaving directory `/home/jas/src/xemacs-21.5/lib-src'
cd ./lwlib && make all
make[1]: Entering directory `/home/jas/src/xemacs-21.5/lwlib'
make[1]: Nothing to be done for `all'.
make[1]: Leaving directory `/home/jas/src/xemacs-21.5/lwlib'
cd ./src && make all
make[1]: Entering directory `/home/jas/src/xemacs-21.5/src'
./temacs -nd -batch -l /home/jas/src/xemacs-21.5/src/../lisp/update-elc.el
Loading /home/jas/src/xemacs-21.5/src/../lisp/update-elc.el...
Loading very-early-lisp...
Loading find-paths.el...
Loading packages.el...
Loading setup-paths.el...
Loading dump-paths.el...
Loading /home/jas/src/xemacs-21.5/lisp/dumped-lisp.el...
Loading loadup-el.el...
Loading loadup.el...
Using load-path (/home/jas/src/xemacs-21.5/lisp)
Using module-load-path (/home/jas/src/xemacs-21.5/modules)
Loading dumped-lisp.el...
Loading backquote.el...
Loading bytecomp-runtime.el...
Loading find-paths.el...
Loading packages.el...
Loading setup-paths.el...
Loading dump-paths.el...
Loading subr.el...
Loading replace.el...
Loading version.el...
Loading cl.el...
Loading cl-extra.el...
Loading cl-seq.el...
Loading widget.el...
Loading custom.el...
Loading cus-start.el...
Loading cmdloop.el...
Loading keymap.el...
Loading syntax.el...
Loading device.el...
Loading console.el...
Loading obsolete.el...
Loading specifier.el...
Loading faces.el...
Loading cl-macs.el...
Loading glyphs.el...
Loading objects.el...
Loading extents.el...
Loading events.el...
Loading hash-table.el...
Loading text-props.el...
Loading process.el...
Loading multicast.el...
Loading frame.el...
Loading map-ynp.el...
Loading simple.el...
Loading keydefs.el...
Loading abbrev.el...
Loading derived.el...
Loading minibuf.el...
Loading list-mode.el...
Loading modeline.el...
Loading cus-file.el...
Loading startup.el...
Loading misc.el...
Loading help.el...
Loading files.el...
Loading lib-complete.el...
Loading format.el...
Loading indent.el...
Loading isearch-mode.el...
Loading buffer.el...
Loading buff-menu.el...
Loading undo-stack.el...
Loading window.el...
Loading window-xemacs.el...
Loading paths.el...
Loading lisp.el...
Loading page.el...
Loading register.el...
Loading iso8859-1.el...
Loading paragraphs.el...
Loading easymenu.el...
Loading lisp-mode.el...
Loading text-mode.el...
Loading fill.el...
Loading auto-save.el...
Loading movemail.el...
Loading float-sup.el...
Loading itimer.el...
Loading itimer-autosave.el...
Loading printer.el...
Loading gui.el...
Loading mouse.el...
Loading mode-motion.el...
Loading toolbar.el...
Loading scrollbar.el...
Loading menubar.el...
Loading dialog.el...
Loading gutter.el...
Loading select.el...
Loading menubar-items.el...
Loading gutter-items.el...
Loading toolbar-items.el...
Loading dialog-items.el...
Loading coding.el...
Loading code-files.el...
Loading code-process.el...
Loading code-cmds.el...
Loading unicode.el...*** Error in XEmacs initialization
(void-function define-ccl-program)
*** Backtrace
really-early-error-handler((void-function define-ccl-program))
(define-ccl-program ccl-c-notated-string-to-number (backquote (1 ...)))
(if (fboundp (quote ccl-execute)) (define-ccl-program ccl-c-notated-string-to-number
(backquote ...)))
# bind (current-load-list)
# (unwind-protect ...)
# bind (load-file-name)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
load-internal("trans-util" nil t nil binary)
(if (or (<= ... 0) (null ...)) (and (null noerror) (signal ... ...)) (load-internal
file noerror nomessage nosuffix (let ... ...)))
(if handler (funcall handler (quote load) filename noerror nomessage nosuffix) (if (or
... ...) (and ... ...) (load-internal file noerror nomessage nosuffix ...)))
# bind (path handler filename)
(let* ((filename ...) (handler ...) (path nil)) (if handler (funcall handler ...
filename noerror nomessage nosuffix) (if ... ... ...)))
# bind (nosuffix nomessage noerror file)
load("trans-util" nil t nil)
# (unwind-protect ...)
require(trans-util)
# bind (current-load-list)
# (unwind-protect ...)
# bind (load-file-name)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
load-internal("mucs-ccl" nil t nil binary)
(if (or (<= ... 0) (null ...)) (and (null noerror) (signal ... ...)) (load-internal
file noerror nomessage nosuffix (let ... ...)))
(if handler (funcall handler (quote load) filename noerror nomessage nosuffix) (if (or
... ...) (and ... ...) (load-internal file noerror nomessage nosuffix ...)))
# bind (path handler filename)
(let* ((filename ...) (handler ...) (path nil)) (if handler (funcall handler ...
filename noerror nomessage nosuffix) (if ... ... ...)))
# bind (nosuffix nomessage noerror file)
load("mucs-ccl" nil t nil)
# (unwind-protect ...)
require(mucs-ccl)
(cond ((fboundp ...) (require ...)) (t (error "This Emacs does not have Mule-UCS
conversion engine!")))
# bind (current-load-list)
# (unwind-protect ...)
# bind (load-file-name)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
load-internal("mucs" nil t nil binary)
(if (or (<= ... 0) (null ...)) (and (null noerror) (signal ... ...)) (load-internal
file noerror nomessage nosuffix (let ... ...)))
(if handler (funcall handler (quote load) filename noerror nomessage nosuffix) (if (or
... ...) (and ... ...) (load-internal file noerror nomessage nosuffix ...)))
# bind (path handler filename)
(let* ((filename ...) (handler ...) (path nil)) (if handler (funcall handler ...
filename noerror nomessage nosuffix) (if ... ... ...)))
# bind (nosuffix nomessage noerror file)
load("mucs" nil t nil)
# (unwind-protect ...)
require(mucs)
# bind (current-load-list)
# (unwind-protect ...)
# bind (load-file-name)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
load-internal("/usr/local/lib/xemacs/mule-packages/lisp/mule-ucs/unicode.el"
nil nil nil nil)
(if (or (<= ... 0) (null ...)) (and (null noerror) (signal ... ...)) (load-internal
file noerror nomessage nosuffix (let ... ...)))
(if handler (funcall handler (quote load) filename noerror nomessage nosuffix) (if (or
... ...) (and ... ...) (load-internal file noerror nomessage nosuffix ...)))
# bind (path handler filename)
(let* ((filename ...) (handler ...) (path nil)) (if handler (funcall handler ...
filename noerror nomessage nosuffix) (if ... ... ...)))
# bind (nosuffix nomessage noerror file)
load("/usr/local/lib/xemacs/mule-packages/lisp/mule-ucs/unicode.el")
(prog1 (load full-path) (unless (memq ... internal-error-checking) (garbage-collect)))
(if full-path (prog1 (load full-path) (unless ... ...)) (external-debugging-output
(format "\nLoad file %s: not found\n" file)) nil)
# bind (full-path)
(let ((full-path ...)) (if full-path (prog1 ... ...) (external-debugging-output ...)
nil))
# bind (file)
pureload("unicode")
(if (pureload file) nil (external-debugging-output "Fatal error during load,
aborting") (kill-emacs 1))
(unless (pureload file) (external-debugging-output "Fatal error during load,
aborting") (kill-emacs 1))
(while (setq file (car files)) (unless (pureload file) (external-debugging-output
"Fatal error during load, aborting") (kill-emacs 1)) (setq files (cdr files)))
# bind (file files)
(let ((files preloaded-file-list) file) (while (setq file ...) (unless ... ... ...)
(setq files ...)) (when (not ...) (defun toolbar-button-p ... "No toolbar
support." nil) (defun toolbar-specifier-p ... "No toolbar support." nil))
(fmakunbound (quote pureload)))
(lambda nil (setq Installation-string (save-current-buffer ... ... ... ... ...)) (let
(...) (setq load-path ...) (setq module-load-path ...)) (external-debugging-output (format
"\nUsing load-path %s" load-path)) (external-debugging-output (format
"\nUsing module-load-path %s" module-load-path)) (buffer-disable-undo
(get-buffer "*scratch*")) (load "very-early-lisp" nil t) (let (...)
(setq load-path ...)) (setq load-warn-when-source-newer t load-warn-when-source-only t)
(defun pureload (file) (let ... ...)) (load (expand-file-name
"../lisp/dumped-lisp.el")) (let (... file) (while ... ... ...) (when ... ...
...) (fmakunbound ...)) (packages-load-package-dumped-lisps late-package-load-path))()
# (unwind-protect ...)
call-with-condition-handler(really-early-error-handler (lambda nil (setq
Installation-string (save-current-buffer ... ... ... ... ...)) (let (...) (setq load-path
...) (setq module-load-path ...)) (external-debugging-output (format "\nUsing
load-path %s" load-path)) (external-debugging-output (format "\nUsing
module-load-path %s" module-load-path)) (buffer-disable-undo (get-buffer
"*scratch*")) (load "very-early-lisp" nil t) (let (...) (setq
load-path ...)) (setq load-warn-when-source-newer t load-warn-when-source-only t) (defun
pureload (file) (let ... ...)) (load (expand-file-name
"../lisp/dumped-lisp.el")) (let (... file) (while ... ... ...) (when ... ...
...) (fmakunbound ...)) (packages-load-package-dumped-lisps late-package-load-path)))
# bind (gc-cons-threshold)
(let ((gc-cons-threshold ...)) (call-with-condition-handler (quote
really-early-error-handler) (function ...)) (setq preloaded-file-list (mapcar ...
preloaded-file-list)) (setq load-warn-when-source-newer t load-warn-when-source-only nil)
(setq debugger (quote debug)) (when (member "no-site-file" command-line-args)
(setq site-start-file nil)) (when (load "site-load" t) (garbage-collect)) (when
purify-flag (message "Finding pointers to doc strings...") (Snarf-documentation
"DOC") (message "Finding pointers to doc strings...done")
(Verify-documentation)) (when (stringp site-start-file) (load "site-init" t))
(setq current-load-list nil) (garbage-collect) (buffer-enable-undo
"*scratch*"))
# bind (current-load-list)
# (unwind-protect ...)
# bind (load-file-name)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
load("loadup.el")
# bind (purify-flag load-ignore-elc-files)
(let ((load-ignore-elc-files t) (purify-flag nil)) (load "loadup.el"))
# bind (current-load-list)
# (unwind-protect ...)
# bind (load-file-name)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
load("loadup-el.el")
(if (and (not update-elc-files-to-compile) (not need-to-rebuild-autoloads) (not
need-to-rebuild-mule-autoloads) (not need-to-recompile-autoloads) (not
need-to-recompile-mule-autoloads)) (condition-case nil (delete-file
"../src/NOBYTECOMPILE") (file-error nil)) (let* (... ... ...) (setq
inhibit-autoloads t) (setq command-line-args ...)) (load "loadup-el.el"))
# bind (current-load-list)
# (unwind-protect ...)
# bind (load-file-name)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
load("/home/jas/src/xemacs-21.5/src/../lisp/update-elc.el")
# (condition-case ... . error)
# (catch top-level ...)
*** Killing XEmacs
make[1]: *** [update-elc.stamp] Error 255
make[1]: Leaving directory `/home/jas/src/xemacs-21.5/src'
make: *** [src] Error 2
3:14 a.m.
New subject: [MERGED-BEN-MULE] mule doesn't compile on linux
>>>> "Simon" == Simon Josefsson
<jas(a)extundo.com> writes:
Simon> Loading unicode.el...*** Error in XEmacs initialization
Simon> (void-function define-ccl-program)
Try EMACSLOADPATH=`pwd`/lisp:`pwd`/mule make. I have a patch pending,
but I don't know if it's TheRaightThang[tm].
Or you can rename mule-ucs's unicode.el out of the way temporarily.
--
Institute of Policy and Planning Sciences http://turnbull.sk.tsukuba.ac.jp
University of Tsukuba Tennodai 1-1-1 Tsukuba 305-8573 JAPAN
Don't ask how you can "do" free software business;
ask what your business can "do for" free software.
10:45 a.m.
New subject: [MERGED-BEN-MULE] mule doesn't compile on linux
btw: all the patches that have been sent so far, and fixes for lots of
the bugs, will be incorporated tomorrow. today, i sleep.
"Stephen J. Turnbull" wrote:
>>>>> "Simon" == Simon Josefsson <jas(a)extundo.com>
writes:
Simon> Loading unicode.el...*** Error in XEmacs initialization
Simon> (void-function define-ccl-program)
Try EMACSLOADPATH=`pwd`/lisp:`pwd`/mule make. I have a patch pending,
but I don't know if it's TheRaightThang[tm].
actually, i've been spending the last few hours trying to do this right
-- and of course discovering lots of other really cruddy startup code
that needs cleaning.
anyway, there is more than one possible path to take. the one i'm
taking is to disable entirely all recognition of packages when compiling
xemacs. this requires another command-line flag -- no-autoloads isn't
enough because the shadowing file still sits on the load path.
i think this is the right thing -- xemacs should be able to compile
without packages and have the packages added later. compiling without
packages ensures that nothing specific to the compiler's package
environment gets stuck somewhere in the compiled xemacs, thence to cause
problems with different packages.
my only concern is people adding other stuff to dump, which is dependent
on packages. is this a real concern that i should worry about?
Or you can rename mule-ucs's unicode.el out of the way temporarily.
--
Institute of Policy and Planning Sciences http://turnbull.sk.tsukuba.ac.jp
University of Tsukuba Tennodai 1-1-1 Tsukuba 305-8573 JAPAN
Don't ask how you can "do" free software business;
ask what your business can "do for" free software.
11:21 a.m.
New subject: [MERGED-BEN-MULE] mule doesn't compile on linux
>>>> "Ben" == Ben Wing <ben(a)666.com>
writes:
Ben> anyway, there is more than one possible path to take. the
Ben> one i'm taking is to disable entirely all recognition of
Ben> packages when compiling xemacs.
I agree with this.
Ben> this requires another command-line flag -- no-autoloads isn't
Ben> enough because the shadowing file still sits on the load path.
I'm not sure I want to add yet another command-line flag, though. We
have too many as it is. My current approach is to add
-l lisp/autoloads \
-eval "(setq load-path '(\"`pwd`/lisp/\"
\"`pwd`\"/lisp/mule/\"))"
to the action in the rule where it matters, but I think the best thing
to do would be to create a file buck-naked-build-environment.el and
always load it with -l.
I'll submit a patch for the current approach for your perusal and the
use of people with mule-ucs installed.
Ben> my only concern is people adding other stuff to dump, which
Ben> is dependent on packages. is this a real concern
IMO, yes. We should support this somehow.
Ben> that i should worry about?
Not yet, unless you want to. It's poorly supported now, and we would
need to find a way to do it cleanly.
If they really want to do that, they should set it up explicitly with
a just-get-my-packages-environment.el. We could put instructions in
our version (";;; to preload packages, add them to load-path here" etc
etc) and rename buck-naked to clean-build-environment.el.
--
Institute of Policy and Planning Sciences http://turnbull.sk.tsukuba.ac.jp
University of Tsukuba Tennodai 1-1-1 Tsukuba 305-8573 JAPAN
Don't ask how you can "do" free software business;
ask what your business can "do for" free software.
11:28 a.m.
New subject: [MERGED-BEN-MULE] mule doesn't compile on linux
Ben Wing writes:
i think this is the right thing -- xemacs should be able to compile
without packages and have the packages added later. compiling without
packages ensures that nothing specific to the compiler's package
environment gets stuck somewhere in the compiled xemacs, thence to cause
problems with different packages.
my only concern is people adding other stuff to dump, which is dependent
on packages. is this a real concern that i should worry about?
I used to dump extra packages at compile time until I got a faster
computer. Now I no longer bother, as the gain is not worth the
hassle.
--
Robert Pluim
12:29 p.m.
New subject: [MERGED-BEN-MULE] mule doesn't compile on linux
On Thu, 14 Mar 2002, Ben Wing wrote:
"Stephen J. Turnbull" wrote:
>
> >>>>> "Simon" == Simon Josefsson <jas(a)extundo.com>
writes:
>
> Simon> Loading unicode.el...*** Error in XEmacs initialization
> Simon> (void-function define-ccl-program)
>
> Try EMACSLOADPATH=`pwd`/lisp:`pwd`/mule make. I have a patch pending,
> but I don't know if it's TheRaightThang[tm].
actually, i've been spending the last few hours trying to do this right
-- and of course discovering lots of other really cruddy startup code
that needs cleaning.
anyway, there is more than one possible path to take. the one i'm
taking is to disable entirely all recognition of packages when compiling
xemacs. this requires another command-line flag -- no-autoloads isn't
enough because the shadowing file still sits on the load path.
i think this is the right thing -- xemacs should be able to compile
without packages and have the packages added later. compiling without
packages ensures that nothing specific to the compiler's package
environment gets stuck somewhere in the compiled xemacs, thence to cause
problems with different packages.
my only concern is people adding other stuff to dump, which is dependent
on packages. is this a real concern that i should worry about?
Simply adding EMACSLOADPATH=`pwd`/lisp:`pwd`/mule to the Makefile seems
like a solution. If people want to dump with external stuff, they have to
fix the load path and load their lisp themselves.
2:10 a.m.
New subject: [MERGED-BEN-MULE] Crash with background pixmap
could you recompile with debug support (-g) and then send me the fuller
backtrace? that would make it much easier to debug.
also, what are the relevant lines in your .Xresources file?
Pekka Marjola wrote:
After merge, XEmacs crashes in startup, if I have background pixmap
set in Xresources:
# (unwind-protect ...)
# (catch #<INTERNAL OBJECT (XEmacs bug?) (opaque-ptr, adr=0x833abe4) 0x8362310>
...)
# (unwind-protect ...)
add-spec-list-to-specifier(#<image-specifier global=<unspecified> 0x208>
((global (nil . "~/pic/pixmaps/background5l2.xpm"))) append)
# bind (is-valid nval how-to-add tag-set locale value specifier)
set-specifier(#<image-specifier global=<unspecified> 0x208>
"~/pic/pixmaps/background5l2.xpm" global nil append)
# bind (how-to-add tag-set locale value property face)
set-face-property(default background-pixmap "~/pic/pixmaps/background5l2.xpm"
global nil append)
# bind (how-to-add tag-set locale pixmap face)
set-face-background-pixmap(default "~/pic/pixmaps/background5l2.xpm" global
nil append)
# bind (rp bp dp hp stp ulp bgp bg fg fn name face-sym device-class tty-tag-set
x-tag-set tag-set append set-anyway locale face)
x-init-face-from-resources(default global)
# bind (devtype locale face)
init-face-from-resources(default global)
# bind (face G99446)
init-global-faces()
# (unwind-protect ...)
# (unwind-protect ...)
# bind (inhibit-quit)
# (unwind-protect ...)
# (unwind-protect ...)
make-device(x nil)
# bind (display)
make-x-device(nil)
init-x-win()
# bind (debugger debug-on-error command-line-args-left)
command-line()
# (unwind-protect ...)
normal-top-level()
# (condition-case ... . error)
# (catch top-level ...)
zsh: 5107 segmentation fault (core dumped) /local/pkg/xemacs-21.5-b5-2/bin/xemacs -q
(gdb) where
#0 0x404fd9f1 in kill () from /lib/libc.so.6
#1 0x080d02e8 in fatal_error_signal ()
#2 0x404fd928 in sigaction () from /lib/libc.so.6
#3 0x0813e5d9 in potential_pixmap_file_instantiator ()
#4 0x0813fd1e in xpm_normalize ()
#5 0x0813a3ed in normalize_image_instantiator ()
#6 0x080d448d in call_with_suspended_errors_1 ()
#7 0x080d47b0 in call_with_suspended_errors ()
#8 0x08141cb4 in image_going_to_add ()
#9 0x081e9fe9 in build_up_processed_list ()
#10 0x081ea212 in specifier_add_spec ()
#11 0x081eafbe in Fadd_spec_list_to_specifier ()
#12 0x080d6d3d in Ffuncall ()
#13 0x0809f37e in execute_optimized_program ()
#14 0x0809ef83 in funcall_compiled_function ()
#15 0x080d6ec7 in Ffuncall ()
#16 0x0809f37e in execute_optimized_program ()
#17 0x0809ef83 in funcall_compiled_function ()
#18 0x080d6ec7 in Ffuncall ()
#19 0x0809f37e in execute_optimized_program ()
#20 0x0809ef83 in funcall_compiled_function ()
#21 0x080d6ec7 in Ffuncall ()
#22 0x0809f37e in execute_optimized_program ()
#23 0x0809ef83 in funcall_compiled_function ()
#24 0x080d6ec7 in Ffuncall ()
#25 0x0809f37e in execute_optimized_program ()
#26 0x0809ef83 in funcall_compiled_function ()
#27 0x080d6ec7 in Ffuncall ()
#28 0x0809f37e in execute_optimized_program ()
#29 0x0809ef83 in funcall_compiled_function ()
#30 0x080d6ec7 in Ffuncall ()
#31 0x080db90a in call0_with_handler ()
#32 0x080c0e85 in call_critical_lisp_code ()
#33 0x0810b67f in init_global_faces ()
#34 0x080bec0a in Fmake_device ()
#35 0x080d6d3d in Ffuncall ()
#36 0x0809f37e in execute_optimized_program ()
#37 0x0809ef83 in funcall_compiled_function ()
#38 0x080d6ec7 in Ffuncall ()
#39 0x0809f37e in execute_optimized_program ()
#40 0x0809ef83 in funcall_compiled_function ()
#41 0x080d6ec7 in Ffuncall ()
#42 0x0809f37e in execute_optimized_program ()
#43 0x0809ef83 in funcall_compiled_function ()
#44 0x080d6ec7 in Ffuncall ()
#45 0x0809f37e in execute_optimized_program ()
#46 0x0809ef83 in funcall_compiled_function ()
#47 0x080d65d7 in Feval ()
#48 0x080d3666 in condition_case_1 ()
#49 0x080b01b3 in top_level_1 ()
#50 0x080dba4c in internal_catch ()
#51 0x080af3f7 in initial_command_loop ()
#52 0x080cf64d in xemacs_21_5_b5_i686_pc_linux ()
#53 0x080d1493 in main ()
#54 0x404ed6cf in __libc_start_main () from /lib/libc.so.6
(gdb) quit
--
pema(a)iki.fi * http://www.iki.fi/pema/
7:19 a.m.
New subject: [MERGED-BEN-MULE] Crash with background pixmap
>>>> In <3C900684.BEC43A7D(a)666.com>,
>>>> On Wed, 13 Mar 2002 19:10:12 -0700,
>>>> "Ben" == Ben Wing <ben(a)666.com> writes:
Ben> could you recompile with debug support (-g) and then send me the fuller
Ben> backtrace? that would make it much easier to debug.
Ben> also, what are the relevant lines in your .Xresources file?
Emacs.default.attributeBackgroundPixmap: ~/pic/pixmaps/background5l2.xpm
(gdb) where
#0 0x404fd9f1 in kill () from /lib/libc.so.6
#1 0x080d02e8 in fatal_error_signal (sig=11) at emacs.c:3342
#2 0x404fd928 in sigaction () from /lib/libc.so.6
#3 0x0813e5d9 in potential_pixmap_file_instantiator (instantiator=141465624,
file_keyword=137928588, data_keyword=137928612, console_type=137928420)
at glyphs.c:2461
#4 0x0813fd1e in xpm_normalize (inst=141465624, console_type=137928420,
dest_mask=-1) at glyphs.c:2996
#5 0x0813a3ed in normalize_image_instantiator (instantiator=141465624,
contype=137928420, dest_mask=-1) at glyphs.c:750
#6 0x080d448d in call_with_suspended_errors_1 (opaque_arg=138047424)
at eval.c:2172
#7 0x080d47b0 in call_with_suspended_errors (
fun=0x813a308 <normalize_image_instantiator>, retval=137785172,
class=137917500, errb=
{really_unlikely_name_to_have_accidentally_in_a_non_errb_structure = 42}, nargs=3)
at eval.c:1317
#8 0x08141cb4 in image_going_to_add (specifier=138130320, locale=137917212,
tag_set=137785172, instantiator=158511484) at glyphs.c:3457
#9 0x081e9ff9 in build_up_processed_list (specifier=138130320,
locale=137917212, inst_list=158998860) at specifier.c:1715
#10 0x081ea222 in specifier_add_spec (specifier=138130320, locale=137917212,
inst_list=158998860, add_meth=SPEC_APPEND) at specifier.c:1756
#11 0x081eafce in Fadd_spec_list_to_specifier (specifier=138130320,
spec_list=158998884, how_to_add=137906916) at specifier.c:2032
#12 0x080d6d3d in Ffuncall (nargs=4, args=0xbfffe2a0) at eval.c:3479
#13 0x0809f37e in execute_optimized_program (
program=0x846f828
"\n¬\n\013Æs«\005\013\022Ç\023È\bÉ\t!\"\b\035\211\036\021¬\022Ê\r!«\rË\r\t\013\fÇ\n&\006\210ª4\f«\037\f<¬\004\fC\024Ì\f!\024\016\021¬\f\r:«\bÍÎ\r\"\025ª\005\f\rB\025\013«\005\013\rB\025Ï\tÐ\rÉ\t!\"\n#\210*\b\207",
stack_depth=8, constants_data=0x8457210) at bytecode.c:744
#14 0x0809ef83 in funcall_compiled_function (fun=138785436, nargs=5,
args=0xbfffe404) at bytecode.c:516
#15 0x080d6ec7 in Ffuncall (nargs=6, args=0xbfffe400) at eval.c:3514
#16 0x0809f37e in execute_optimized_program (
program=0x846f7e0
"Æ\r!\025\f\016\013s«\rÇ\r\fN\013\n\t\b%\210ª\e\n¬\tÈ\r\f\013#\210ª\020É\r\f\"\210Ê\r\fN\013\n\t\b%\210\013\207",
stack_depth=6,
constants_data=0x8456f18) at bytecode.c:744
#17 0x0809ef83 in funcall_compiled_function (fun=138815448, nargs=6,
args=0xbfffe554) at bytecode.c:516
#18 0x080d6ec7 in Ffuncall (nargs=7, args=0xbfffe550) at eval.c:3514
#19 0x0809f37e in execute_optimized_program (
program=0x8470720 "Å\fÆ\013\n\t\b&\006\207Þ!", stack_depth=7,
constants_data=0x84563c8) at bytecode.c:744
#20 0x0809ef83 in funcall_compiled_function (fun=138816064, nargs=5,
args=0xbfffe6a4) at bytecode.c:516
#21 0x080d6ec7 in Ffuncall (nargs=6, args=0xbfffe6a0) at eval.c:3514
#22 0x0809f37e in execute_optimized_program (
program=0x86e8300
"\016M?\002Á\031Æ\036DÇ\030È\032É\eÊ\f!\036LË\016L!\036＠Ì\016＠ÍPÎÏ\r$\036BÌ\016＠ÐPÑÏ\r$\036CÌ\016＠ÒPÓÏ\r$\036AÌ\016＠ÔPÕÏ\r$\036EÌ\016＠ÖP×Ø\r$\036FÌ\016＠ÙPÚØ\r$\036GÌ\016＠ÛPÜØ\r$\036HÌ\016＠ÝPÞØ\r$\036IÌ\016＠ßPàØ\r$\036JÌ\016＠áPâØ\r$\036Kã\r!«\tÃä\r!!\023ª\nå\r!«\005Ã\r!\023\013«\017\013\016DB\026D\013\bB\020\013\nB\022Ê\f!æa¬\bÊ\f!ça«6\r«\006\rèa«.\016B"...,
stack_depth=7,
constants_data=0x85ff4f8) at bytecode.c:744
#23 0x0809ef83 in funcall_compiled_function (fun=140288496, nargs=2,
args=0xbfffe7f4) at bytecode.c:516
#24 0x080d6ec7 in Ffuncall (nargs=3, args=0xbfffe7f0) at eval.c:3514
#25 0x0809f37e in execute_optimized_program (
program=0x86e8288 "\b?®_\r¬.À\fÆ\"\210Ç
\211\e«\rÀ\f\013＠\"\210\013A\211\023¬õ)È
\211\032\016À\f\n＠\"\210\nA\211\022¬õÉ)\207Ê\r!«\006Ë\r!ª\tÌ\r!\004Í\r!\211\031¬\006ÎÏ!¬\006\tÏa«\aÐ\f\r\"ª\b\t?®\004\tÑa)\207\b¹\002",
stack_depth=4,
constants_data=0x846d048) at bytecode.c:744
#26 0x0809ef83 in funcall_compiled_function (fun=138843240, nargs=2,
args=0xbfffe944) at bytecode.c:516
#27 0x080d6ec7 in Ffuncall (nargs=3, args=0xbfffe940) at eval.c:3514
#28 0x0809f37e in execute_optimized_program (
program=0x86e8208 "Â
\031Ã\030\t:«\017\t＠\020Ä\bÅ\"\210\tA\211\021ªð*ÆÇ!«\004È \210ÆÉ!«\004Ê
\210ËÌÅ\"¬\006ÍÌÅ\"\210ËÎÅ\"¬\006ÏÎÅ\"\210ËÐÅ\"¬\025ÑÐÅ\"\210ËÐÅ\"¬\nÒÌÐ\"\210ÏÐ!\210ÓÌÐ\"\tÒÎÐ\"\210ÍÐ!\207\bï-AŸ-bÞy",
stack_depth=4,
constants_data=0x846a738) at bytecode.c:744
#29 0x0809ef83 in funcall_compiled_function (fun=138843324, nargs=0,
args=0xbfffeab0) at bytecode.c:516
#30 0x080d6ec7 in Ffuncall (nargs=1, args=0xbfffeaac) at eval.c:3514
#31 0x080db90a in call0_with_handler (handler=137861748, fn=137902492)
at eval.c:1869
#32 0x080c0e85 in call_critical_lisp_code (d=0x84ca178, function=137902492,
object=137785172) at device.c:1238
#33 0x0810b67f in init_global_faces (d=0x84ca178) at faces.c:876
#34 0x080bec0a in Fmake_device (type=137928420, connection=137785172,
props=137785172) at device.c:342
#35 0x080d6d3d in Ffuncall (nargs=3, args=0xbfffec28) at eval.c:3479
#36 0x0809f37e in execute_optimized_program (
program=0x8611040 "ÁÂ\b\"\207acs/etcI", stack_depth=3,
constants_data=0x8456910) at bytecode.c:744
#37 0x0809ef83 in funcall_compiled_function (fun=138784540, nargs=1,
args=0xbfffed6c) at bytecode.c:516
#38 0x080d6ec7 in Ffuncall (nargs=2, args=0xbfffed68) at eval.c:3514
#39 0x0809f37e in execute_optimized_program (
program=0x86301b8 "\f?\037Å
\210\b＠\013B\022ÆÁ!«\b\t¬\005ÇÈ!\021ÉÊ!\210\nA\023Ë\211\024\207o)", stack_depth=2,
constants_data=0x85c11e8) at bytecode.c:744
#40 0x0809ef83 in funcall_compiled_function (fun=140289280, nargs=0,
args=0xbfffeeac) at bytecode.c:516
#41 0x080d6ec7 in Ffuncall (nargs=1, args=0xbfffeea8) at eval.c:3514
#42 0x0809f37e in execute_optimized_program (
program=0x86a4730 "\013A\035ÆÇ\032\031È\r!\025\bÉa«\004Ê \210ËÌ!«\004Í
\210ËÌ!«\017ËÎ!«\aÏÐ!\210ª\004Ñ \210\f«\017\016$¬\013ÒÓÔ\f!ÕQ! \210Ö \210*× \210Ø
\210ËÙ!«\004Ú \210Û \210rÜÝ!q\210Þ \210ßà!\210\016(áa«\005\016) \210)â ãa«\bä ¬\004å \210æ
\210à\026*ä \004çÇ!)\207viroA\001", stack_depth=4,
constants_data=0x84f6c80) at bytecode.c:744
#43 0x0809ef83 in funcall_compiled_function (fun=139297968, nargs=0,
args=0xbfffeffc) at bytecode.c:516
#44 0x080d6ec7 in Ffuncall (nargs=1, args=0xbfffeff8) at eval.c:3514
#45 0x0809f37e in execute_optimized_program (
program=0x83cd638 "\t«\005ÆÇ!\207È\021ÉÊ!«\tËÌÉÊ!!!\210Í
\211\034«\025\fG\rGW«\016Î\r!Î\f!k«\005Ï\f!\025)Ð\r!\025Ñ \210Ò
\210\013®\aÉÓ!\002È\eÔ\b\016 \"\022\013«\tÕÖ×\n\"Ø\"\210\n¬\004Ù
\210Ú\n\016!\016\"\016#\013%\210Û \210)Ü \210Ý\216Þ \210)\016$\003ß \207",
stack_depth=7, constants_data=0x84ee3f8)
at bytecode.c:744
#46 0x0809ef83 in funcall_compiled_function (fun=139297912, nargs=0,
args=0xbffff0b4) at bytecode.c:516
#47 0x080d65d7 in Feval (form=139223912) at eval.c:3338
#48 0x080d3666 in condition_case_1 (handlers=137785268,
bfun=0x80d5b20 <Feval>, barg=139223912, hfun=0x80b012c <cmd_error>,
harg=137785172) at eval.c:1692
#49 0x080b01b3 in top_level_1 (dummy=137785172) at cmdloop.c:208
#50 0x080dba4c in internal_catch (tag=137861772, func=0x80b0184 <top_level_1>,
arg=137785172, threw=0x0) at eval.c:1317
#51 0x080af3f7 in initial_command_loop (load_me=137785172) at cmdloop.c:287
#52 0x080cf64d in xemacs_21_5_b5_i686_pc_linux () at emacs.c:2299
#53 0x080d1493 in main () at emacs.c:2733
#54 0x404ed6cf in __libc_start_main () from /lib/libc.so.6
(gdb)
Lisp backtrace follows:
# (unwind-protect ...)
# (catch #<INTERNAL OBJECT (XEmacs bug?) (opaque-ptr, adr=0x833abc4) 0x83622f0>
...)
# (unwind-protect ...)
add-spec-list-to-specifier(#<image-specifier global=<unspecified> 0x208>
((global (nil . "~/pic/pixmaps/background5l2.xpm"))) append)
# bind (is-valid nval how-to-add tag-set locale value specifier)
set-specifier(#<image-specifier global=<unspecified> 0x208>
"~/pic/pixmaps/background5l2.xpm" global nil append)
# bind (how-to-add tag-set locale value property face)
set-face-property(default background-pixmap "~/pic/pixmaps/background5l2.xpm"
global nil append)
# bind (how-to-add tag-set locale pixmap face)
set-face-background-pixmap(default "~/pic/pixmaps/background5l2.xpm" global
nil append)
# bind (rp bp dp hp stp ulp bgp bg fg fn name face-sym device-class tty-tag-set
x-tag-set tag-set append set-anyway locale face)
x-init-face-from-resources(default global)
# bind (devtype locale face)
init-face-from-resources(default global)
# bind (face G99446)
init-global-faces()
# (unwind-protect ...)
# (unwind-protect ...)
# bind (inhibit-quit)
# (unwind-protect ...)
# (unwind-protect ...)
make-device(x nil)
# bind (display)
make-x-device(nil)
init-x-win()
# bind (debugger debug-on-error command-line-args-left)
command-line()
# (unwind-protect ...)
normal-top-level()
# (condition-case ... . error)
# (catch top-level ...)
--
pema(a)iki.fi * http://www.iki.fi/pema/
9:55 p.m.
Malcolm Purvis <malcolmpurvis(a)optushome.com.au> writes:
Ben,
A fresh version of XEmacs, configured with:
../xemacs-21.5/configure --prefix=/usr/local/gcc3-world --with-gnome
produces:
make[1]: *** No rule to make target `events-mod.h', needed by `event-gtk.o'.
Stop.
make[1]: Leaving directory `/home/malcolmp/devl/xemacs/objdir/src'
make: *** [src] Error 2
Apply this patch, run 'make depend', then rerun configure, and bob's your
uncle. Here is the changelog. This patch includes a bunch of compilation
warning fixes as well.
2002-03-13 William M. Perry <wmperry(a)gnu.org>
* ui-gtk.c (__allocate_object_storage): Make static to avoid
warnings.
(type_to_marshaller_type): Ditto.
* symsinit.h: Added some missing *_gtk_* functions to avoid
warnings.
* select-gtk.c: Add extern definitions of lisp_to_time and
time_to_lisp to avoid warnings.
* redisplay-gtk.c (gtk_flash): reorder select/poll stuff to avoid
warning about 'poll' being implicitly defined. Mirrors change
made to redisplay-x.c some time ago.
(gtk_bevel_area): Fix unused variable warning.
* gtk-xemacs.c (smash_face_fallbacks): ifdef this out to avoid
warnings.
* glyphs-gtk.c (write_lisp_string_to_temp_file): Fix 'grpro3'
typo.
(gtk_locate_pixmap_file): Use split_external_path instead of
decode_path.
* gccache-gtk.c (gc_cache_hash): Fix signed/unsigned warning.
* event-gtk.c: event-mods.h no longer needed. event-gtk.h is.
* emacs-marshals.c (our_string_hash): Make this function static to
avoid warnings.
* device-gtk.c (gtk_event_name): Fix signed/unsigned warning.
* event-gtk.h: New header file to hold declarations from
event-gtk.c that are used in other files. The quest to remove
compilation warnings from GTK files begins.
-bp
--
Ceterum censeo vi esse delendam
10:32 a.m.
New subject: [COMMIT] Re: [MERGED-BEN-MULE] Cannot compile with GTK support.
[COMMIT] This patch has been applied.
William M. Perry wrote:
Malcolm Purvis <malcolmpurvis(a)optushome.com.au> writes:
>Ben,
>
>A fresh version of XEmacs, configured with:
>
>../xemacs-21.5/configure --prefix=/usr/local/gcc3-world --with-gnome
>
>produces:
>
>make[1]: *** No rule to make target `events-mod.h', needed by `event-gtk.o'.
Stop.
>make[1]: Leaving directory `/home/malcolmp/devl/xemacs/objdir/src'
>make: *** [src] Error 2
>
Apply this patch, run 'make depend', then rerun configure, and bob's your
uncle. Here is the changelog. This patch includes a bunch of compilation
warning fixes as well.
2002-03-13 William M. Perry <wmperry(a)gnu.org>
* ui-gtk.c (__allocate_object_storage): Make static to avoid
warnings.
(type_to_marshaller_type): Ditto.
* symsinit.h: Added some missing *_gtk_* functions to avoid
warnings.
* select-gtk.c: Add extern definitions of lisp_to_time and
time_to_lisp to avoid warnings.
* redisplay-gtk.c (gtk_flash): reorder select/poll stuff to avoid
warning about 'poll' being implicitly defined. Mirrors change
made to redisplay-x.c some time ago.
(gtk_bevel_area): Fix unused variable warning.
* gtk-xemacs.c (smash_face_fallbacks): ifdef this out to avoid
warnings.
* glyphs-gtk.c (write_lisp_string_to_temp_file): Fix 'grpro3'
typo.
(gtk_locate_pixmap_file): Use split_external_path instead of
decode_path.
* gccache-gtk.c (gc_cache_hash): Fix signed/unsigned warning.
* event-gtk.c: event-mods.h no longer needed. event-gtk.h is.
* emacs-marshals.c (our_string_hash): Make this function static to
avoid warnings.
* device-gtk.c (gtk_event_name): Fix signed/unsigned warning.
* event-gtk.h: New header file to hold declarations from
event-gtk.c that are used in other files. The quest to remove
compilation warnings from GTK files begins.
-bp
------------------------------------------------------------------------
Index: console-gtk.h
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/console-gtk.h,v
retrieving revision 1.2.6.1
diff -u -w -u -w -r1.2.6.1 console-gtk.h
--- console-gtk.h 2002/03/04 08:37:03 1.2.6.1
+++ console-gtk.h 2002/03/13 21:13:20
＠＠ -235,5 +235,20 ＠＠
extern Lisp_Object Vgtk_initial_argv_list; /* #### ugh! */
const char *gtk_event_name (GdkEventType event_type);
+
+void reinit_console_type_create_gtk (void);
+
+void emacs_gtk_selection_handle (GtkWidget *,
+ GtkSelectionData *selection_data,
+ guint info,
+ guint time_stamp,
+ gpointer data);
+void emacs_gtk_selection_clear_event_handle (GtkWidget *widget,
+ GdkEventSelection *event,
+ gpointer data);
+void emacs_gtk_selection_received (GtkWidget *widget,
+ GtkSelectionData *selection_data,
+ gpointer user_data);
+
#endif /* HAVE_GTK */
#endif /* _XEMACS_DEVICE_X_H_ */
Index: device-gtk.c
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/device-gtk.c,v
retrieving revision 1.4.2.3
diff -u -w -u -w -r1.4.2.3 device-gtk.c
--- device-gtk.c 2002/03/04 08:37:03 1.4.2.3
+++ device-gtk.c 2002/03/13 21:13:20
＠＠ -121,18 +121,6 ＠＠
extern void gdk_imlib_init(void);
#endif
-extern void emacs_gtk_selection_handle (GtkWidget *,
- GtkSelectionData *selection_data,
- guint info,
- guint time_stamp,
- gpointer data);
-extern void emacs_gtk_selection_clear_event_handle (GtkWidget *widget,
- GdkEventSelection *event,
- gpointer data);
-extern void emacs_gtk_selection_received (GtkWidget *widget,
- GtkSelectionData *selection_data,
- gpointer user_data);
-
#ifdef HAVE_BONOBO
static CORBA_ORB orb;
#endif
＠＠ -399,7 +387,7 ＠＠
{
GtkEnumValue *vals = gtk_type_enum_get_values (GTK_TYPE_GDK_EVENT_TYPE);
- while (vals && (vals->value != event_type)) vals++;
+ while (vals && ((GdkEventType)(vals->value) != event_type)) vals++;
if (vals)
return (vals->value_nick);
Index: emacs-marshals.c
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/emacs-marshals.c,v
retrieving revision 1.2.6.1
diff -u -w -u -w -r1.2.6.1 emacs-marshals.c
--- emacs-marshals.c 2001/08/16 01:49:27 1.2.6.1
+++ emacs-marshals.c 2002/03/13 21:13:20
＠＠ -1467,7 +1467,7 ＠＠
return !strcmp ( (const char *) st1, (const char *) st2);
}
-unsigned long
+static unsigned long
our_string_hash (const void *xv)
{
unsigned int h = 0;
Index: event-gtk.c
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/event-gtk.c,v
retrieving revision 1.3.2.11
diff -u -w -u -w -r1.3.2.11 event-gtk.c
--- event-gtk.c 2002/02/20 06:40:06 1.3.2.11
+++ event-gtk.c 2002/03/13 21:13:22
＠＠ -60,9 +60,9 ＠＠
#include "offix.h"
#endif
-#include "events-mod.h"
-
#include <gdk/gdkx.h>
+
+#include "event-gtk.h"
static struct event_stream *gtk_event_stream;
Index: event-gtk.h
===================================================================
RCS file: event-gtk.h
diff -N event-gtk.h
--- /dev/null Wed Mar 13 22:05:04 2002
+++ event-gtk.h Wed Mar 13 22:13:22 2002
＠＠ -0,0 +1,37 ＠＠
+/* Header file for miscellaneous event functions for GTK.
+ Copyright (C) 2002 William Perry.
+
+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 __EVENT_GTK_H__
+#define __EVENT_GTK_H__
+
+int gtk_event_to_emacs_event (struct frame *frame,
+ GdkEvent *gdk_event,
+ struct Lisp_Event *emacs_event);
+
+gint emacs_gtk_key_event_handler(GtkWidget *widget, GdkEventKey *event);
+gint emacs_gtk_button_event_handler(GtkWidget *widget, GdkEventButton *event);
+gint emacs_gtk_motion_event_handler (GtkWidget *widget, GdkEventMotion *event);
+
+gboolean emacs_shell_event_handler (GtkWidget *wid /* unused */,
+ GdkEvent *event,
+ gpointer closure);
+void reinit_vars_of_event_gtk (void);
+
+#endif /* __EVENT-GTK_H__ */
Index: gccache-gtk.c
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/gccache-gtk.c,v
retrieving revision 1.2
diff -u -w -u -w -r1.2 gccache-gtk.c
--- gccache-gtk.c 2001/04/12 18:23:48 1.2
+++ gccache-gtk.c 2002/03/13 21:13:22
＠＠ -97,7 +97,7 ＠＠
const struct gcv_and_mask *gcvm = (const struct gcv_and_mask *) arg;
unsigned long *longs = (unsigned long *) &gcvm->gcv;
unsigned long hash = gcvm->mask;
- int i;
+ unsigned int i;
/* This could look at the mask and only use the used slots in the
hash code. That would win in that we wouldn't have to initialize
every slot of the gcv when calling gc_cache_lookup. But we need
Index: glyphs-gtk.c
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/glyphs-gtk.c,v
retrieving revision 1.3.2.14
diff -u -w -u -w -r1.3.2.14 glyphs-gtk.c
--- glyphs-gtk.c 2002/03/04 08:37:10 1.3.2.14
+++ glyphs-gtk.c 2002/03/13 21:13:24
＠＠ -574,7 +574,7 ＠＠
if (NILP (Vgtk_bitmap_file_path))
{
Vgtk_bitmap_file_path = nconc2 (Vgtk_bitmap_file_path,
- (decode_path (BITMAPDIR)));
+ (split_external_path (BITMAPDIR)));
}
{
＠＠ -1090,10 +1090,9 ＠＠
static Extbyte_dynarr *conversion_out_dynarr;
Bytecount bstart, bend;
Lisp_Object tempfile;
- struct gcpro gcpro1, gcpro2, grpro3;
+ struct gcpro gcpro1, gcpro2, gcpro3, gcpro4;
Lisp_Object conv_out_stream;
Lstream *costr;
- struct gcpro gcpro4;
/* This function can GC */
if (!conversion_out_dynarr)
Index: gtk-glue.c
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/gtk-glue.c,v
retrieving revision 1.2.6.2
diff -u -w -u -w -r1.2.6.2 gtk-glue.c
--- gtk-glue.c 2002/02/20 06:40:13 1.2.6.2
+++ gtk-glue.c 2002/03/13 21:13:24
＠＠ -225,8 +225,6 ＠＠
return (style);
}
-extern int gtk_event_to_emacs_event (struct frame *, GdkEvent *, struct Lisp_Event *);
-
static Lisp_Object
gdk_event_to_emacs_event(GdkEvent *ev)
{
Index: gtk-xemacs.c
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/gtk-xemacs.c,v
retrieving revision 1.2.6.3
diff -u -w -u -w -r1.2.6.3 gtk-xemacs.c
--- gtk-xemacs.c 2002/03/04 08:37:12 1.2.6.3
+++ gtk-xemacs.c 2002/03/13 21:13:24
＠＠ -15,6 +15,7 ＠＠
#include "gtk-xemacs.h"
#include "window.h"
#include "faces.h"
+#include "event-gtk.h"
extern Lisp_Object Vmodeline_face;
extern Lisp_Object Vscrollbar_on_left_p;
＠＠ -58,10 +59,6 ＠＠
static GtkWidgetClass *parent_class;
-extern gint emacs_gtk_button_event_handler(GtkWidget *widget, GdkEventButton *event);
-extern gint emacs_gtk_key_event_handler(GtkWidget *widget, GdkEventKey *event);
-extern gint emacs_gtk_motion_event_handler(GtkWidget *widget, GdkEventMotion *event);
-
static void
gtk_xemacs_class_init (GtkXEmacsClass *class)
{
＠＠ -135,6 +132,7 ＠＠
#define convert_font(f) __get_gtk_font_truename (f, 0)
+#ifdef SMASH_FACE_FALLBACKS
static void
smash_face_fallbacks (struct frame *f, GtkStyle *style)
{
＠＠ -176,6 +174,7 ＠＠
#undef FROB
#undef FROB_FACE
}
+#endif /* SMASH_FACE_FALLBACKS */
#ifdef HAVE_SCROLLBARS
static void
＠＠ -235,7 +234,7 ＠＠
if (x->f)
{
__nuke_background_items (widget);
-#if 0
+#ifdef SMASH_FACE_FALLBACKS
smash_face_fallbacks (x->f, new_style);
#endif
#ifdef HAVE_SCROLLBARS
Index: redisplay-gtk.c
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/redisplay-gtk.c,v
retrieving revision 1.2.6.2
diff -u -w -u -w -r1.2.6.2 redisplay-gtk.c
--- redisplay-gtk.c 2002/03/04 08:37:18 1.2.6.2
+++ redisplay-gtk.c 2002/03/13 21:13:25
＠＠ -857,7 +857,7 ＠＠
upos = dl->descent / 2;
uthick = 1;
- if (dl->ypos + upos < dl->ypos + dl->descent - dl->clip)
+ if ((dl->ypos + upos) < (dl->ypos + dl->descent - dl->clip))
{
if (dl->ypos + upos + uthick > dl->ypos + dl->descent - dl->clip)
uthick = dl->descent - dl->clip - upos;
＠＠ -1785,9 +1785,6 ＠＠
gdk_flush ();
-#ifdef HAVE_POLL
- poll (0, 0, 100);
-#else /* !HAVE_POLL */
#ifdef HAVE_SELECT
{
int usecs = 100000;
＠＠ -1798,9 +1795,12 ＠＠
select (0, 0, 0, 0, &tv);
}
#else
+#ifdef HAVE_POLL
+ poll (0, 0, 100);
+#else
bite me
-#endif /* HAVE_POLL */
-#endif /* HAVE_SELECT */
+#endif
+#endif
gdk_draw_rectangle (GDK_DRAWABLE (GET_GTK_WIDGET_WINDOW (FRAME_GTK_SHELL_WIDGET (f))),
gc, TRUE, w->pixel_left, w->pixel_top,
＠＠ -1817,7 +1817,6 ＠＠
int shadow_thickness, int edges, enum edge_style style)
{
struct frame *f = XFRAME (w->frame);
- struct device *d = XDEVICE (f->device);
gtk_output_shadows (f, x, y, width, height, shadow_thickness);
}
Index: select-gtk.c
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/select-gtk.c,v
retrieving revision 1.3.2.5
diff -u -w -u -w -r1.3.2.5 select-gtk.c
--- select-gtk.c 2002/03/04 08:37:20 1.3.2.5
+++ select-gtk.c 2002/03/13 21:13:25
＠＠ -43,6 +43,9 ＠＠
static gboolean waiting_for_selection;
Lisp_Object Vgtk_sent_selection_hooks;
+extern int lisp_to_time (Lisp_Object, time_t *);
+extern Lisp_Object time_to_lisp (time_t);
+
static GdkAtom
symbol_to_gtk_atom (struct device *d, Lisp_Object sym, int only_if_exists)
{
Index: symsinit.h
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/symsinit.h,v
retrieving revision 1.36.2.10
diff -u -w -u -w -r1.36.2.10 symsinit.h
--- symsinit.h 2001/10/27 07:56:46 1.36.2.10
+++ symsinit.h 2002/03/13 21:13:26
＠＠ -508,6 +508,8 ＠＠
void syms_of_objects_gtk (void);
void syms_of_select_gtk (void);
void syms_of_ui_gtk (void);
+void syms_of_widget_accessors (void);
+void syms_of_ui_byhand (void);
void console_type_create_gtk (void);
void console_type_create_device_gtk (void);
void console_type_create_frame_gtk (void);
＠＠ -532,5 +534,6 ＠＠
void vars_of_ui_gtk (void);
void complex_vars_of_glyphs_gtk (void);
void init_event_gtk_late (void);
+void console_type_create_select_gtk (void);
#endif /* INCLUDED_symsinit_h_ */
Index: ui-gtk.c
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/ui-gtk.c,v
retrieving revision 1.3.2.2
diff -u -w -u -w -r1.3.2.2 ui-gtk.c
--- ui-gtk.c 2002/02/20 06:40:23 1.3.2.2
+++ ui-gtk.c 2002/03/13 21:13:26
＠＠ -22,6 +22,7 ＠＠
#include "hash.h"
#include "events.h"
#include "elhash.h"
+#include "event-gtk.h"
/* XEmacs specific GTK types */
#include "gtk-glue.c"
＠＠ -36,7 +37,9 ＠＠
Lisp_Object gtk_type_to_lisp (GtkArg *arg);
int lisp_to_gtk_type (Lisp_Object obj, GtkArg *arg);
+#if 0
void describe_gtk_arg (GtkArg *arg);
+#endif
guint symbol_to_enum (Lisp_Object obj, GtkType t);
static guint lisp_to_flag (Lisp_Object obj, GtkType t);
static Lisp_Object flags_to_list (guint value, GtkType t);
＠＠ -367,7 +370,7 ＠＠
if (freep) xfree(v); \
} while (0)
-gpointer __allocate_object_storage (GtkType t)
+static gpointer __allocate_object_storage (GtkType t)
{
size_t s = 0;
void *rval = NULL;
＠＠ -437,7 +440,7 ＠＠
return (rval);
}
-Lisp_Object type_to_marshaller_type (GtkType t)
+static Lisp_Object type_to_marshaller_type (GtkType t)
{
switch (GTK_FUNDAMENTAL_TYPE (t))
{
＠＠ -1363,6 +1366,7 ＠＠
/* Various utility functions */
+#if 0
void describe_gtk_arg (GtkArg *arg)
{
GtkArg a = *arg;
＠＠ -1441,6 +1445,7 ＠＠
abort();
}
}
+#endif
Lisp_Object gtk_type_to_lisp (GtkArg *arg)
{
Index: ui-gtk.h
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/ui-gtk.h,v
retrieving revision 1.2.6.1
diff -u -w -u -w -r1.2.6.1 ui-gtk.h
--- ui-gtk.h 2001/08/16 01:50:15 1.2.6.1
+++ ui-gtk.h 2002/03/13 21:13:26
＠＠ -71,4 +71,6 ＠＠
#define GTK_BOXEDP(x) RECORDP (x, emacs_gtk_boxed)
#define CHECK_GTK_BOXED(x) CHECK_RECORD (x, emacs_gtk_boxed)
+extern Lisp_Object build_gtk_boxed (void *obj, GtkType t);
+
#endif /* __UI_GTK_H__ */
8287
days inactive
8291
days old
11 comments
7 participants
participants (7)
-
Ben Wing -
Malcolm Purvis -
Pekka Marjola -
Robert Pluim -
Simon Josefsson -
Stephen J. Turnbull -
William M. Perry