comparison lisp/window-xemacs.el @ 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 78781398fc4c
children e04cd2f562b7
comparison
equal deleted inserted replaced
1260:278c9cd3435e 1261:465bd3c7d932
72 "Return a list of windows on FRAME, beginning with WINDOW. 72 "Return a list of windows on FRAME, beginning with WINDOW.
73 FRAME and WINDOW default to the selected ones. 73 FRAME and WINDOW default to the selected ones.
74 Optional second arg MINIBUF t means count the minibuffer window 74 Optional second arg MINIBUF t means count the minibuffer window
75 even if not active. If MINIBUF is neither t nor nil it means 75 even if not active. If MINIBUF is neither t nor nil it means
76 not to count the minibuffer even if it is active." 76 not to count the minibuffer even if it is active."
77 (setq window (or window (selected-window)) 77 (setq frame (or frame (selected-frame))
78 frame (or frame (selected-frame))) 78 window (or window (selected-window frame)))
79 (if (not (eq (window-frame window) frame)) 79 (if (not (eq (window-frame window) frame))
80 (error "Window must be on frame.")) 80 (error "Window must be on frame."))
81 (let ((current-frame (selected-frame)) 81 (let ((current-frame (selected-frame))
82 list) 82 list)
83 (unwind-protect 83 (unwind-protect
296 ;; avoid that `set-window-point' will set the buffer's point for 296 ;; avoid that `set-window-point' will set the buffer's point for
297 ;; the selected window 297 ;; the selected window
298 (select-window (minibuffer-window frame)) 298 (select-window (minibuffer-window frame))
299 299
300 (let ((window-configuration-current-window nil)) 300 (let ((window-configuration-current-window nil))
301 (declare (special window-configuration-current-window))
301 (restore-saved-window configuration 302 (restore-saved-window configuration
302 root-window 303 root-window
303 (window-configuration-saved-root-window configuration) 304 (window-configuration-saved-root-window configuration)
304 'vertical) 305 'vertical)
305 (if window-configuration-current-window 306 (if window-configuration-current-window
371 (if (not (saved-window-minibufferp saved-window)) 372 (if (not (saved-window-minibufferp saved-window))
372 (restore-saved-window-parameters configuration window saved-window))) 373 (restore-saved-window-parameters configuration window saved-window)))
373 374
374 (defun restore-saved-window-parameters (configuration window saved-window) 375 (defun restore-saved-window-parameters (configuration window saved-window)
375 "Restore the window parameters stored in SAVED-WINDOW on WINDOW." 376 "Restore the window parameters stored in SAVED-WINDOW on WINDOW."
377 (declare (special window-configuration-current-window))
376 (let ((buffer (saved-window-buffer saved-window))) 378 (let ((buffer (saved-window-buffer saved-window)))
377 (if (and buffer (buffer-live-p buffer)) 379 (if (and buffer (buffer-live-p buffer))
378 (progn 380 (progn
379 (set-window-buffer window 381 (set-window-buffer window
380 (saved-window-buffer saved-window)) 382 (saved-window-buffer saved-window))