;ELC ;;; compiled by cthomp@willow on Thu Aug 12 00:42:33 1993 ;;; from file /era/era-0.80/editor/lisp/packages/resume.el ;;; emacs version 19.8 (beta8) Lucid. ;;; bytecomp version 2.15; 14-jul-93. ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "This file was compiled for Emacs 19.")) (byte-code "" [resume-process-args suspend-resume-hook resume-preparation suspend-hook] 1) (defvar emacs-args-file "~/.emacs_args" "\ *This file is where arguments are placed for a suspended emacs job.") (fset 'resume-preparation #[nil "" [nil (delete-file emacs-args-file) ((error))] 3]) (fset 'resume-process-args #[nil "p!Ǝ q ɏebwm`w`{ Bm @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 "\ This should be called from inside of suspend-resume-hook. Grabs the contents of the file whose name is stored in emacs-args-file, and processes these arguments like command line options."])