Martin Buchholz <martin(a)xemacs.org> writes:
For bonus points: write a program that will find all the places in
the code that a naked return (without RETURN_UNGCPRO) is being called
from within a GCPRO'ed region of code.
I added it to my TODO list.
Y> - /* XEmacs addition: */
Y> - /* This function used to be in C, ostensibly so that
Y> - it could be called here. But that's just silly.
Y> - There's no reason C code can't call out to Lisp
Y> - code, and it's a lot cleaner this way. */
Y> - if (!NILP (Ffboundp (Qcompute_buffer_file_truename)))
Y> - call1 (Qcompute_buffer_file_truename, make_buffer (buf));
I suggest you do some more thinking here.
Obviously someone intended for the function
compute-buffer-file-truename (in files.el) to be called. Your job is
to figure out WHY. Perhaps the value is to be used, or perhaps
compute-buffer-file-truename is being called for side-effect.
You're right. How broken. Lisp function is called for
side-effect! I'll leave those code untouched.
--
Yoshiki Hayashi