home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Professional / OS2PRO194.ISO / os2 / prgramer / unix / emacs / src / lib.el < prev    next >
Encoding:
Text File  |  1992-06-23  |  1.6 KB  |  55 lines
  1.  
  2. ;; Recompiling all lisp files used for Emacs startup.
  3. ;; isearch.el and replace.el seems to be quite big ...
  4.  
  5. (setq max-lisp-eval-depth 400)
  6.  
  7.  
  8.  
  9.  
  10. (load "bytecomp")
  11. (load "subr")
  12. (load "loaddefs")
  13. (load "files")
  14. (load "lisp")
  15. (load "lisp-mode")
  16. (load "os2")                            ; write .elc files in binary mode
  17. (setq lisp-path (concat exec-directory "../lisp"))
  18.  
  19.  
  20. (defun byte-compile-old-file (file)
  21.   "Byte-compile FILE in main Emacs Lisp path, if corrrespondant
  22. .elc file does not exist or is older than it.
  23. If you want to compile FILE in another directory, preceed it with\"//\"."
  24.   (if (file-newer-than-file-p
  25.        (expand-file-name file lisp-path)
  26.        (expand-file-name (concat file "c") lisp-path))
  27.       (byte-compile-file (expand-file-name file lisp-path))))
  28.  
  29.  
  30.  
  31. (byte-compile-old-file "simple.el")
  32. (byte-compile-old-file "help.el")     
  33. (byte-compile-old-file "files.el") 
  34. (byte-compile-old-file "window.el")     
  35. (byte-compile-old-file "indent.el") 
  36. (byte-compile-old-file "startup.el") 
  37. (byte-compile-old-file "lisp.el")     
  38. (byte-compile-old-file "page.el") 
  39. (byte-compile-old-file "register.el")     
  40. (byte-compile-old-file "paragraphs.el") 
  41. (byte-compile-old-file "lisp-mode.el")     
  42. (byte-compile-old-file "text-mode.el") 
  43. (byte-compile-old-file "fill.el")     
  44. (byte-compile-old-file "c-mode.el") 
  45. (byte-compile-old-file "isearch.el")     
  46. (byte-compile-old-file "replace.el") 
  47. (byte-compile-old-file "abbrev.el") 
  48. (byte-compile-old-file "buff-menu.el") 
  49. (byte-compile-old-file "subr.el")
  50. (byte-compile-old-file "backquote.el")
  51. (byte-compile-old-file "em-keys.el")
  52. (byte-compile-old-file "os2.el")
  53.  
  54. (kill-emacs)
  55.