home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / elisp / misc / dump-my-emacs.el < prev    next >
Encoding:
Text File  |  1993-02-01  |  3.9 KB  |  108 lines
  1. ; From: nickel@cs.tu-berlin.de (Juergen Nickelsen)
  2. ; Subject: Dumping a private copy of Emacs (was Re: model for .emacs file)
  3. ; Date: 16 Jan 93 00:44:26 GMT
  4. ; Organization: STONE Project, Technical University of Berlin, Germany
  5. ; 
  6. ; In article <GISLI.93Jan13225133@liapunov.eecs.umich.edu>
  7. ; gisli@liapunov.eecs.umich.edu (Gisli Ottarsson) writes:
  8. ; 
  9. ; > How about dumping your private copy of emacs once all your
  10. ; > customization has stablized?  Works fine for me.
  11. ; 
  12. ; This posting made me try this again; I had done that previously and
  13. ; fallen into some holes; one of these was bug no 2 (see below).
  14. ; However, the function dump-emacs lacks some features that may be
  15. ; useful for the user; so I have written an interactive dump function.
  16. ; 
  17. ; My .emacs file now looks like this:
  18. ; 
  19. ;     (defvar privately-dumped-emacs nil
  20. ;       "If non-nil, the running Emacs is a privately dumped copy.
  21. ;     This variable is set by dump-my-emacs to a string containing the
  22. ;     date of the dump and the userid and hostname of the person who did
  23. ;     the dump.")
  24. ; 
  25. ;     (if (not privately-dumped-emacs)
  26. ;     (progn
  27. ;     
  28. ;       ;; load stuff
  29. ;           (load "ange-ftp")
  30. ;           ;; etc.
  31. ;       
  32. ;         ))
  33. ;     ;; actions, even to be done in a privately dumped Emacs.
  34. ;     (if display-time-process
  35. ;     (delete-process display-time-process))
  36. ;     (display-time)
  37. ;     ;; etc.
  38. ; 
  39. ; Since I load some expensive packages on startup (tree-dired, ange-ftp,
  40. ; completion), this affected my Emacs' startup speed by a factor of
  41. ; five.
  42. ; 
  43. ; Two bugs still remain: 
  44. ; 
  45. ;   - It seems to be impossible to set the variable
  46. ;     privately-dumped-emacs from the function dump-my-emacs for the
  47. ;     dumped Emacs without affecting the Emacs it has been dumped from.
  48. ; 
  49. ;   - If the dumping Emacs used an X display, the dumped Emacs will not
  50. ;     run on an alpha terminal. On the other hand, if the dumping Emacs
  51. ;     ran on an alpha terminal, the dumped *will* be able to use an X
  52. ;     display.
  53. ;       
  54. ; ----------------------------------------------------------------------
  55. ; 
  56.  
  57. ;; interactive Emacs dump function
  58. ;; nickel@cs.tu-berlin.de  Jan 16 1993
  59.  
  60. ;; LCD Archive Entry:
  61. ;; dump-my-emacs|Juergen Nickelsen|nickel@cs.tu-berlin.de|
  62. ;; Interactive Emacs dump function.|
  63. ;; 1993-01-16||~/misc/dump-my-emacs.el.Z|
  64.  
  65. (defun dump-my-emacs (filename)
  66.   "Dump current Emacs to file FILENAME.
  67. command-line-processed is set to nil, the variable
  68. privately-dumped-emacs is set to a descriptive string. This variable
  69. can be used in the .emacs startup file to determine if some libraries
  70. have yet to be loaded.
  71.  
  72. If the variable emacs-symbol-file exists and contains a string,
  73. its contents is used as the name of the symbol-file for dumping Emacs.
  74. Otherwise <exec-directory>/../src/emacs-<emacs-version>
  75. and <exec-directory>/../src/xemacs are tried.
  76.  
  77. The dumped Emacs has the same buffer configuration and contents as
  78. the one it has been dumped from. To have a clean Emacs for
  79. general-purpose use, dump a newly started Emacs that contains only
  80. an empty *scratch* buffer."
  81.   (interactive "FDump Emacs to file: ")
  82.   (setq filename (expand-file-name filename))
  83.   (setq command-line-processed nil)
  84.   (setq privately-dumped-emacs
  85.     (format "Emacs dumped at %s by %s@%s"
  86.         (current-time-string)
  87.         (user-login-name)
  88.         (system-name)))
  89.   (let ((symbol-file (or (if (and (boundp 'emacs-symbol-file)
  90.                   (stringp emacs-symbol-file))
  91.                  emacs-symbol-file)
  92.              (let ((version-emacs (concat exec-directory
  93.                               "../src/emacs-"
  94.                               emacs-version)))
  95.                (if (file-exists-p version-emacs)
  96.                    version-emacs))
  97.              (let ((xemacs (concat exec-directory
  98.                            "../src/xemacs")))
  99.                (if (file-exists-p xemacs)
  100.                    xemacs)))))
  101.     (if (not symbol-file)
  102.     (error "No symbol file found for dumping Emacs")
  103.       (garbage-collect)
  104.       (message "Dumping Emacs...")
  105.       (message (if (dump-emacs filename symbol-file)
  106.            ""
  107.          "Dumping Emacs...done")))))
  108.