comparison lisp/update-elc-2.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 c08a6fa181d1
children 1b4bc72f433e
comparison
equal deleted inserted replaced
1260:278c9cd3435e 1261:465bd3c7d932
1 ;;; update-elc-2.el --- Recompile remaining .el files, post-dumping 1 ;;; update-elc-2.el --- Recompile remaining .el files, post-dumping
2 2
3 ;; Copyright (C) 1997 by Free Software Foundation, Inc. 3 ;; Copyright (C) 1997 by Free Software Foundation, Inc.
4 ;; Copyright (C) 2000 Ben Wing. 4 ;; Copyright (C) 2000, 2003 Ben Wing.
5 5
6 ;; Author: Ben Wing <ben@xemacs.org>, based on cleantree.el by 6 ;; Author: Ben Wing <ben@xemacs.org>, based on cleantree.el by
7 ;; Steven L Baur <steve@xemacs.org> 7 ;; Steven L Baur <steve@xemacs.org>
8 ;; Maintainer: XEmacs Development Team 8 ;; Maintainer: XEmacs Development Team
9 ;; Keywords: internal 9 ;; Keywords: internal
43 ;; 43 ;;
44 ;; The original cleantree.el had the comment: This code is derived 44 ;; The original cleantree.el had the comment: This code is derived
45 ;; from Gnus based on a suggestion by David Moore <dmoore@ucsd.edu> 45 ;; from Gnus based on a suggestion by David Moore <dmoore@ucsd.edu>
46 46
47 ;;; Code: 47 ;;; Code:
48
49 ;; Help debug problems.
50 (setq stack-trace-on-error t
51 load-always-display-messages t)
48 52
49 (defvar update-elc-ignored-dirs 53 (defvar update-elc-ignored-dirs
50 `("." ".." "CVS" "SCCS" "RCS" ,@(unless (featurep 'mule) '("mule")))) 54 `("." ".." "CVS" "SCCS" "RCS" ,@(unless (featurep 'mule) '("mule"))))
51 55
52 (defvar update-elc-ignored-files 56 (defvar update-elc-ignored-files
160 (delete (concat (file-name-as-directory moddir) "..") 164 (delete (concat (file-name-as-directory moddir) "..")
161 (directory-files moddir t nil nil 0))) 165 (directory-files moddir t nil nil 0)))
162 t) 166 t)
163 (byte-recompile-file generated-autoload-file 0))) 167 (byte-recompile-file generated-autoload-file 0)))
164 (when (featurep 'mule) 168 (when (featurep 'mule)
165 (let* ((muledir (expand-file-name "../modules" (file-truename dir))) 169 (let* ((muledir (expand-file-name "../lisp/mule" (file-truename dir)))
166 (generated-autoload-file 170 (generated-autoload-file
167 (expand-file-name "auto-autoloads.el" muledir)) 171 (expand-file-name "auto-autoloads.el" muledir))
168 (autoload-package-name "mule")) ; feature prefix 172 (autoload-package-name "mule")) ; feature prefix
169 (update-autoload-files (list muledir)) 173 (update-autoload-files (list muledir))
170 (byte-recompile-file generated-autoload-file 0))) 174 (byte-recompile-file generated-autoload-file 0)))