X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/5553563924453df2e3c5bf011bf5b7527172b2f6..25d2f683b3e5c624f23fb395fcf96e7c3b21a03e:/lisp/loadup.el

diff --git a/lisp/loadup.el b/lisp/loadup.el
index dc91a6b086..09c73378da 100644
--- a/lisp/loadup.el
+++ b/lisp/loadup.el
@@ -1,6 +1,6 @@
 ;;; loadup.el --- load up standardly loaded Lisp files for Emacs
 
-;; Copyright (C) 1985, 1986, 1992, 1994 Free Software Foundation, Inc.
+;; Copyright (C) 1985, 1986, 1992, 1994, 2001 Free Software Foundation, Inc.
 
 ;; Maintainer: FSF
 ;; Keywords: internal
@@ -37,6 +37,7 @@
     (let ((path (car load-path)))
       (setq load-path (list path
 			    (expand-file-name "emacs-lisp" path)
+			    (expand-file-name "language" path)
 			    (expand-file-name "international" path)))))
 
 (message "Using load-path %s" load-path)
@@ -64,6 +65,8 @@
 (load "simple")
 (load "files")
 
+(load "faces")  ; after here, `defface' may be used.
+
 (message "Lists of integers (garbage collection statistics) are normal output")
 (message "while building Emacs; they do not indicate a problem.")
 (message "%s" (garbage-collect))
@@ -71,6 +74,7 @@
 (message "%s" (garbage-collect))
 
 (load "help")
+
 ;; Any Emacs Lisp source file (*.el) loaded here after can contain
 ;; multilingual text.
 (load "international/mule-cmds")
@@ -106,13 +110,15 @@
 (load "language/tibetan")
 (load "language/vietnamese")
 (load "language/misc-lang")
+(load "language/utf-8-lang")
+(load "language/georgian")
 (update-coding-systems-internal)
 
 (load "indent")
 (load "window")
 (load "frame")
 (load "term/tty-colors")
-(load "faces")
+
 (if (fboundp 'frame-face-alist)
     (progn
       (load "facemenu")))