home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / msdos / winemacs / lisp / packages / resume.elc < prev    next >
Encoding:
Text File  |  1993-06-08  |  1.3 KB  |  21 lines
  1. ;;; compiled by jwz@thalidomide on Thu Jul  2 16:39:34 1992
  2. ;;; from file /u/jwz/emacs19/lisp/packages/resume.el
  3. ;;; emacs version 19.2.1 Lucid.
  4. ;;; bytecomp version 2.07; 17-jun-92.
  5. ;;; optimization is on.
  6. ;;; this file uses opcodes which do not exist in Emacs18.
  7.  
  8. (if (and (boundp 'emacs-version)
  9.      (or (and (boundp 'epoch::version) epoch::version)
  10.          (string-lessp emacs-version "19")))
  11.     (error "This file was compiled for Emacs19."))
  12.  
  13. (byte-code "└┬└ç" [resume-process-args suspend-resume-hook resume-preparation suspend-hook] 1)
  14. (defvar emacs-args-file "~/.emacs_args" "\
  15. *This file is where arguments are placed for a suspended emacs job.")
  16. (fset 'resume-preparation #[nil "└┴┬Åç" [nil (delete-file emacs-args-file) ((error))] 3])
  17. (fset 'resume-process-args #[nil "p└┴!┬╞Ä qê╟ ê┬╚╔Åêebê╩┬wêm¼î`╦┬wê`{ B¬m ¡ì ƒë@╠P╬ A!,ç" [get-buffer-create " *Command Line Args*" nil resume-args resume-args-buffer resume-start-buffer ((byte-code "p=½â    qê┬ç" [resume-args-buffer resume-start-buffer nil] 2)) erase-buffer (byte-code "└    !ê┬    !ç" [insert-file-contents emacs-args-file delete-file] 2) ((file-error (erase-buffer))) "     \n" "^     \n" "/" default-directory command-line-1] 4 "\
  18. This should be called from inside of suspend-resume-hook.
  19. Grabs the contents of the file whose name is stored in
  20. emacs-args-file, and processes these arguments like command line options."])
  21.