Mercurial > hg > xemacs-beta

comparison lisp/startup.el @ 528:ef4d2466a29c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2001-05-10 09:59:45 by ben] implement user-name-all-completions under Windows. xemacs.mak: need another lib (netapi32.lib) for user-name-all-completions. emacs.c: create new function force-debugging-signal (only when DEBUG_XEMACS) to breakpoint or abort to the debugger. mule\mule-coding.el, file-coding.c, file-coding.h, lisp.h: move coding-system-charset to lisp to avoid doc warning. autoload.el, packages.el, startup.el, update-elc-2.el, update-elc.el: Rewrite much of the bootstrapping process to be more robust, and in particular to rebuild the auto-autoloads and custom-loads files no matter what state (including missing) they're currently in. xemacs.mak: remove autoload-building target. Makefile.in.in: remove autoload targets.
author ben
date Thu, 10 May 2001 09:59:57 +0000
parents 7039e6323819
children 38db05db9cb5
comparison
equal deleted inserted replaced
527:7b35ad872326 528:ef4d2466a29c
447 inhibit-early-packages 447 inhibit-early-packages
448 inhibit-site-lisp 448 inhibit-site-lisp
449 debug-paths) 449 debug-paths)
450 (startup-setup-paths-warning)) 450 (startup-setup-paths-warning))
451 451
452 (if (and (not inhibit-autoloads) 452 (startup-load-autoloads)
453 lisp-directory)
454 (load (expand-file-name (file-name-sans-extension autoload-file-name)
455 lisp-directory) nil t))
456
457 (if (not inhibit-autoloads)
458 (progn
459 (if (not inhibit-early-packages)
460 (packages-load-package-auto-autoloads early-package-load-path))
461 (packages-load-package-auto-autoloads late-package-load-path)
462 (packages-load-package-auto-autoloads last-package-load-path)))
463 453
464 (unwind-protect 454 (unwind-protect
465 (command-line) 455 (command-line)
466 ;; Do this again, in case the init file defined more abbreviations. 456 ;; Do this again, in case the init file defined more abbreviations.
467 (setq default-directory (abbreviate-file-name default-directory)) 457 (setq default-directory (abbreviate-file-name default-directory))
1425 (princ "\nWARNING:\n" 'external-debugging-output) 1415 (princ "\nWARNING:\n" 'external-debugging-output)
1426 (princ (buffer-string) 'external-debugging-output) 1416 (princ (buffer-string) 'external-debugging-output)
1427 (erase-buffer) 1417 (erase-buffer)
1428 t))))) 1418 t)))))
1429 1419
1420 (defun startup-load-autoloads ()
1421 (if (and (not inhibit-autoloads)
1422 lisp-directory)
1423 (load (expand-file-name (file-name-sans-extension autoload-file-name)
1424 lisp-directory) nil t))
1425
1426 (if (not inhibit-autoloads)
1427 (progn
1428 (if (not inhibit-early-packages)
1429 (packages-load-package-auto-autoloads early-package-load-path))
1430 (packages-load-package-auto-autoloads late-package-load-path)
1431 (packages-load-package-auto-autoloads last-package-load-path))))
1432
1430 ;;; startup.el ends here 1433 ;;; startup.el ends here