|
Server IP : 111.118.215.189 / Your IP : 13.59.22.238 Web Server : Apache System : Linux md-in-83.webhostbox.net 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 User : a1673wkz ( 2475) PHP Version : 8.2.25 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON Directory (0755) : /usr/share/emacs/24.3/lisp/obsolete/ |
| [ Home ] | [ C0mmand ] | [ Upload File ] |
|---|
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:09:09 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/obsolete/resume.el
;;; in Emacs version 24.3.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#@68 This file is where arguments are placed for a suspended Emacs job.
(defvar resume-emacs-args-file (expand-file-name "~/.emacs_args") (#$ . 558))
#@47 Buffer that is used by `resume-process-args'.
(defvar resume-emacs-args-buffer " *Command Line Args*" (#$ . 709))
#@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!\211A@)\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 (#$ . 829)])
#@67 Clear out the file used for transmitting args when Emacs resumes.
(defalias 'resume-suspend-hook #[nil "r\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 (#$ . 1676)])
#@64 Writes the contents of BUFFER into FILE, if permissions allow.
(defalias 'resume-write-buffer-to-file #[(buffer file) "\302!\204 \303\304\"\210r 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 (#$ . 1947)])
(provide 'resume)