;ELC   
;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:51:55 2003
;;; from file /home/pot/gnu/emacs-pretest.new/lisp/resume.el
;;; in Emacs version 21.3
;;; with bytecomp version 2.85.4.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`resume.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


#@69 *This file is where arguments are placed for a suspended emacs job.
(defvar resume-emacs-args-file (expand-file-name "~/.emacs_args") (#$ . -614))
#@45 Buffer that is used by resume-process-args.
(defvar resume-emacs-args-buffer " *Command Line Args*" (#$ . 767))
#@60 Handler for command line args given when Emacs is resumed.
(defalias 'resume-process-args #[nil "p\306!\307\211	\310\216q\210\311 \210\307\312\313\217\210\f\314X\203% \307\202L eb\210m\204F \315\307w\210`\316\307w\210`{B)\315\307w\210\202( \237\311 \210\317p\"\210\203^ \320@!A\321!.\207" [resume-emacs-args-buffer default-directory command-line-default-directory args length args-buffer get-buffer-create nil ((byte-code "p=\203	 	q\210\302\207" [args-buffer start-buffer nil] 2)) erase-buffer (byte-code "\303!\211A@)\303\207" [resume-emacs-args-file result length insert-file-contents] 3) ((file-error (byte-code "\301 \210\302\301\207" [length erase-buffer 0] 1))) 0 " 	\n" "^ 	\n" resume-write-buffer-to-file file-name-as-directory command-line-1 start-buffer begin resume-emacs-args-file] 5 (#$ . 885)])
#@67 Clear out the file used for transmitting args when Emacs resumes.
(defalias 'resume-suspend-hook #[nil "\212\302!q\210\303 \210\304p	\")\207" [resume-emacs-args-buffer resume-emacs-args-file get-buffer-create erase-buffer resume-write-buffer-to-file] 3 (#$ . 1732)])
#@64 Writes the contents of BUFFER into FILE, if permissions allow.
(defalias 'resume-write-buffer-to-file #[(buffer file) "\302!\204 \303\304\"\210\212	q\210\305 \210\214~\210\306ed\307\310%\210)\311\307!)\207" [file buffer file-writable-p error "No permission to write file %s" clear-visited-file-modtime write-region nil quiet set-buffer-modified-p] 6 (#$ . 2006)])
(provide 'resume)