[Emacs-diffs] Changes to emacs/lisp/loadup.el

[Stefan Monnier]

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