comparison src/print.c @ 1261:465bd3c7d932

[xemacs-hg @ 2003-02-06 06:35:47 by ben] various bug fixes mule/cyril-util.el: Fix compile warning. loadup.el, make-docfile.el, update-elc-2.el, update-elc.el: Set stack-trace-on-error, load-always-display-messages so we get better debug results. update-elc-2.el: Fix typo in name of lisp/mule, leading to compile failure. simple.el: Omit M-S-home/end from motion keys. update-elc.el: Overhaul: -- allow list of "early-compile" files to be specified, not hardcoded -- fix autoload checking to include all .el files, not just dumped ones -- be smarter about regenerating autoloads, so we don't need to use loadup-el if not necessary -- use standard methods for loading/not loading auto-autoloads.el (maybe fixes "Already loaded" error?) -- rename misleading NOBYTECOMPILE flag file. window-xemacs.el: Fix bug in default param. window-xemacs.el: Fix compile warnings. lwlib-Xm.c: Fix compile warning. lispref/mule.texi: Lots of Mule rewriting. internals/internals.texi: Major fixup. Correct for new names of Bytebpos, Ichar, etc. and lots of Mule rewriting. config.inc.samp: Various fixups. Makefile.in.in: NOBYTECOMPILE -> BYTECOMPILE_CHANGE. esd.c: Warning fixes. fns.c: Eliminate bogus require-prints-loading-message; use already existent load-always-display-messages instead. Make sure `load' knows we are coming from `require'. lread.c: Turn on `load-warn-when-source-newer' by default. Change loading message to indicate when we are `require'ing. Eliminate purify_flag hacks to display more messages; instead, loadup and friends specify this explicitly with `load-always-display-messages'. Add spaces when batch to clearly indicate recursive loading. Fassoc() does not GC so no need to gcpro. gui-x.c, gui-x.h, menubar-x.c: Fix up crashes when selecting menubar items due to lack of GCPROing of callbacks in lwlib structures. eval.c, lisp.h, print.c: Don't canonicalize to selected-frame when noninteractive, or backtraces get all screwed up as some values are printed through the stream console and some aren't. Export canonicalize_printcharfun() and use in Fbacktrace().
author ben
date Thu, 06 Feb 2003 06:36:17 +0000
parents e22b0213b713
children 01c57eb70ae9
comparison
equal deleted inserted replaced
1260:278c9cd3435e 1261:465bd3c7d932
1 /* Lisp object printing and output streams. 1 /* Lisp object printing and output streams.
2 Copyright (C) 1985, 1986, 1988, 1992-1995 Free Software Foundation, Inc. 2 Copyright (C) 1985, 1986, 1988, 1992-1995 Free Software Foundation, Inc.
3 Copyright (C) 1995, 1996, 2000, 2001, 2002 Ben Wing. 3 Copyright (C) 1995, 1996, 2000, 2001, 2002, 2003 Ben Wing.
4 4
5 This file is part of XEmacs. 5 This file is part of XEmacs.
6 6
7 XEmacs is free software; you can redistribute it and/or modify it 7 XEmacs is free software; you can redistribute it and/or modify it
8 under the terms of the GNU General Public License as published by the 8 under the terms of the GNU General Public License as published by the
437 #define RESET_PRINT_GENSYM do { \ 437 #define RESET_PRINT_GENSYM do { \
438 if (!CONSP (Vprint_gensym)) \ 438 if (!CONSP (Vprint_gensym)) \
439 Vprint_gensym_alist = Qnil; \ 439 Vprint_gensym_alist = Qnil; \
440 } while (0) 440 } while (0)
441 441
442 static Lisp_Object 442 Lisp_Object
443 canonicalize_printcharfun (Lisp_Object printcharfun) 443 canonicalize_printcharfun (Lisp_Object printcharfun)
444 { 444 {
445 if (NILP (printcharfun)) 445 if (NILP (printcharfun))
446 printcharfun = Vstandard_output; 446 printcharfun = Vstandard_output;
447 447
448 if (EQ (printcharfun, Qt) || NILP (printcharfun)) 448 if (!noninteractive && (EQ (printcharfun, Qt) || NILP (printcharfun)))
449 printcharfun = Fselected_frame (Qnil); /* print to minibuffer */ 449 printcharfun = Fselected_frame (Qnil); /* print to minibuffer */
450 450
451 return printcharfun; 451 return printcharfun;
452 } 452 }
453 453