[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/loadup.el
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/loadup.el |
Date: |
Mon, 18 Mar 2002 15:20:44 -0500 |
Index: emacs/lisp/loadup.el
diff -c emacs/lisp/loadup.el:1.118 emacs/lisp/loadup.el:1.119
*** emacs/lisp/loadup.el:1.118 Sun Jan 20 10:35:09 2002
--- emacs/lisp/loadup.el Mon Mar 18 15:20:44 2002
***************
*** 42,51 ****
(message "Using load-path %s" load-path)
! ;;; We don't want to have any undo records in the dumped Emacs.
(buffer-disable-undo "*scratch*")
(load "byte-run")
(load "subr")
;; We specify .el in case someone compiled version.el by mistake.
--- 42,52 ----
(message "Using load-path %s" load-path)
! ;; We don't want to have any undo records in the dumped Emacs.
(buffer-disable-undo "*scratch*")
(load "byte-run")
+ (load "emacs-lisp/backquote")
(load "subr")
;; We specify .el in case someone compiled version.el by mistake.
***************
*** 53,59 ****
(load "widget")
(load "custom")
- (load "emacs-lisp/backquote")
(load "map-ynp")
(load "env")
(load "cus-start")
--- 54,59 ----
***************
*** 112,117 ****
--- 112,121 ----
(load "language/misc-lang")
(load "language/utf-8-lang")
(load "language/georgian")
+
+ (load "international/ucs-tables")
+ (unify-8859-on-encoding-mode 1)
+
(update-coding-systems-internal)
(load "indent")
***************
*** 205,215 ****
(versions (mapcar (function (lambda (name)
(string-to-int (substring name (length
base)))))
files)))
! (setq emacs-version (format "%s.%d"
! emacs-version
! (if versions
! (1+ (apply 'max versions))
! 1)))))
;; Note: all compiled Lisp files loaded above this point
;; must be among the ones parsed by make-docfile
--- 209,218 ----
(versions (mapcar (function (lambda (name)
(string-to-int (substring name (length
base)))))
files)))
! ;; `emacs-version' is a constant, so we shouldn't change it with `setq'.
! (defconst emacs-version
! (format "%s.%d"
! emacs-version (if versions (1+ (apply 'max versions)) 1)))))
;; Note: all compiled Lisp files loaded above this point
;; must be among the ones parsed by make-docfile
***************
*** 331,334 ****
--- 334,342 ----
(eval top-level)
+
+ ;;; Local Variables:
+ ;;; no-byte-compile: t
+ ;;; no-update-autoloads: t
+ ;;; End:
;;; loadup.el ends here