ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/desktop.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(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" (#$ . 479))
#@60 Format version of the current desktop package, an integer.
(defconst desktop-native-file-version 208 (#$ . 627))
#@69 The format version of the current desktop file (an integer) or nil.
(defvar desktop-io-file-version nil (#$ . 746))
(byte-code "\300\301\302\303\304\305%\210\306\307\310\302#\210\311\211\2030 \211@\307N\203) \310N\204) \312\310\307N#\210A\266\202\202 \210\313\307\310\314#\210\315\310\316\317\320DD\321\322\323\324\325\304\301\326\327& \207" [custom-declare-group desktop nil "Save status of Emacs when you exit." :group frames defvaralias desktop-enable desktop-save-mode (saved-value saved-variable-comment) put make-obsolete-variable "22.1" custom-declare-variable 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)
#@879 Toggle desktop saving (Desktop Save mode).
With a prefix argument ARG, enable Desktop Save mode if ARG is positive,
and disable it otherwise. If called from Lisp, enable the mode if ARG
is omitted or nil.
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 (#$ . 1730) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
#@182 Hook run after entering or leaving `desktop-save-mode'.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar desktop-save-mode-hook nil (#$ . 3350))
(byte-code "\301\302\303\304\300!\205\n \303\211%\207" [desktop-save-mode-map 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 (#$ . 3712)])
(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\330\331\332\333#\210\334\211\203] \211@\331N\203V \332N\204V \335\332\331N#\210A\266\202\202< \210\336\331\332\313#\210\300\332\302\303\337DD\340\306\341\310\311&\210\300\342\302\303\343DD\344\306\341\310\311\312\327& \210\300\345\302\303\346DD\347\306\350\310\311\312\351& \210\300\352\302\303\353DD\354\306\355\310\311\312\313& \210\300\356\302\303\357DD\360\306\361\310\311\312\313& \210\300\362\302\303\363DD\364\306\361\310\311\365\366\312\327& \210\300\367\302\303\370DD\371\306\361\310\311\365\372\312\313& \210\300\373\302\303\374DD\375\306\361\310\311&\210\300\376\302\303\377DD\201@ \306\201A \310\311&\210\300\201B \302\303\201C DD\201D \306\201E \310\311\312\313& \210\300\201F \302\303\201G DD\201H \312\201I \306\201J \310\311& \210\300\201K \302\303\201L DD\201M \306\201N \310\311&\210\300\201O \302\303\201P DD\201Q \306\201R \312\322\310\311& \210\300\201S \302\303\201T DD\201U \306\201V \310\311&\210\300\201W \302\303\201X DD\201Y \306\201Z \310\311&\210\300\201[ \302\303\201\\ DD\201] \306\355\310\311\312\322& \210\300\201^ \302\303\201_ DD\201` \306\201a \310\311\312\322& \210\300\201b \302\303\201c DD\201d \306\201e \310\311\312\322& \210\300\201f \302\303\201g DD\201h \306\201i \310\311\312\322& \210\300\201j \302\303\201k DD\201l \306\201m \310\311\312\313& \210\300\201n \302\303\201o DD\201p \306\201q \310\311\312\313& \210\300\201r \302\303\201s DD\201t \306\355\310\311\312\313& \210\300\201u \302\303\201v DD\201w \306\201x \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 idle time before auto-save of the desktop.\nThe idle timer activates auto-saving only when window configuration changes.\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" defvaralias desktop-basefilename desktop-base-file-name nil (saved-value saved-variable-comment) put make-obsolete-variable #[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 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." (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 (#$ . 14426))
(byte-code "\300\301!\210\302\303\301\304#\210\302\305\301\304#\207" [make-variable-buffer-local desktop-save-buffer make-obsolete-variable desktop-buffer-modes-to-save "22.1" desktop-buffer-misc-functions] 4)
#@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 (#$ . 15242))
(byte-code "\300\301\302\303#\210\304\305\301\306#\210\307\310\311\312\313DD\314\315\316\317\320&\207" [put desktop-buffer-mode-handlers risky-local-variable t make-obsolete-variable desktop-buffer-handlers "22.1" custom-declare-variable desktop-minor-mode-table funcall function #[0 "\300\207" [((auto-fill-function auto-fill-mode) (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 (#$ . 17693))
(put 'desktop-minor-mode-handlers 'risky-local-variable t)
#@58 The directory in which the desktop file should be saved.
(defvar desktop-dirname nil (#$ . 19077))
#@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 (#$ . 19183)])
#@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 (#$ . 19456)])
#@35 *Header to place in Desktop file.
(defconst desktop-header ";; --------------------------------------------------------------------------\n;; Desktop File for Emacs\n;; --------------------------------------------------------------------------\n" (#$ . -19733))
#@68 Hooks run after all buffers are loaded; intended for internal use.
(defvar desktop-delay-hook nil (#$ . 20001))
#@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 (#$ . 20120))
#@99 Saved state of all frames.
Only valid during frame saving & restoring; intended for internal use.
(defvar desktop-saved-frameset nil (#$ . 20297))
#@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 (#$ . 20451))
#@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) (#$ . 20616))
#@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 (#$ . 21114)])
#@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 (#$ . 21756)])
#@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 (#$ . 22064)])
#@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 (#$ . 22333)])
#@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\310\311BB!\210\202% \307\310@AE!\210A\266\202\202 \210\312\313\314\n\315#\316Q\317 \211\203d \211@\320!\211\321H\322=\204\\ \306\323\324#)\266\203\204\\ \325!\210\210A\266\202\2027 \266\326 \210\f\205\270 \327\330!\205\270 \331 \332\333!!\334\335 \336\"\211\205\264 \211@\3371\244 \211=\206\231 \211=\206\231 \340\341\"?\205\240 \342!0\202\254 \343\344\345!\"\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 eval setq-default (nil) "^\\(" 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) frame-parameter desktop-dont-clear delete-frame delay-warning desktop error-message-string] 11 (#$ . 22502) 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 (#$ . 24102)])
(defalias 'desktop-list* #[128 "\211\205 \300\301\"\207" [apply cl-list*] 4 "\n\n(fn &rest ARGS)"])
#@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\203Z \211@\316!\203S \211J\203S \211 \236\211\2036 \211A@\202= \317!\205= \211\203Q \211\320\"\204P \211B\262\210\266A\266\202\202 \262\262`\321\322!\fD
\317!\205q !\323 \313\211\203\236 \211@\211\236\211\203\213 \211B\262\202\226 \235\203\226 B\262\210A\266\202\202v \210\262\324Y\205\256 \314\325\"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 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 (#$ . 25074)])
#@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;\203- \303!\304\305G\306$\210\302B\207\2119\2036 \307B\207\310!\203] \311\312\"\306\236\211\203R \306\313\311\314\"BB\202\\ \302\315\313\311\316\"\"B\207\211:\203\277 \211\306\211:\203{ \312@!\211B\262\210A\262\202e \203\213 \312!\300\262\211B\262\210\306\236\203\245 \306\203\232 \317\202\233 \320\311\321\237\"BB\202\276 \307\322\311\316\203\262 A\202\263 \237\"\205\274 @A\"B\207\323!\203\324 \306\324\325\326\327!\330\331O!DDB\207\332!\203\333!\334\335!!\306\336\337\340\341\342\343\306\344\345\346\fCB\347\346
CBDFECBE\350BBBB\207\302\351B\207" [t keywordp may 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 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 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"] 17 (#$ . 26483)])
#@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 (#$ . 27948)])
#@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 (#$ . 28339)])
#@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| \f>?\205| \203D \204{ \306\307\310#)\266\203\203{ \311>\203f \204{ rq\210
\306\307\310#)\266\203)\211\262\203{ ?\205| \211?\205| rq\210\n)\205| \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] 14 (#$ . 28935)])
#@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=\2034 \303\304!\305\"\306!\203 \211\2023 \211\307\230\203& \310\2023 \211\311\230\2030 \305\2023 \310P\207\312=\203? \303\"\207\304!\207" [desktop-file-name-format nil tilde file-relative-name expand-file-name "~" file-name-absolute-p "./" "~/" "." local] 5 (#$ . 29642)])
(defalias 'desktop--check-dont-save #[257 "\300\301\"?\207" [frame-parameter desktop-dont-save] 4 "\n\n(fn FRAME)"])
(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 (#$ . 30331)])
#@1292 Save the desktop in a desktop file.
Parameter DIRNAME specifies where to save the desktop file.
Optional parameter RELEASE says whether we're done with this
desktop. 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.
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 bare prefix argument: C-u M-x desktop-save.
You are recommended to do this once you have firmly upgraded to
Emacs 25.1 (or later). To downgrade a version 208 file to version
206, use a double command prefix: C-u C-u M-x desktop-save.
Confirmation will be requested in either case. In a non-interactive
call, VERSION can be given as an integer, either 206 or 208, which
will be accepted as the format version in which to save the file
without further confirmation.
(fn DIRNAME &optional RELEASE ONLY-IF-CHANGED VERSION)
(defalias 'desktop-save #[1025 "\306\307!!\212 \310\311\312 !8\211\203? \n\232\204? \313\n\203/ \314!\314\n!V\203+ \315\2020 \316\2020 \317!\204? ?\205\375\320\321!\205\375\203I \322 \210\202U \211\203R \323 \204U \324 \210\325\232\203s \326=\204g \313\327!\203k \326\202\244 \206\244 \f\202\244 \330\232\203\221 \331=\204\205 \313\332!\203\211 \331\202\244 \206\244 \f\202\244 \333>\203\233 \202\244 \204\243 \f\202\244 \334\335!r\211q\210\336\337\340\341\342!\343\"\344$\216\345
\346\347 \350\351\352\353 \"\350\354@\350\261 \210\212\355\356!\210)db\210\357c\210\360 \210\361A>\204\345 \362\361!\210\363\362A\"\210\3641\365A>\203\366\3675GBGZ!\370\261\210\371c\210\372\373\374 \"\211\203\200\211@\211A\262\242\375\376\"\203x\377\250\2035\337U\204;S\211\262\203;\201G \202>\201H \201I \352\353 \"\261\210\211\203Y\211\201J \230\204YA\240\210\211\203r\211@\201K \201L !\261\210A\266\202\202Z\210\201M c\210\210A\266\202\202 \210C\205\300\212eb\210\201N \201O \364\201P #\203\276\201N \201Q \201R \201S !\201P #\203\276\201N \352\201T D\"\364\201P #\210`)\211\205\316\201U pd\201V $\211\205\326\211E\232?\205\370\201V F\201W ed\312 \364\201X %\210)\211E\310\311\312 !8\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 5 file-attributes desktop-full-file-name yes-or-no-p float-time "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 (4) 208 "Save desktop file in format 208 (Readable by Emacs 25.1 and later only)? " (16) 206 "Save desktop file in format 206 (Readable by all Emacs versions since 22.1)? " (206 208) generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 ";; -*- mode: emacs-lisp; coding: emacs-mule; -*-\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 "(" emacs-version desktop-globals-to-save kill-ring-yank-pointer default-directory desktop--app-id desktop-file-checksum coding-system-for-write "desktop-create-buffer" "desktop-append-buffer-args" " " "" "\n " desktop-value-to-string ")\n\n" search-forward "Global section" t "desktop-saved-frameset" line-beginning-position 3 "%S" md5 emacs-mule write-region nomessage] 18 (#$ . 30742) (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 (#$ . 35242) nil])
#@43 List of args for `desktop-create-buffer'.
(defvar desktop-buffer-args-list nil (#$ . 35509))
(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 (#$ . 35640)])
#@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 (#$ . 35881)])
#@480 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'.
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 &optional DIRNAME)
(defalias 'desktop-read #[256 "?\205t\306\307\310GW\203 \206< \211\203' \311\312@!!\204' \211A\262\202 \211\205- \211@\262\206< \203; @\206< \n!!\311\312 !\203g\313\310\211\314 \313\211 = >\203\212 ?\315>\203\212 ?\203u \316 \204u \317\320\321\"!\204\212 @\313\322\323!\210 ?\205\206 \324\325!)\202e\326 \210\327A>\262\330 \210\331\312 \332\211\211$\210\333\334\312 !8B\335 =\204\300 \3361\267 \337 0\202\277 \210\324\340!\210\341\342!\210\343 \204\327 \344\345>\346 \237>A\237\"\210\347\346 @!\210\322\350!\210\313(\351 \210\322\352!\210\324\353C\203C\310HD>\204\376 \354\355\356CD\"\210C\357HG\320\360\211\342U\203\361\202\362#\262\202\361=\211\342U\203$\361\202%\362\310
W\2032\320\363
\"\2023\361E\203A\320\364EG\"\202B\361&\210\343 \204Z\365\366\367!!\203V\345\367!\210\370\371!\210\313C\211\203d\372 \210\332,\207 @\322\373!\210)\324\374!\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 file-exists-p desktop-full-file-name nil 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 desktop-auto-save-disable load t 5 file-attributes 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 "No desktop file." desktop-buffer-ok-count desktop-first-buffer desktop-load-locked-desktop default-directory window-configuration-change-hook desktop-file-modtime desktop-saved-frameset cl-struct-frameset-tags desktop-buffer-args-list] 16 (#$ . 36393) nil])
#@83 Load the `default' start-up library manually.
Also inhibit further loading of it.
(defalias 'desktop-load-default #[0 "?\205 \301\302\303\211#\210\303\211\207" [inhibit-default-init load "default" t] 4 (#$ . 39179)])
(make-obsolete 'desktop-load-default 'desktop-save-mode "22.1")
#@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 (#$ . 39470) "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 (#$ . 39905) nil])
(defvar desktop-auto-save-timer nil)
(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 "\n\n(fn &optional TIMEOUT)"])
(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 (#$ . 40641)])
#@210 Set the 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' repeatedly
after that many seconds of idle time.
(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 (#$ . 41001)])
(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 (#$ . 41587) nil])
#@70 Restore a file buffer.
(fn BUFFER-FILENAME BUFFER-NAME BUFFER-MISC)
(defalias 'desktop-restore-file-buffer #[771 "\205V \306!\204% \307\310\"\203 \311\312P!\202 \313\314\"\210\315\262\205V \315\n\206/ \316 \236A\317!\3201> \321!0\202B \210\322!\210\f
=\204R \323
!\203R
\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 (error) switch-to-buffer pop-to-buffer functionp] 7 (#$ . 41890)])
#@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 (#$ . 42550)])
(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\225(\204\235 \321W\204\235 \211(\211q\210\324 \232\204\256 \325 \326\"\210\327\232\203\274 \330\316!\210\202\371 \331\232\203\312 \330\332!\210\202\371 \211\203\370 \211@\306!\210\211)\236A\211\203\346 \211 !\210\202\360 \333!\203\360 \316!\210\210A\266\202\202\314 \210\203\3341 \335!0\202\312\336\314!\"\210\316\262b\210\2038:\2032\337 @\317\223\210A@\2038\340\341!\210\2028\337 \317\223\210\203?* \211\203h\211@\211:\203Y\342@!\210\211@AL\210\202a\342!\210\343!\210A\266\202\202@\210 \344W\204\225\f\211\203\224\211@\211@\345+\2368\211\203\213A@!L\210\266A\266\202\202q\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 (t) auto-fill-mode (nil) 0 functionp (error) eval "%s" mark-marker activate-mark dont-touch-tmm make-local-variable makunbound 208 2 desktop-buffer-ok-count desktop-buffer-fail-count desktop-first-buffer desktop-minor-mode-handlers buffer-read-only desktop-var-serdes-funs] 30 "\n\n(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-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 "\n\n(fn BUFFER-FILENAME BUFFER-NAME BUFFER-MAJORMODE MIM PT MK RO TL FC CFS CR BUFFER-MISC)"])
#@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 (#$ . 45193)])
#@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 (#$ . 45549)])
#@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 (#$ . 46161)])
#@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 (#$ . 46757) 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 (#$ . 47168) 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)
Kontol Shell Bypass