;;; compiled by jimb@geech.gnu.ai.mit.edu on Tue May 4 09:34:56 1993 ;;; from file /gd/gnu/emacs/19.0/lisp/resume.el ;;; emacs version 19.5.9. ;;; bytecomp version FSF 2.08 ;;; optimization is on. (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#LebmE!`!`\" B)!& ! p\" _ @! A !-" [get-buffer-create resume-emacs-args-buffer nil 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 skip-chars-forward " \n" begin "^ \n" buffer-substring nreverse resume-write-buffer-to-file resume-emacs-args-file file-name-as-directory default-directory command-line-1] 4 "\ Handler for command line args given when Emacs is resumed."]) (defalias 'resume-suspend-hook #[nil " !q p \")" [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) " ! \" q ed %)!)" [file-writable-p file error "No permission to write file %s" buffer clear-visited-file-modtime widen write-region nil quiet set-buffer-modified-p] 6 "\ Writes the contents of BUFFER into FILE, if permissions allow."])