;ELC ;;; compiled by kwzh@hal.gnu.ai.mit.edu on Fri May 6 22:18:16 1994 ;;; from file /gd/gnu/emacs/19.0/lisp/resume.el ;;; emacs version 19.22.93.1. ;;; bytecomp version FSF 2.10 ;;; 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 "`/gd/gnu/emacs/19.0/lisp/resume.el' was compiled for Emacs 19")) (defvar resume-emacs-args-file (expand-file-name "~/.emacs_args") "\ *This file is where arguments are placed for a suspended emacs job.") (defvar resume-emacs-args-buffer " *Command Line Args*" "\ Buffer that is used by resume-process-args.") (defalias 'resume-process-args #[nil "p !‰ Ɏq ̏X)PebmJw`w`{ B)w,  p\" b @! A !." [get-buffer-create resume-emacs-args-buffer nil default-directory command-line-default-directory args length args-buffer start-buffer ((byte-code "p= q‡" [args-buffer start-buffer nil] 2)) erase-buffer (byte-code " !A@)" [insert-file-contents resume-emacs-args-file result length] 3) ((file-error (byte-code " " [erase-buffer 0 length] 1))) 0 " \n" begin "^ \n" resume-write-buffer-to-file resume-emacs-args-file file-name-as-directory command-line-1] 5 "\ Handler for command line args given when Emacs is resumed."]) (defalias 'resume-suspend-hook #[nil " !q p\f\")" [get-buffer-create resume-emacs-args-buffer erase-buffer resume-write-buffer-to-file resume-emacs-args-file] 3 "\ Clear out the file used for transmitting args when Emacs resumes."]) (defalias 'resume-write-buffer-to-file #[(buffer file) " ! \"\fq ~ed %)!)" [file-writable-p file error "No permission to write file %s" buffer clear-visited-file-modtime write-region nil quiet set-buffer-modified-p] 6 "\ Writes the contents of BUFFER into FILE, if permissions allow."]) (provide (quote resume))