Current File : //usr/local/share/emacs/27.2/lisp/desktop.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\300\302!\207" [require cl-lib frameset] 2)
#@96 Version number of desktop file format.
Used at desktop read to provide backward compatibility.
(defvar desktop-file-version "208" (#$ . 477))
#@60 Format version of the current desktop package, an integer.
(defconst desktop-native-file-version 208 (#$ . 625))
#@69 The format version of the current desktop file (an integer) or nil.
(defvar desktop-io-file-version nil (#$ . 744))
(byte-code "\300\301\302\303\304\305%\210\306\307\310\311\312DD\313\314\315\316\317\304\301\320\321& \207" [custom-declare-group desktop nil "Save status of Emacs when you exit." :group frames custom-declare-variable desktop-save-mode funcall function #[0 "\300\207" [nil] 1] "Non-nil if Desktop-Save mode is enabled.\nSee the `desktop-save-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `desktop-save-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean] 12)
#@961 Toggle desktop saving (Desktop Save mode).
If called interactively, enable Desktop-Save mode if ARG is positive,
and disable it if ARG is zero or negative. If called from Lisp, also
enable the mode if ARG is omitted or nil, and toggle it if ARG is
`toggle'; disable the mode otherwise.
When Desktop Save mode is enabled, the state of Emacs is saved from
one session to another. In particular, Emacs will save the desktop when
it exits (this may prompt you; see the option `desktop-save'). The next
time Emacs starts, if this mode is active it will restore the desktop.
To manually save the desktop at any time, use the command `\[desktop-save]'.
To load it, use `\[desktop-read]'.
Once a desktop file exists, Emacs will auto-save it according to the
option `desktop-auto-save-timeout'.
To see all the options you can set, browse the `desktop' customization group.
For further details, see info node `(emacs)Saving Emacs Sessions'.
(fn &optional ARG)
(defalias 'desktop-save-mode #[256 "\301 \302\300\303=\203 \304\300!?\202 \305!\306V\"\210\203\" \307 \210\202% \310 \210\311\312\304\300!\2031 \313\2022 \314\"\210\315\316!\203\\ \317\300!\210\301 \203J \211\301 \232\203\\ \320\321\322\304\300!\203W \323\202X \324#\266\210\325 \210\304\300!\207" [desktop-save-mode current-message set-default toggle default-value prefix-numeric-value 0 desktop-auto-save-enable desktop-auto-save-disable run-hooks desktop-save-mode-hook desktop-save-mode-on-hook desktop-save-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Desktop-Save mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 1505) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
(defvar desktop-save-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\211%\207" [desktop-save-mode-map desktop-save-mode-hook variable-documentation put "Hook run after entering or leaving `desktop-save-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode desktop-save-mode nil boundp] 6)
#@58 Disable `desktop-save-mode'. Provided for use in hooks.
(defalias 'desktop-save-mode-off #[0 "\300\301!\207" [desktop-save-mode 0] 2 (#$ . 3640)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \210\300\314\302\303\315DD\316\306\317\320\321\310\311\312\322& \210\300\323\302\303\324DD\325\306\326\310\311\312\327& \210\300\330\302\303\331DD\332\306\333\310\311&\210\300\334\302\303\335DD\336\306\333\310\311\312\327& \210\300\337\302\303\340DD\341\306\342\310\311\312\343& \210\300\344\302\303\345DD\346\306\347\310\311\312\313& \210\300\350\302\303\351DD\352\306\353\310\311\312\313& \210\300\354\302\303\355DD\356\306\353\310\311\357\360\312\327& \210\300\361\302\303\362DD\363\306\353\310\311\357\364\312\313& \210\300\365\302\303\366DD\367\306\353\310\311&\210\300\370\302\303\371DD\372\306\373\310\311&\210\300\374\302\303\375DD\376\306\377\310\311\312\313& \210\300\201@ \302\303\201A DD\201B \312\201C \306\201D \310\311& \210\300\201E \302\303\201F DD\201G \306\201H \310\311&\210\300\201I \302\303\201J DD\201K \306\201L \312\322\310\311& \210\300\201M \302\303\201N DD\201O \306\201P \310\311&\210\300\201Q \302\303\201R DD\201S \306\201T \310\311&\210\300\201U \302\303\201V DD\201W \306\347\310\311\312\322& \210\300\201X \302\303\201Y DD\201Z \306\201[ \310\311\312\322& \210\300\201\\ \302\303\201] DD\201^ \306\201_ \310\311\312\322& \210\300\201` \302\303\201a DD\201b \306\201c \310\311\312\322& \210\300\201d \302\303\201e DD\201f \306\201g \310\311\312\313& \210\300\201h \302\303\201i DD\201j \306\201k \310\311\312\313& \210\300\201l \302\303\201m DD\201n \306\347\310\311\312\313& \210\300\201o \302\303\201p DD\201q \306\201r \310\311\312\313& \207" [custom-declare-variable desktop-save funcall function #[0 "\300\207" [ask-if-new] 1] "Specifies whether the desktop should be saved when it is killed.\nA desktop is killed when the user changes desktop or quits Emacs.\nPossible values are:\n t -- always save.\n ask -- always ask.\n ask-if-new -- ask if no desktop file exists, otherwise just save.\n ask-if-exists -- ask if desktop file exists, otherwise don't save.\n if-exists -- save if desktop file exists, otherwise don't save.\n nil -- never save.\nThe desktop is never saved when `desktop-save-mode' is nil.\nThe variables `desktop-dirname' and `desktop-base-file-name'\ndetermine where the desktop is saved." :type (choice (const :tag "Always save" t) (const :tag "Always ask" ask) (const :tag "Ask if desktop file is new, else do save" ask-if-new) (const :tag "Ask if desktop file exists, else don't save" ask-if-exists) (const :tag "Save if desktop file exists, else don't" if-exists) (const :tag "Never save" nil)) :group desktop :version "22.1" desktop-auto-save-timeout #[0 "\207" [auto-save-timeout] 1] "Number of seconds of idle time before auto-saving the desktop.\nThe desktop will be auto-saved when this amount of idle time have\npassed after some change in the window configuration.\nThis applies to an existing desktop file when `desktop-save-mode' is enabled.\nZero or nil means disable auto-saving due to idleness." (choice (const :tag "Off" nil) (integer :tag "Seconds")) :set #[514 "\300\"\210\3011 \211\250\203 \211\302V\203 \303!\202 \304 0\207\210\305\207" [set-default (error) 0 desktop-auto-save-enable desktop-auto-save-disable nil] 5 "\n\n(fn SYMBOL VALUE)"] "24.4" desktop-load-locked-desktop #[0 "\300\207" [ask] 1] "Specifies whether the desktop should be loaded if locked.\nPossible values are:\n t -- load anyway.\n nil -- don't load.\n ask -- ask the user.\nIf the value is nil, or `ask' and the user chooses not to load the desktop,\nthe normal hook `desktop-not-loaded-hook' is run." (choice (const :tag "Load anyway" t) (const :tag "Don't load" nil) (const :tag "Ask the user" ask)) "22.2" desktop-base-file-name #[0 "\300\301!\207" [convert-standard-filename ".emacs.desktop"] 2] "Name of file for Emacs desktop, excluding the directory part." file desktop-base-lock-name #[0 "\300\301!\207" [convert-standard-filename ".emacs.desktop.lock"] 2] "Name of lock file for Emacs desktop, excluding the directory part." desktop-path #[0 "\301D\207" [user-emacs-directory "~"] 2] "List of directories to search for the desktop file.\nThe base name of the file is specified in `desktop-base-file-name'." (repeat directory) "23.2" desktop-missing-file-warning #[0 "\300\207" [nil] 1] "If non-nil, offer to recreate the buffer of a deleted file.\nAlso pause for a moment to display message about errors signaled in\n`desktop-buffer-mode-handlers'.\n\nIf nil, just print error messages in the message buffer." boolean desktop-no-desktop-file-hook #[0 "\300\207" [nil] 1] "Normal hook run when `desktop-read' can't find a desktop file.\nRun in the directory in which the desktop file was sought.\nMay be used to show a dired buffer." hook desktop-not-loaded-hook #[0 "\300\207" [nil] 1] "Normal hook run when the user declines to re-use a desktop file.\nRun in the directory in which the desktop file was found.\nMay be used to deal with accidental multiple Emacs jobs." :options (desktop-save-mode-off save-buffers-kill-emacs) desktop-after-read-hook #[0 "\300\207" [nil] 1] "Normal hook run after a successful `desktop-read'.\nMay be used to show a buffer list." (list-buffers) desktop-save-hook #[0 "\300\207" [nil] 1] "Normal hook run before the desktop is saved in a desktop file.\nRun with the desktop buffer current with only the header present.\nMay be used to add to the desktop code or to truncate history lists,\nfor example." desktop-globals-to-save #[0 "\300\207" [(desktop-missing-file-warning tags-file-name tags-table-list search-ring regexp-search-ring register-alist file-name-history)] 1] "List of global variables saved by `desktop-save'.\nAn element may be variable name (a symbol) or a cons cell of the form\n(VAR . MAX-SIZE), which means to truncate VAR's value to at most\nMAX-SIZE elements (if the value is a list) before saving the value.\nFeature: Saving `kill-ring' implies saving `kill-ring-yank-pointer'." (repeat (restricted-sexp :match-alternatives (symbolp consp))) desktop-globals-to-clear #[0 "\300\207" [(kill-ring kill-ring-yank-pointer search-ring search-ring-yank-pointer regexp-search-ring regexp-search-ring-yank-pointer)] 1] "List of global variables that `desktop-clear' will clear.\nAn element may be variable name (a symbol) or a cons cell of the form\n(VAR . FORM). Symbols are set to nil and for cons cells VAR is set\nto the value obtained by evaluating FORM." (repeat (restricted-sexp :match-alternatives (symbolp consp))) desktop-clear-preserve-buffers #[0 "\300\207" [("\\*scratch\\*" "\\*Messages\\*" "\\*server\\*" "\\*tramp/.+\\*" "\\*Warnings\\*")] 1] "List of buffers that `desktop-clear' should not delete.\nEach element is a regular expression. Buffers with a name matched by any of\nthese won't be deleted." "23.3" (repeat string) desktop-locals-to-save #[0 "\300\207" [(desktop-locals-to-save truncate-lines case-fold-search case-replace fill-column overwrite-mode change-log-default-name line-number-mode column-number-mode size-indication-mode buffer-file-coding-system buffer-display-time indent-tabs-mode tab-width indicate-buffer-boundaries indicate-empty-lines show-trailing-whitespace)] 1] "List of local variables to save for each buffer.\nThe variables are saved only when they really are local. Conventional minor\nmodes are restored automatically; they should not be listed here." (repeat symbol) desktop-buffers-not-to-save #[0 "\300\207" [#1="\\` "] 1 #1#] "Regexp identifying buffers that are to be excluded from saving.\nThis is in effect only for buffers that don't visit files.\nTo exclude buffers that visit files, use `desktop-files-not-to-save'\nor `desktop-modes-not-to-save'." (choice (const :tag "None" nil) regexp) desktop-files-not-to-save #[0 "\300\207" [#2="\\(\\`/[^/:]*:\\|(ftp)\\'\\)"] 1 #2#] "Regexp identifying files whose buffers are to be excluded from saving.\nThe default value excludes buffers visiting remote files." (choice (const :tag "None" nil) regexp) desktop-modes-not-to-save #[0 "\300\207" [(tags-table-mode)] 1] "List of major modes whose buffers should not be saved." (repeat symbol) desktop-restore-frames #[0 "\300\207" [t] 1] "When non-nil, save and restore the frame and window configuration.\nSee related options `desktop-restore-reuses-frames',\n`desktop-restore-in-current-display', and `desktop-restore-forces-onscreen'." desktop-restore-in-current-display #[0 "\300\207" [t] 1] "Controls how restoring of frames treats displays.\nIf t, restores frames into the current display.\nIf nil, restores frames into their original displays (if possible).\nIf `delete', deletes frames on other displays instead of restoring them." (choice (const :tag "Restore in current display" t) (const :tag "Restore in original display" nil) (const :tag "Delete frames in other displays" delete)) desktop-restore-forces-onscreen #[0 "\300\207" [t] 1] "If t, restores frames that are fully offscreen onscreen instead.\nIf `all', also restores frames that are partially offscreen onscreen.\n\nNote that checking of frame boundaries is only approximate.\nIt can fail to reliably detect frames whose onscreen/offscreen state\ndepends on a few pixels, especially near the right / bottom borders\nof the screen." (choice (const :tag "Only fully offscreen frames" t) (const :tag "Also partially offscreen frames" all) (const :tag "Do not force frames onscreen" nil)) desktop-restore-reuses-frames #[0 "\300\207" [t] 1] "If t, restoring frames reuses existing frames.\nIf nil, deletes existing frames.\nIf `keep', keeps existing frames and does not reuse them." (choice (const :tag "Reuse existing frames" t) (const :tag "Delete existing frames" nil) (const :tag "Keep existing frames" :keep)) desktop-file-name-format #[0 "\300\207" [absolute] 1] "Format in which desktop file names should be saved.\nPossible values are:\n absolute -- Absolute file name.\n tilde -- Relative to ~.\n local -- Relative to directory of desktop file." (choice (const absolute) (const tilde) (const local)) desktop-restore-eager #[0 "\300\207" [t] 1] "Number of buffers to restore immediately.\nRemaining buffers are restored lazily (when Emacs is idle).\nIf value is t, all buffers are restored immediately." (choice (const t) integer) desktop-lazy-verbose #[0 "\300\207" [t] 1] "Verbose reporting of lazily created buffers." desktop-lazy-idle-delay #[0 "\300\207" [5] 1] "Idle delay before starting to create buffers.\nSee `desktop-restore-eager'." integer] 12)
#@553 When non-nil, save buffer status in desktop file.
If the value is a function, it is called by `desktop-save' with argument
DESKTOP-DIRNAME to obtain auxiliary information to save in the desktop
file along with the state of the buffer for which it was called.
When file names are returned, they should be formatted using the call
"(desktop-file-name FILE-NAME DESKTOP-DIRNAME)".
Later, when `desktop-read' evaluates the desktop file, auxiliary information
is passed as the argument DESKTOP-BUFFER-MISC to functions in
`desktop-buffer-mode-handlers'.
(defvar desktop-save-buffer nil (#$ . 14245))
(make-variable-buffer-local 'desktop-save-buffer)
#@1258 Alist of major mode specific functions to restore a desktop buffer.
Functions listed are called by `desktop-create-buffer' when `desktop-read'
evaluates the desktop file. List elements must have the form
(MAJOR-MODE . RESTORE-BUFFER-FUNCTION).
Buffers with a major mode not specified here, are restored by the default
handler `desktop-restore-file-buffer'.
Handlers are called with argument list
(DESKTOP-BUFFER-FILE-NAME DESKTOP-BUFFER-NAME DESKTOP-BUFFER-MISC)
Furthermore, they may use the following variables:
`desktop-file-version'
`desktop-buffer-major-mode'
`desktop-buffer-minor-modes'
`desktop-buffer-point'
`desktop-buffer-mark'
`desktop-buffer-read-only'
`desktop-buffer-locals'
If a handler returns a buffer, then the saved mode settings
and variable values for that buffer are copied into it.
Modules that define a major mode that needs a special handler should contain
code like
(defun foo-restore-desktop-buffer
...
(add-to-list \='desktop-buffer-mode-handlers
\='(foo-mode . foo-restore-desktop-buffer))
The major mode function must either be autoloaded, or of the form
"foobar-mode" and defined in library "foobar", so that desktop
can guess how to load the mode's definition.
(defvar desktop-buffer-mode-handlers nil (#$ . 14901))
(byte-code "\300\301\302\303#\210\304\305\306\307\310DD\311\312\313\314\315&\207" [put desktop-buffer-mode-handlers risky-local-variable t custom-declare-variable desktop-minor-mode-table funcall function #[0 "\300\207" [((defining-kbd-macro nil) (isearch-mode nil) (vc-mode nil) (vc-dired-mode nil) (erc-track-minor-mode nil) (savehist-mode nil))] 1] "Table mapping minor mode variables to minor mode functions.\nEach entry has the form (NAME RESTORE-FUNCTION).\nNAME is the name of the buffer-local variable indicating that the minor\nmode is active. RESTORE-FUNCTION is the function to activate the minor mode.\nRESTORE-FUNCTION nil means don't try to restore the minor mode.\nOnly minor modes for which the name of the buffer-local variable\nand the name of the minor mode function are different have to be added to\nthis table. See also `desktop-minor-mode-handlers'." :type (alist :key-type (symbol :tag "Minor mode") :value-type (list :tag "Restore function" (choice (const nil) function))) :group desktop] 8)
#@1266 Alist of functions to restore non-standard minor modes.
Functions are called by `desktop-create-buffer' to restore minor modes.
List elements must have the form
(MINOR-MODE . RESTORE-FUNCTION).
Minor modes not specified here, are restored by the standard minor mode
function.
Handlers are called with argument list
(DESKTOP-BUFFER-LOCALS)
Furthermore, they may use the following variables:
`desktop-file-version'
`desktop-buffer-file-name'
`desktop-buffer-name'
`desktop-buffer-major-mode'
`desktop-buffer-minor-modes'
`desktop-buffer-point'
`desktop-buffer-mark'
`desktop-buffer-read-only'
`desktop-buffer-misc'
When a handler is called, the buffer has been created and the major mode has
been set, but local variables listed in desktop-buffer-locals has not yet been
created and set.
Modules that define a minor mode that needs a special handler should contain
code like
(defun foo-desktop-restore
...
(add-to-list \='desktop-minor-mode-handlers
\='(foo-mode . foo-desktop-restore))
The minor mode function must either be autoloaded, or of the form
"foobar-mode" and defined in library "foobar", so that desktop
can guess how to load the mode's definition.
See also `desktop-minor-mode-table'.
(defvar desktop-minor-mode-handlers nil (#$ . 17241))
(put 'desktop-minor-mode-handlers 'risky-local-variable t)
#@58 The directory in which the desktop file should be saved.
(defvar desktop-dirname nil (#$ . 18625))
#@130 Return the full name of the desktop file in DIRNAME.
DIRNAME omitted or nil means use `desktop-dirname'.
(fn &optional DIRNAME)
(defalias 'desktop-full-file-name #[256 "\302\206 \"\207" [desktop-base-file-name desktop-dirname expand-file-name] 4 (#$ . 18731)])
#@135 Return the full name of the desktop lock file in DIRNAME.
DIRNAME omitted or nil means use `desktop-dirname'.
(fn &optional DIRNAME)
(defalias 'desktop-full-lock-name #[256 "\302\206 \"\207" [desktop-base-lock-name desktop-dirname expand-file-name] 4 (#$ . 19004)])
#@34 Header to place in Desktop file.
(defconst desktop-header ";; --------------------------------------------------------------------------\n;; Desktop File for Emacs\n;; --------------------------------------------------------------------------\n" (#$ . 19281))
#@68 Hooks run after all buffers are loaded; intended for internal use.
(defvar desktop-delay-hook nil (#$ . 19547))
#@124 Checksum of the last auto-saved contents of the desktop file.
Used to avoid writing contents unchanged between auto-saves.
(defvar desktop-file-checksum nil (#$ . 19666))
#@99 Saved state of all frames.
Only valid during frame saving & restoring; intended for internal use.
(defvar desktop-saved-frameset nil (#$ . 19843))
#@112 When the desktop file was last modified to the knowledge of this Emacs.
Used to detect desktop file conflicts.
(defvar desktop-file-modtime nil (#$ . 19997))
#@271 Table of serialization/deserialization functions for variables.
Each record is a list of form: (var serializer deserializer).
These records can be freely reordered, deleted, or new ones added.
However, for compatibility, don't modify the functions for existing records.
(defvar desktop-var-serdes-funs (byte-code "\300\301\302EC\207" [mark-ring #[257 "\300\301\"\207" [mapcar marker-position] 4 "\n\n(fn MR)"] #[257 "\300\301\"\207" [mapcar copy-marker] 4 "\n\n(fn MR)"]] 3) (#$ . 20162))
#@221 Return the PID of the Emacs process that owns the desktop file in DIRNAME.
Return nil if no desktop file found or no Emacs process is using it.
DIRNAME omitted or nil means use `desktop-dirname'.
(fn &optional DIRNAME)
(defalias 'desktop-owner #[256 "\300\301!\302!\205? \30316 \304\305!r\211q\210\306\307\310\311\312!\313\"\314$\216\315!\210eb\210\316p!\262*\250\2620\202; \210\300\202? \205? \207" [nil desktop-full-lock-name file-exists-p (error) generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-file-contents-literally read] 10 (#$ . 20660)])
#@148 Record this Emacs process as the owner of the desktop file in DIRNAME.
DIRNAME omitted or nil means use `desktop-dirname'.
(fn &optional DIRNAME)
(defalias 'desktop-claim-lock #[256 "\300\301\302 !\303\304!#\207" [write-region number-to-string emacs-pid nil desktop-full-lock-name] 6 (#$ . 21302)])
#@126 Remove the lock file for the desktop in DIRNAME.
DIRNAME omitted or nil means use `desktop-dirname'.
(fn &optional DIRNAME)
(defalias 'desktop-release-lock #[256 "\300!\301!\205\f \302!\207" [desktop-full-lock-name file-exists-p delete-file] 4 (#$ . 21610)])
#@65 Truncate LIST to at most N elements destructively.
(fn LIST N)
(defalias 'desktop-truncate #[514 "\211S\233\211:\205\f \211\300\241\207" [nil] 5 (#$ . 21879)])
#@402 Empty the Desktop.
This kills all buffers except for internal ones and those with names matched by
a regular expression in the list `desktop-clear-preserve-buffers'.
Furthermore, it clears the variables listed in `desktop-globals-to-clear'.
When called interactively and `desktop-restore-frames' is non-nil, it also
deletes all frames except the selected one (and its minibuffer frame,
if different).
(defalias 'desktop-clear #[0 "\305 \210\306 \211\203( \211@\2119\203 \307\306\"\210\202! \307\310A!\"\210A\266\202\202 \210\311\312\313\n\314#\315Q\316 \211\203` \211@\317!\211\320H\321=\204X \306\322\323#)\266\203\204X \324!\210\210A\266\202\2023 \266\325 \210\f\205\301 \326\327!\205\301 \330 \331\332!!\333\334 \335\"\211\205\275 \211@\3361\255 \211=\206\242 \211=\206\242 \337 \203\236 \340\341\"?\206\242 \340\342\"?\205\251 \343!0\202\265 \344\345\346!\"\262\210A\266\202\202{ \262\266\202\207" [desktop-io-file-version desktop-globals-to-clear desktop-clear-preserve-buffers inhibit-changing-match-data desktop-restore-frames desktop-lazy-abort nil set-default eval "\\`\\(" mapconcat #[257 "\300\301Q\207" ["\\(" "\\)"] 4 "\n\n(fn REGEXP)"] "\\|" "\\)\\'" buffer-list buffer-name 0 32 t string-match kill-buffer delete-other-windows called-interactively-p any selected-frame window-frame minibuffer-window sort frame-list frameset-minibufferless-first-p (error) daemonp frame-parameter client desktop-dont-clear delete-frame delay-warning desktop error-message-string] 11 (#$ . 22048) nil])
(byte-code "\204 \301\302\303\"\210\301\207" [noninteractive add-hook kill-emacs-hook desktop-kill] 3)
#@172 If `desktop-save-mode' is non-nil, do what `desktop-save' says to do.
If the desktop should be saved and `desktop-dirname'
is nil, ask the user where to save the desktop.
(defalias 'desktop-kill #[0 "\203i \303\304 ! \305=\2069 \211\203 \306=\2069 \211\203& \n\203& \307=\2069 \310>\2046 \211\2059 \311=\2059 \312\313!\262\203i \n\204M \314\315\316\317\320\211\305$!!\3211Y \301\n\305\"0\202h \322\323!?\205f \324@A\"\262\210\325 \326 =\205s \327 \207" [desktop-save-mode desktop-save desktop-dirname file-exists-p desktop-full-file-name t if-exists ask-if-new (ask ask-if-new) ask-if-exists y-or-n-p "Save desktop? " file-name-as-directory expand-file-name read-directory-name "Directory for desktop file: " nil (file-error) yes-or-no-p "Error while saving the desktop. Ignore? " signal emacs-pid desktop-owner desktop-release-lock] 7 (#$ . 23688)])
#@19
(fn &rest ARGS)
(defalias 'desktop-list* #[128 "\211\205 \300\301\"\207" [apply cl-list*] 4 (#$ . 24557)])
#@529 Return information describing BUFFER.
This function is not pure, as BUFFER is made current with
`set-buffer'.
Returns a list of all the necessary information to recreate the
buffer, which is (in order):
`uniquify-buffer-base-name';
`buffer-file-name';
`buffer-name';
`major-mode';
list of minor-modes,;
`point';
`mark';
`buffer-read-only';
auxiliary information given by `desktop-save-buffer';
local variables;
auxiliary information given by `desktop-var-serdes-funs'.
(fn BUFFER)
(defalias 'desktop-buffer-info #[257 "\211q\210\306\307!\205 \307 \310\311 \"\312 \313\314\315\n\"\211\203` \211@\316!\203Y \211J\203Y \211 \236\211\2036 \211A@\202C \317N\206C \320!\205C \211\203W \211\321\"\204V \211B\262\210\266A\266\202\202 \262\262`\322\323!\fD
\320!\205w !\324 \313\211\203\244 \211@\211\236\211\203\221 \211B\262\202\234 \235\203\234 B\262\210A\266\202\202| \210\262\325Y\205\264 \314\326\"CBBBBBBBBBB\207" [desktop-dirname major-mode minor-mode-alist desktop-minor-mode-table mark-active buffer-read-only fboundp uniquify-buffer-base-name desktop-file-name buffer-file-name buffer-name nil mapcar car boundp :minor-mode-function functionp memql mark t buffer-local-variables 208 #[257 "\211@\211A@J!D\207" [] 5 "\n\n(fn RECORD)"] desktop-save-buffer desktop-locals-to-save desktop-io-file-version desktop-var-serdes-funs] 17 (#$ . 24675)])
#@236 Convert VALUE to a pair (QUOTE . SEXP); (eval SEXP) gives VALUE.
SEXP is an sexp that when evaluated yields VALUE.
QUOTE may be `may' (value may be quoted),
`must' (value must be quoted), or nil (value must not be quoted).
(fn VALUE)
(defalias 'desktop--v2s #[257 "\211\247\204 \211\203 \211\300=\204 \301!\203 \302B\207\211;\203F \3031, \304\305\306\"!0\2020 \210\2027 \2037 \302B\207\307!\310\311G\312$\210\302B\207\2119\203O \313B\207\314!\203v \315\316\"\312\236\211\203k \312\317\315\320\"BB\202u \302\321\317\315\322\"\"B\207\323!\203\302 \211\311H9\203\302 \312G\311\211W\203\237 \211\316H!B\262\210\211T\262\202\207 \266\211\237\262\312\236\211\203\267 \312\324\315\325\"BB\202\301 \302\321\324\315\322\"\"B\207\211:\203$\211\312\211:\203\340 \316@!\211B\262\210A\262\202\312 \203\360 \316!\300\262\211B\262\210\312\236\203\n\312\203\377 \326\202 \327\315\330\237\"BB\202#\313\331\315\322\203A\202\237\"\205!@A\"B\207\332!\203;\312\333\334\335\336\337!\340\341#!DDB\207\342!\203a\343!\344\345!!\312\346\347\350\351\352\312\353\354\n\355 DFEE\356BBBB\207\302\357B\207" [t keywordp may (error) read format "%S" copy-sequence set-text-properties 0 nil must vectorp mapcar desktop--v2s vector #[257 "\211@\300=\203\f \301AD\207\211A\207" [must quote] 3 "\n\n(fn EL)"] apply cdr recordp record #[257 "\211@\300=\203\f \301AD\207\211A\207" [must quote] 3 "\n\n(fn EL)"] desktop-list* list #[257 "\211@\300=\203\f \301AD\207\211A\207" [must quote] 3 "\n\n(fn EL)"] append subrp symbol-function quote intern-soft substring prin1-to-string 7 -1 markerp marker-position buffer-name marker-buffer let ((mk (make-marker))) add-hook 'desktop-delay-hook lambda set-marker mk get-buffer (mk) "Unprintable entity"] 15 (#$ . 26117)])
#@122 Convert VALUE to a string that when read evaluates to the same value.
Not all types of values are supported.
(fn VALUE)
(defalias 'desktop-value-to-string #[257 "\305\306\211\306\307!\211@\305 \310A!\311=\203 \312P\202 \211-\207" [print-escape-newlines print-length print-level float-output-format print-quoted t nil desktop--v2s prin1-to-string must "'"] 7 (#$ . 27924)])
#@299 Output a setq statement for variable VAR to the desktop file.
The argument VARSPEC may be the variable name VAR (a symbol),
or a cons cell of the form (VAR . MAX-SIZE),
which means to truncate VAR's value to at most MAX-SIZE elements
(if the value is a list) before saving the value.
(fn VARSPEC)
(defalias 'desktop-outvar #[257 "\300\211:\203 @\262A\262\202 \262\301!\205@ \211\250\2034 \211\302V\2034 \303!<\2034 \304\303!\"\210\305\306!\307\310J!\311\261\207" [nil boundp 0 eval desktop-truncate "(setq " symbol-name " " desktop-value-to-string ")\n"] 8 (#$ . 28315)])
#@311 Function identifying buffers that are to be excluded from saving.
Like `desktop-buffers-not-to-save' it can be used to check whether
a given buffer should not be saved. It takes the same arguments as
`desktop-save-buffer-p' and should return nil if buffer should not
have its state saved in the desktop file.
(defvar desktop-buffers-not-to-save-function nil (#$ . 28911))
#@188 Return t if buffer should have its state saved in the desktop file.
FILENAME is the visited file name, BUFNAME is the buffer name, and
MODE is the major mode.
(fn FILENAME BUFNAME MODE)
(defalias 'desktop-save-buffer-p #[899 "\306;?\306\204# \n;\203# \n\306\307\310#)\266\203?\205\217 \f>?\205\217 \203D \204{ \306\307\310#)\266\203\203{ \311>\203f \204{ rq\210
\306\307\310#)\266\203)\211\262\203{ ?\205\217 \211?\205\217 rq\210\n)\205\217 \203\216 $\205\217 \307)\207" [desktop-files-not-to-save case-fold-search desktop-buffers-not-to-save inhibit-changing-match-data desktop-modes-not-to-save default-directory nil t string-match (dired-mode vc-dir-mode) desktop-save-buffer desktop-buffers-not-to-save-function] 14 (#$ . 29291)])
#@163 Convert FILENAME to format specified in `desktop-file-name-format'.
DIRNAME must be the directory in which the desktop file will be saved.
(fn FILENAME DIRNAME)
(defalias 'desktop-file-name #[514 "\204 \301\207\302\267\2029 \303\304!\305\"\306!\203 \211\2023 \211\307\230\203& \310\2023 \211\311\230\2030 \305\2023 \310P\207\303\"\207\304!\207" [desktop-file-name-format nil #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (tilde 12 local 52)) file-relative-name expand-file-name "~" file-name-absolute-p "./" "~/" "."] 5 (#$ . 30081)])
#@14
(fn FRAME)
(defalias 'desktop--check-dont-save #[257 "\300\301\"?\207" [frame-parameter desktop-dont-save] 4 (#$ . 30672)])
(defconst desktop--app-id (cons 'desktop desktop-file-version))
#@131 Save the state of existing frames in `desktop-saved-frameset'.
Frames with a non-nil `desktop-dont-save' parameter are not saved.
(defalias 'desktop-save-frameset #[0 "\205 \304\305\306 \307\n\310\311 Q\312\313&\211\207" [desktop-restore-frames desktop--app-id user-login-name desktop-saved-frameset frameset-save nil :app :name "@" system-name :predicate desktop--check-dont-save] 8 (#$ . 30870)])
#@1508 Save the state of Emacs in a desktop file in directory DIRNAME.
Optional argument RELEASE non-nil says we're done with this
desktop, in which case this function releases the lock of the
desktop file in DIRNAME.
If ONLY-IF-CHANGED is non-nil, compare the current desktop
information to that in the desktop file, and if the desktop
information has not changed since it was last saved, then do
not rewrite the file.
To restore the desktop, use `desktop-read'.
This function can save the desktop in either format version
208 (which only Emacs 25.1 and later can read) or version
206 (which is readable by any Emacs from version 22.1 onwards).
By default, it will use the same format the desktop file had when
it was last saved, or version 208 when writing a fresh desktop
file.
To upgrade a version 206 file to version 208, call this command
explicitly with a prefix argument: \[universal-argument] \[desktop-save].
If you are upgrading from Emacs 24 or older, we recommend to do
this once you decide you no longer need compatibility with versions
of Emacs before 25.1.
To downgrade a version 208 file to version 206, use a double prefix
argument: \[universal-argument] \[universal-argument] \[desktop-save].
Emacs will ask for confirmation when you upgrade or downgrade your
desktop file.
In a non-interactive call, VERSION can be given as an integer, either
206 or 208, to specify the format version in which to save the file,
no questions asked.
(fn DIRNAME &optional RELEASE ONLY-IF-CHANGED VERSION)
(defalias 'desktop-save #[1025 "\306\307!!\212 \310\311 !\3128\262\211\203? \n\232\204? \313\n\203/ \314\n\"\203+ \315\2020 \316\2020 \317!\204? ?\205\360\320\321!\205\360\203I \322 \210\202U \211\203R \323 \204U \324 \210\325\267\202\217 \326=\204g \313\327!\203k \326\202\230 \206\230 \f\202\230 \330=\204 \313\331!\203\203 \330\202\230 \206\230 \f\202\230 \202\230 \204\227 \f\202\230 \332\333!r\211q\210\334\335\336\337\340!\341\"\342$\216\343
\344\345 \346\347\350\351 \"\346\352@\346\261 \210\212\353\354!\210)db\210\355c\210\356 \210\357A>\204\331 \360\357!\210\361\360A\"\210\362/\363A>\203\367 \364\3653GBGZ!\366\261\210\367c\210\370\371\372 \"\211\203p\211@\211A\262\242\373\374\"\203h\375\250\203)\335U\204-S\211\262\203-\376\202.\377\201G \350\351 \"\261\210\211\203I\211\201H \230\204IA\240\210\211\203b\211@\201I \201J !\261\210A\266\202\202J\210\201K c\210\210A\266\202\202\377 \210C\205\260\212eb\210\201L \201M \362\201N #\203\256\201L \201O \201P \201Q !\201N #\203\256\201L \350\201R D\"\362\201N #\210`)\211\205\276\201S pd\201T $\211\205\306\211E\232?\205\353\201T F\201U ed\311 \362\201V %\210)\211E\310\311 !\3128\262\211\266\202*\262\266\202)\207" [desktop-dirname desktop-restore-eager desktop-file-modtime desktop-io-file-version desktop-native-file-version desktop-header file-name-as-directory expand-file-name file-attributes desktop-full-file-name 5 yes-or-no-p time-less-p "Desktop file is more recent than the one loaded. Save anyway? " "Desktop file isn't the one loaded. Overwrite it? " "Current desktop was not loaded from a file. Overwrite this desktop file? " error "Desktop file conflict" desktop-release-lock desktop-owner desktop-claim-lock #s(hash-table size 4 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ((4) 91 (16) 115 206 139 208 139)) 208 "Save desktop file in format 208 (Readable by Emacs 25.1 and later only)? " 206 "Save desktop file in format 206 (Readable by all Emacs versions since 22.1)? " generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 ";; -*- mode: emacs-lisp; lexical-binding:t; coding: utf-8-emacs; -*-\n" ";; Created " current-time-string "\n" ";; Desktop file format version " format "%d" ";; Emacs version " run-hooks desktop-save-hook "\n;; Global section:\n" desktop-save-frameset desktop-saved-frameset desktop-outvar mapc nil kill-ring "(setq kill-ring-yank-pointer (nthcdr " int-to-string " kill-ring))\n" "\n;; Buffer section -- buffers listed in same order as in buffer list:\n" mapcar desktop-buffer-info buffer-list apply desktop-save-buffer-p "(" "desktop-create-buffer" "desktop-append-buffer-args" emacs-version desktop-globals-to-save kill-ring-yank-pointer default-directory desktop--app-id desktop-file-checksum coding-system-for-write " " "" "\n " desktop-value-to-string ")\n\n" search-forward "Global section" t "desktop-saved-frameset" line-beginning-position 3 "%S" md5 utf-8-emacs write-region nomessage] 18 (#$ . 31281) (byte-code "\304\235\203\n \202 \n\305\306\211\307$\262\310\211 F\207" [desktop-path default-directory user-emacs-directory current-prefix-arg "." read-directory-name "Directory to save desktop file in: " t nil] 6)])
#@93 Delete desktop file in `desktop-dirname'.
This function also sets `desktop-dirname' to nil.
(defalias 'desktop-remove #[0 "\205 \301 \302\303!\205 \304!\262\207" [desktop-dirname desktop-full-file-name nil file-exists-p delete-file] 3 (#$ . 36096) nil])
#@43 List of args for `desktop-create-buffer'.
(defvar desktop-buffer-args-list nil (#$ . 36363))
(defvar desktop-lazy-timer nil)
#@70 True if calling `desktop-restore-frameset' will actually restore it.
(defalias 'desktop-restoring-frameset-p #[0 "\205 \205 \302 \205 \303\207" [desktop-restore-frames desktop-saved-frameset display-graphic-p t] 1 (#$ . 36494)])
#@155 Restore the state of a set of frames.
This function depends on the value of `desktop-saved-frameset'
being set (usually, by reading it from the desktop).
(defalias 'desktop-restore-frameset #[0 "\304 \205 \305\306 \307=\310 \311=?\312\n\313 & \207" [desktop-saved-frameset desktop-restore-reuses-frames desktop-restore-in-current-display desktop-restore-forces-onscreen desktop-restoring-frameset-p frameset-restore :reuse-frames t :cleanup-frames keep :force-display :force-onscreen] 10 (#$ . 36735)])
#@541 Read and process the desktop file in directory DIRNAME.
Look for a desktop file in DIRNAME, or if DIRNAME is omitted, look in
directories listed in `desktop-path'. If a desktop file is found, it
is processed and `desktop-after-read-hook' is run. If no desktop file
is found, clear the desktop and run `desktop-no-desktop-file-hook'.
Interactively, with prefix arg \[universal-argument], ask for DIRNAME.
This function is a no-op when Emacs is running in batch mode.
It returns t if a desktop file was loaded, nil otherwise.
(fn DIRNAME)
(defalias 'desktop-read #[512 "?\205\207\306\307\310GW\203 \206I \203 \311\312\313\211\314$\206I \211\2034 \315\316@!!\2044 \211A\262\202 \211\205: \211@\262\206I \203H @\206I \n!!\315\316 !\203x\313\310\211\317 \313\211 @ A\203\227 B\320>\203\227 B\203\202 \321 \204\202 \322\323\324\"!\204\227 C\313\325\326!\210 ?\205\223 \327\330!)\202v\331 \210\332\333\334!>\262\335 \210\336\316 !\3378\262D\340\316 \314\211\211$\210\341 =\204\321 \3421\310 \343 0\202\320 \210\327\344!\210\345\346!\210\347 \204\350 \350\351A\352 \237>A\237\"\210\353\352 @!\210\325\354!\210\313,\355 \210\325\356!\210\327\357E\203(E\310HF>\204\360\361\362ED\"\210E\363HG\323\364\211\346U\203!\365\202\"\366#\262\202)\365@\211\346U\2035\365\2026\366\310
W\203C\323\367
\"\202D\365G\203R\323\370GG\"\202S\365&\210\347 \204k\371\372\373!!\203g\351\373!\210\374\375!\210\313E\211\203u\376 \210\314,\207 C\325\377!\210)\327\201H !\210\313\207" [noninteractive desktop-path user-emacs-directory desktop-dirname desktop-save desktop-buffer-fail-count file-name-as-directory expand-file-name 0 read-directory-name "Directory for desktop file: " nil t file-exists-p desktop-full-file-name desktop-owner (nil ask) daemonp y-or-n-p format "Warning: desktop file appears to be in use by PID %s.\nUsing it may cause conflicts. Use it anyway? " run-hooks desktop-not-loaded-hook message "Desktop file in use; not loaded." desktop-lazy-abort desktop-auto-save-set-timer default-value window-configuration-change-hook desktop-auto-save-disable file-attributes 5 load emacs-pid (file-error) desktop-claim-lock "Couldn't record use of desktop file" sit-for 1 desktop-restoring-frameset-p mapc bury-buffer buffer-list switch-to-buffer desktop-delay-hook desktop-restore-frameset desktop-after-read-hook "Desktop: %s%d buffer%s restored%s%s." signal wrong-type-argument frameset 7 "%d frame%s, " "" "s" ", %d failed to restore" ", %d to restore lazily" buffer-live-p get-buffer "*Messages*" walk-window-tree #[257 "\300\301\"\210\302\301\"\207" [set-window-prev-buffers nil set-window-next-buffers] 4 "\n\n(fn WINDOW)"] desktop-auto-save-enable desktop-no-desktop-file-hook desktop-buffer-ok-count desktop-first-buffer desktop-load-locked-desktop default-directory desktop-file-modtime desktop-saved-frameset cl-struct-frameset-tags desktop-buffer-args-list "No desktop file."] 17 (#$ . 37247) "i\nP"])
#@205 Change to desktop saved in DIRNAME.
Kill the desktop as specified by variables `desktop-save-mode' and
`desktop-save', then clear the desktop and load the desktop file in
directory DIRNAME.
(fn DIRNAME)
(defalias 'desktop-change-dir #[257 "\301\302\"!\262\303 \210\304 \210\305!\207" [desktop-dirname file-name-as-directory expand-file-name desktop-kill desktop-clear desktop-read] 5 (#$ . 40219) "DChange to directory: "])
#@50 Save the desktop in directory `desktop-dirname'.
(defalias 'desktop-save-in-desktop-dir #[0 "\203 \301!\210\202 \302\301!\210\303\304\305!\"\207" [desktop-dirname desktop-save call-interactively message "Desktop saved in %s" abbreviate-file-name] 4 (#$ . 40654) nil])
(defvar desktop-auto-save-timer nil)
#@26
(fn &optional TIMEOUT)
(defalias 'desktop-auto-save-enable #[256 "\211\206 \250\205 \211\206 \301V\205 \302\303\304\"\207" [desktop-auto-save-timeout 0 add-hook window-configuration-change-hook desktop-auto-save-set-timer] 4 (#$ . 40970)])
(defalias 'desktop-auto-save-disable #[0 "\300\301\302\"\210\303 \207" [remove-hook window-configuration-change-hook desktop-auto-save-set-timer desktop-auto-save-cancel-timer] 3])
#@94 Save the desktop periodically.
Called by the timer created in `desktop-auto-save-set-timer'.
(defalias 'desktop-auto-save #[0 "\205% \250\205% \304V\205% \n?\205% \305 \306 =\205% \205% \307 \310\311#\207" [desktop-save-mode desktop-auto-save-timeout desktop-lazy-timer desktop-dirname 0 emacs-pid desktop-owner desktop-save nil t] 4 (#$ . 41405)])
#@272 Set the desktop auto-save timer.
Cancel any previous timer. When `desktop-auto-save-timeout' is a positive
integer, start a new idle timer to call `desktop-auto-save' after that many
seconds of idle time.
This function is called from `window-configuration-change-hook'.
(defalias 'desktop-auto-save-set-timer #[0 "\302 \210\250\205 \303V\205 \304\305\306#\211\207" [desktop-auto-save-timeout desktop-auto-save-timer desktop-auto-save-cancel-timer 0 run-with-idle-timer nil desktop-auto-save] 4 (#$ . 41765)])
(defalias 'desktop-auto-save-cancel-timer #[0 "\205 \301!\210\302\211\207" [desktop-auto-save-timer cancel-timer nil] 2])
#@36 Revert to the last loaded desktop.
(defalias 'desktop-revert #[0 "\204 \301\302!\210\303\304 !\204 \301\305!\210\306 \210\307!\207" [desktop-dirname error "Unknown desktop directory" file-exists-p desktop-full-file-name "No desktop file found" desktop-clear desktop-read] 2 (#$ . 42413) nil])
#@70 Restore a file buffer.
(fn BUFFER-FILENAME BUFFER-NAME BUFFER-MISC)
(defalias 'desktop-restore-file-buffer #[771 "\205W \306!\204% \307\310\"\203 \311\312P!\202 \313\314\"\210\315\262\205W \315\n\206/ \316 \236A\317\320\"\3211? \322!0\202C \210\323!\210\f
=\204S \324
!\203S
\210*\211\262\207" [desktop-missing-file-warning auto-insert coding-system-for-read desktop-buffer-locals major-mode desktop-buffer-major-mode file-exists-p format "Desktop: File \"%s\" no longer exists." y-or-n-p " Re-create buffer? " message "%s" nil buffer-file-coding-system find-file-noselect :nowarn (error) switch-to-buffer pop-to-buffer functionp] 7 (#$ . 42716)])
#@163 Load the file where auto loaded FUNCTION is defined.
If FUNCTION is not currently defined, guess the library that defines it
and try to load that.
(fn FUNCTION)
(defalias 'desktop-load-file #[257 "\300!\203\f \301K\"\207\302!\303\304\"\2050 \3051( \306\307\310\311\"!\312\313#0\2020 \314\315\"\210\312\262\207" [fboundp autoload-do-load symbol-name string-match "\\`\\(.*\\)-mode\\'" (debug error) require intern match-string 1 nil t message "Require error in desktop-load-file: %S"] 7 (#$ . 43389)])
#@194
(fn FILE-VERSION BUFFER-FILENAME BUFFER-NAME BUFFER-MAJORMODE BUFFER-MINORMODES BUFFER-POINT BUFFER-MARK BUFFER-READONLY BUFFER-MISC &optional BUFFER-LOCALS COMPACTED-VARS &rest UNSUPPORTED)
(defalias 'desktop-create-buffer #[2953 " r\306\n!\210\307 \3101: \n\f\236A\2060 \311 #0\202N \312\313\n\314!#\210
\203K \315\316!\210\317\262\320!\203\\ 'T'\202d (T(\317\262 \321W\204\213 \211\203\202 \211@\322!\203{ \323!\210A\266\202\202k \210\211\203\213 \323!\210\211\203\241)\204\235 \321W\204\235 \211)\211q\210\324 \232\204\256 \325 \326\"\210\327\267\202\303 \330\316!\210\202\362 \330\331!\210\202\362 \211\203\361 \211@\306!\210\211*\236A\211\203\337 \211 !\210\202\351 \332!\203\351 \316!\210\210A\266\202\202\305 \210\203\3331\334!0\202\f\312\335\314!\"\210\316\262b\210\2031:\203+\336 @\317\223\210A@\2031\337\340!\210\2021\336 \317\223\210\2038+ \211\203a\211@\211:\203R\341@!\210\211@AL\210\202Z\341!\210\342!\210A\266\202\2029\210\343,\203q\344-,\"\202r\331!, \345W\204\241\f\211\203\240\211@\211@\346.\2368\211\203\227A@!L\210\266A\266\202\202}\210\262,\207" [desktop-io-file-version desktop-buffer-locals desktop-buffer-major-mode desktop-file-version desktop-buffer-mode-handlers desktop-missing-file-warning desktop-load-file buffer-list (debug error) desktop-restore-file-buffer message "Desktop: Can't load buffer %s: %s" error-message-string sit-for 1 nil bufferp 206 buffer-live-p bury-buffer buffer-name rename-buffer t #s(hash-table size 2 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ((t) 181 (nil) 188)) auto-fill-mode 0 functionp (error) eval "%s" mark-marker activate-mark dont-touch-tmm make-local-variable makunbound time-since time-subtract 208 2 desktop-buffer-ok-count desktop-buffer-fail-count desktop-first-buffer desktop-minor-mode-handlers buffer-read-only buffer-display-time desktop-file-modtime desktop-var-serdes-funs] 30 (#$ . 43906)])
#@91
(fn BUFFER-FILENAME BUFFER-NAME BUFFER-MAJORMODE MIM PT MK RO TL FC CFS CR BUFFER-MISC)
(defalias 'desktop-buffer #[3084 "\300\301
A
\302B\303B\304B\305B\306@B\257&\n\207" [desktop-create-buffer 205 truncate-lines fill-column case-fold-search case-replace overwrite-mode] 28 (#$ . 45921)])
#@127 Append ARGS at end of `desktop-buffer-args-list'.
ARGS must be an argument list for `desktop-create-buffer'.
(fn &rest ARGS)
(defalias 'desktop-append-buffer-args #[128 "C\244 ?\205 \303\n\304\305#\211\207" [desktop-buffer-args-list desktop-lazy-timer desktop-lazy-idle-delay run-with-idle-timer t desktop-idle-create-buffers] 5 (#$ . 46245)])
#@70 Pop args from `desktop-buffer-args-list', create buffer and bury it.
(defalias 'desktop-lazy-create-buffer #[0 "\205I G\211A\242\3068\307\310# \203 \311\312\"\210\313\314\211 \315\316\"\210\317\305!\210\313\320\321!!\210 \205F \311\322 \314V\203D \323\202E \324#+\266\204\207" [desktop-buffer-args-list desktop-lazy-verbose desktop-buffer-fail-count desktop-buffer-ok-count desktop-first-buffer desktop-delay-hook 2 format "Desktop lazily opening %s (%s remaining)..." message "%s" nil 0 apply desktop-create-buffer run-hooks bury-buffer get-buffer "%s%s" "done" "failed"] 9 (#$ . 46601)])
#@114 Create buffers until the user does something, then stop.
If there are no buffers left to create, kill the timer.
(defalias 'desktop-idle-create-buffers #[0 "\302\211\205: \205: \303 \304\305\306\307\310!\311\"\312$\216\313 \210)\210\314\315!\262\204 \316 !\210\317\320\321!\210\314\322!\210\320\323!\210\202 \207" [desktop-buffer-args-list desktop-lazy-timer 1 current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 desktop-lazy-create-buffer sit-for 0.2 cancel-timer nil message "Lazy desktop load complete" 3 ""] 8 (#$ . 47213)])
#@37 Run the desktop load to completion.
(defalias 'desktop-lazy-complete #[0 "\302 \203 \303 \304\305\306\307\310!\311\"\312$\216\313 \210)\210\202 \314\315!)\207" [desktop-lazy-verbose desktop-buffer-args-list t current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 desktop-lazy-create-buffer message "Lazy desktop load complete"] 7 (#$ . 47809) nil])
#@36 Abort lazy loading of the desktop.
(defalias 'desktop-lazy-abort #[0 "\203\n \302!\210\303 \205 \303\304\305!\205 \306\307!\207" [desktop-lazy-timer desktop-buffer-args-list cancel-timer nil called-interactively-p interactive message "Lazy desktop load aborted"] 2 (#$ . 48220) nil])
(byte-code "\300\301\302\"\210\303\304!\207" [add-hook after-init-hook #[0 "\303\211\235\203 \304\"\301\305!\210\210 \205 \306 \210\307\211\207" [command-line-args desktop-save-mode inhibit-startup-screen "--no-desktop" delete 0 desktop-read t] 4] provide desktop] 3)
Mini Shell