;ELC ;;; compiled by rms@delasyd.gnu.ai.mit.edu on Wed May 1 16:13:28 1996 ;;; from file /home/fsf/rms/e19/lisp/resume.el ;;; emacs version 19.30.99.4. ;;; 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.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") (#$ . -473)) #@45 Buffer that is used by resume-process-args. (defvar resume-emacs-args-buffer " *Command Line Args*" (#$ . 626)) #@60 Handler for command line args given when Emacs is resumed. (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 (#$ . 744)]) #@67 Clear out the file used for transmitting args when Emacs resumes. (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 (#$ . 1441)]) #@64 Writes the contents of BUFFER into FILE, if permissions allow. (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 (#$ . 1695)]) (provide (quote resume))