Your IP : 216.73.216.48


Current Path : /usr/X11R6/share/emacs/24.5/lisp/
Upload File :
Current File : //usr/X11R6/share/emacs/24.5/lisp/desktop.elc

;ELC
;;; Compiled
;;; in Emacs version 24.5.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)
#@130 Version number of desktop file format.
Written into the desktop file and used at desktop read to provide
backward compatibility.
(defvar desktop-file-version "206" (#$ . 480))
(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 "\n\n(fn)"] "Non-nil if Desktop-Save mode is enabled.\nSee the command `desktop-save-mode' for 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)
#@881 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 `M-x desktop-save'.
To load it, use `M-x 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=\203
?\202\303!\304V\211\203\305 \210\202 \306 \210\307\310\203*\311\202+\312\"\210\313\314!\203P\315\300!\210\301 \203C\211\301 \232\203P\316\317\203M\320\202N\321\"\210\210\322 \210\207" [desktop-save-mode current-message toggle 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" "en" "dis" force-mode-line-update] 6 (#$ . 1534) (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 (#$ . 3075))
(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)
#@64 Disable `desktop-save-mode'.  Provided for use in hooks.

(fn)
(defalias 'desktop-save-mode-off #[0 "\300\301!\207" [desktop-save-mode 0] 2 (#$ . 3437)])
(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\201CDD\201D\306\201E\310\311\312\313&	\210\300\201F\302\303\201GDD\201H\312\201I\306\201J\310\311&	\210\300\201K\302\303\201LDD\201M\306\201N\310\311&\210\300\201O\302\303\201PDD\201Q\306\201R\312\322\310\311&	\210\300\201S\302\303\201TDD\201U\306\201V\310\311&\210\300\201W\302\303\201XDD\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\201cDD\201d\306\201e\310\311\312\322&	\210\300\201f\302\303\201gDD\201h\306\201i\310\311\312\322&	\210\300\201j\302\303\201kDD\201l\306\201m\310\311\312\313&	\210\300\201n\302\303\201oDD\201p\306\201q\310\311\312\313&	\210\300\201r\302\303\201sDD\201t\306\355\310\311\312\313&	\210\300\201u\302\303\201vDD\201w\306\201x\310\311\312\313&	\207" [custom-declare-variable desktop-save funcall function #[0 "\300\207" [ask-if-new] 1 "\n\n(fn)"] "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 "\n\n(fn)"] "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\301\302\303\304\305\306\307!\310\"\311\312%D\313\302\314\301EDC\217\207" [set-default #:err funcall make-byte-code 0 "\300\250\203\300\301V\203\302\300!\207\303 \207" vconcat vector [0 desktop-auto-save-enable desktop-auto-save-disable] 2 "\n\n(fn)" error #[257 "\300\207" [nil] 2 "\n\n(fn IGNORED)"]] 10 "\n\n(fn SYMBOL VALUE)"] "24.4" desktop-load-locked-desktop #[0 "\300\207" [ask] 1 "\n\n(fn)"] "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 "\n\n(fn)"] "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 "\n\n(fn)"] "Name of lock file for Emacs desktop, excluding the directory part." desktop-path #[0 "\301D\207" [user-emacs-directory "~"] 2 "\n\n(fn)"] "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 "\n\n(fn)"] "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 "\n\n(fn)"] "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 "\n\n(fn)"] "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 "\n\n(fn)"] "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 "\n\n(fn)"] "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 "\n\n(fn)"] "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 "\n\n(fn)"] "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 "\n\n(fn)"] "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 "\n\n(fn)"] "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 "\\` \n\n(fn)"] "Regexp identifying buffers that are to be excluded from saving." (choice (const :tag "None" nil) regexp) desktop-files-not-to-save #[0 "\300\207" ["\\(^/[^/:]*:\\|(ftp)$\\)"] 1 "\\(^/[^/:]*:\\|(ftp)$\\)\n\n(fn)"] "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 "\n\n(fn)"] "List of major modes whose buffers should not be saved." (repeat symbol) desktop-restore-frames #[0 "\300\207" [t] 1 "\n\n(fn)"] "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" [nil] 1 "\n\n(fn)"] "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 "\n\n(fn)"] "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 "\n\n(fn)"] "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 "\n\n(fn)"] "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 "\n\n(fn)"] "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 "\n\n(fn)"] "Verbose reporting of lazily created buffers." desktop-lazy-idle-delay #[0 "\300\207" [5] 1 "\n\n(fn)"] "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 (#$ . 14455))
(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)
#@1136 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))

Furthermore the major mode function must be autoloaded.
(defvar desktop-buffer-mode-handlers nil (#$ . 15271))
(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 "\n\n(fn)"] "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 sexp :group desktop] 8)
#@1144 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))

Furthermore the minor mode function must be autoloaded.

See also `desktop-minor-mode-table'.
(defvar desktop-minor-mode-handlers nil (#$ . 17498))
(put 'desktop-minor-mode-handlers 'risky-local-variable t)
#@58 The directory in which the desktop file should be saved.
(defvar desktop-dirname nil (#$ . 18760))
#@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 (#$ . 18866)])
#@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 (#$ . 19139)])
#@35 *Header to place in Desktop file.
(defconst desktop-header ";; --------------------------------------------------------------------------\n;; Desktop File for Emacs\n;; --------------------------------------------------------------------------\n" (#$ . -19416))
#@68 Hooks run after all buffers are loaded; intended for internal use.
(defvar desktop-delay-hook nil (#$ . 19684))
#@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 (#$ . 19803))
#@99 Saved state of all frames.
Only valid during frame saving & restoring; intended for internal use.
(defvar desktop-saved-frameset nil (#$ . 19980))
#@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 (#$ . 20134))
#@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 "\300C\301!\302!\205*\303\304\305\306\307\310\311\"\312\"\313\314%D\315\304\316\303EDC\217\205*\242\207" [nil desktop-full-lock-name file-exists-p #1=#:err funcall make-byte-code 0 "\302\303!r\211q\210\304\305\306\307\310\311!\312\"\313\314%DC\216\315\301!\210eb\210\300\316p!\240\210\300\242*\250\207" vconcat vector [generate-new-buffer " *temp*" funcall make-byte-code 0 "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 "\n\n(fn)" insert-file-contents-literally read] 8 "\n\n(fn)" error #[257 "\300\207" [nil] 2 "\n\n(fn IGNORED)"]] 12 (#$ . 20299)])
#@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 (#$ . 21147)])
#@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 (#$ . 21455)])
#@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 (#$ . 21724)])
#@408 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).

(fn)
(defalias 'desktop-clear #[0 "\304 \210\211\203*\211@\2119\203\305\306\307BB!\210\202#\305\306@AE!\210A\266\202\202\210\310\311\312	\313#\314Q\315 \211\203b\211@\316!\211\317H\320=\204Z\321\322\323#)\266\203\204Z\324!\210\210A\266\202\2025\266\325 \210\205\253\326\327!\205\253\330 \331\332!!\333\334 \335\"\211\205\247\211@\336\337\340\317\341\342\343\n\n	#\344\"\345\346%D\347\337\350\336EDC\217\210A\266\202\202}\262\266\202\207" [desktop-globals-to-clear desktop-clear-preserve-buffers inhibit-changing-match-data desktop-restore-frames desktop-lazy-abort eval setq-default (nil) "^\\(" mapconcat #[257 "\300\301Q\207" ["\\(" "\\)"] 4 "\n\n(fn REGEXP)"] "\\|" "\\)$" buffer-list buffer-name 0 32 nil 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 #1=#:err funcall make-byte-code "\302\300=\206\302\301=\206\303\302\304\"?\205\305\302!\207" vconcat vector [frame-parameter desktop-dont-clear delete-frame] 3 "\n\n(fn)" error #[257 "\300\301\302!\"\207" [delay-warning desktop error-message-string] 5 "\n\n(fn ERR)"]] 14 (#$ . 21893) nil])
(byte-code "\204	\301\302\303\"\210\301\207" [noninteractive add-hook kill-emacs-hook desktop-kill] 3)
#@178 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.

(fn)
(defalias 'desktop-kill #[0 "\203Z\303\304 !	\305=\2069\211\203	\306=\2069\211\203&\n\203&	\307=\2069	\310>\2046\211\2059	\311=\2059\312\313!\262\203Z\n\204M\314\315\316\317\320\211\305$!!\321\322\323D\324\322\325\321EDC\217\210\326 \327 =\205d\330 \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 #1=#:err funcall #[0 "\301\302\"\207" [desktop-dirname desktop-save t] 3 "\n\n(fn)"] file-error #[257 "\300\301!?\205
\302@A\"\207" [yes-or-no-p "Error while saving the desktop.  Ignore? " signal] 4 "\n\n(fn ERR)"] emacs-pid desktop-owner desktop-release-lock] 7 (#$ . 23620)])
(defalias 'desktop-list* #[128 "\211\205\300\301\"\207" [apply cl-list*] 4 "\n\n(fn &rest ARGS)"])
(defalias 'desktop-buffer-info #[257 "\211q\210\306\307!\205\307 \310\311 \"\312 	\313C\314\315\316\317\320\321!\322\"\323\324%\325\326\n\"\"\210\211\242\262`\327\330!D\f\331
!\205=
!\332 \313\211\203j\211@\211\236\211\203W\211B\262\202b\235\203bB\262\210A\266\202\202B\210\262\257\n\207" [desktop-dirname major-mode minor-mode-alist mark-active buffer-read-only desktop-save-buffer fboundp uniquify-buffer-base-name desktop-file-name buffer-file-name buffer-name nil mapc make-byte-code 257 "\302!\205:\211J\205:\211	\236\211\203\211\211A@\262\202\"\303!\205\"\211\2058\211\300\242\235\2032\300\242\2028\300\300\242B\240\266\202\207" vconcat vector [desktop-minor-mode-table boundp functionp] 6 "\n\n(fn MINOR-MODE)" mapcar car mark t functionp buffer-local-variables desktop-locals-to-save] 17 "\n\n(fn BUFFER)"])
#@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\302\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\301\307\322\311\316\203\262A\202\263\237\"\205\277\211@A\262\"B\207\323!\203\327\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 (#$ . 25576)])
#@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 (#$ . 27050)])
#@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 (#$ . 27441)])
#@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 (#$ . 28037)])
#@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 (#$ . 28744)])
(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))
#@137 Save the state of existing frames in `desktop-saved-frameset'.
Frames with a non-nil `desktop-dont-save' parameter are not saved.

(fn)
(defalias 'desktop-save-frameset #[0 "\205\305\306\307	\310\n\311Q\312\313&\211\207" [desktop-restore-frames desktop--app-id user-login-name system-name desktop-saved-frameset frameset-save nil :app :name "@" :predicate desktop--check-dont-save] 8 (#$ . 29433)])
#@416 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.

(fn DIRNAME &optional RELEASE ONLY-IF-CHANGED)
(defalias 'desktop-save #[769 "\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\241\320\321!\205\241\203I\322 \210\202U\211\203R\323 \204U\324 \210\325\326!r\211q\210\327\330\331\332\333\334!\335\"\336\337%DC\216\340\341\342 \343\344\f\343\345
\343\261\210\212\346\347!\210)db\210\350c\210\351 \210\352@>\204\226\353\352!\210\354\353@\"\210\355*\356@>\203\264\357\360.GAGZ!\361\261\210\362c\210\363\364\365 \"\211\203\"\211@\211A\262\242\366\367\"\203\370\250\203\346\371!\204\352S\211\262\203\352\372\202\353\373\374\f\261\210\211\203\377\211\375\230\204\377A\240\210\211\203\211@\376\377!\261\210A\266\202\202\210\201Fc\210\210A\266\202\202\274\210B\205d\212eb\210\201G\201H\355\201I#\203b\201G\201J\201K\201L!\201I#\203b\201G\201M\201NC\"\355\201I#\210`)\211\205r\201Opd\201P$\211\205z\211D\232?\205\234\201PE\201Qed\312 \355\201R%\210)\211D\310\311\312 !8\211\266\202*\262\266\202)\207" [desktop-dirname desktop-restore-eager desktop-file-modtime desktop-header desktop-file-version emacs-version 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 generate-new-buffer " *temp*" funcall make-byte-code 0 "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 "\n\n(fn)" ";; -*- mode: emacs-lisp; coding: emacs-mule; -*-\n" ";; Created " current-time-string "\n" ";; Desktop file format version " ";; 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 "(" zerop "desktop-create-buffer" "desktop-append-buffer-args" " " "" "\n  " desktop-value-to-string desktop-globals-to-save kill-ring-yank-pointer default-directory desktop--app-id desktop-file-checksum coding-system-for-write ")\n\n" search-forward "Global section" t "desktop-saved-frameset" line-beginning-position 3 format "%S" md5 emacs-mule write-region nomessage] 17 (#$ . 29845) (byte-code "\303\235\203\n	\202\n\304\305\211\306$\262C\207" [desktop-path default-directory user-emacs-directory "." read-directory-name "Directory to save desktop file in: " t] 6)])
#@99 Delete desktop file in `desktop-dirname'.
This function also sets `desktop-dirname' to nil.

(fn)
(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 (#$ . 33022) nil])
#@43 List of args for `desktop-create-buffer'.
(defvar desktop-buffer-args-list nil (#$ . 33295))
(defvar desktop-lazy-timer nil)
#@76 True if calling `desktop-restore-frameset' will actually restore it.

(fn)
(defalias 'desktop-restoring-frameset-p #[0 "\205		\205	\302\207" [desktop-restore-frames desktop-saved-frameset t] 1 (#$ . 33426)])
#@161 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).

(fn)
(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 (#$ . 33644)])
#@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 "?\205c\306\307\310GW\203\206<	\211\203'\311\312@!!\204'\211A\262\202\211\205-\211@\262\206<	\203;	@\206<\n!!\311\312 !\203S\313\310\211\314 \313?@\211\203\210A\315>\203\210A\203s\316 \204s\317\320\321\"!\204\210B\313\322\323!\210?\205\204\324\325!)\202Q\326 \210\327 \210\330\312 \331\211\211$\210\332\333\312 !8C\334 =\204\262\335\336\337D\340\336\341\335EDC\217\210\342 \204\311\343\344@\345 \237>A\237\"\210\346\345 @!\210\322\347!\210\313'\350 \210\322\351!\210\324\352D\203D\310HE>\204\356\353\354\355\356#\210D\357HG\320\360\211\361U\203\362\202\363#\262\202\362?\211\361U\203\362\202\363\310
W\203\"\320\364
\"\202#\362F\2031\320\365FG\"\2022\362&\210\342 \204J\366\367\370!!\203F\344\370!\210\371\372!\210\313D\373 \210\331,\207\374 \210B\322\375!\210)\324\376!\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-disable load t 5 file-attributes emacs-pid #1=#:err funcall #[0 "\300 \207" [desktop-claim-lock] 1 "\n\n(fn)"] file-error #[257 "\300\301!\210\302\303!\207" [message "Couldn't record use of desktop file" sit-for 1] 3 "\n\n(fn IGNORED)"] 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." error "%s accessing a non-%s" frameset-states frameset 7 "%d frame%s, " 1 "" "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-clear desktop-no-desktop-file-hook "No desktop file." 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] 14 (#$ . 34162) nil])
#@89 Load the `default' start-up library manually.
Also inhibit further loading of it.

(fn)
(defalias 'desktop-load-default #[0 "?\205\301\302\303\211#\210\303\211\207" [inhibit-default-init load "default" t] 4 (#$ . 37007)])
(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 (#$ . 37304) "DChange to directory: "])
#@56 Save the desktop in directory `desktop-dirname'.

(fn)
(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 (#$ . 37739) 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 "\n\n(fn)"])
#@100 Save the desktop periodically.
Called by the timer created in `desktop-auto-save-set-timer'.

(fn)
(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 (#$ . 38493)])
#@216 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.

(fn)
(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 (#$ . 38859)])
(defalias 'desktop-auto-save-cancel-timer #[0 "\205\301!\210\302\211\207" [desktop-auto-save-timer cancel-timer nil] 2 "\n\n(fn)"])
#@42 Revert to the last loaded desktop.

(fn)
(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 (#$ . 39462) nil])
#@70 Restore a file buffer.

(fn BUFFER-FILENAME BUFFER-NAME BUFFER-MISC)
(defalias 'desktop-restore-file-buffer #[771 "\205k\306!\204%\307\310\"\203\311\312P!\202 \313\314\"\210\315\262\205k\315\n\206/\316\236A\317!\320\321\322\323\324\325\326!\327\"\330\331%D\332\321\322\333\324\325\326	!\334\"\335\336%\320EDC\217\210\f
=\204g\337
!\203g
 \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 #1=#:err funcall make-byte-code 0 "\301\300!\207" vconcat vector [switch-to-buffer] 2 "\n\n(fn)" error 257 [pop-to-buffer] 3 "\n\n(fn IGNORED)" functionp] 14 (#$ . 39771)])
#@69 Load the file where auto loaded FUNCTION is defined.

(fn FUNCTION)
(defalias 'desktop-load-file #[257 "\300!\205\301K\"\207" [fboundp autoload-do-load] 4 (#$ . 40610)])
(defalias 'desktop-create-buffer #[2569 "										r\306	!\210\307 \310\311\312\313\314\315\316\n#\317\"\320\321%D\322\311\312\323\324\315\316!\325\"\326\327%\310EDC\217\330!\203UT\202[\fT\331\262\n\332W\204\202\211\203y\211@\333!\203r\334!\210A\266\202\202b\210\211\203\202\334!\210\211\205\\
\204\222\n\332W\204\222\211\211q\210\335 	\232\204\243\336	\337\"\210\340\232\203\261\341\342!\210\202\356\343\232\203\277\341\313!\210\202\356\211\203\355\211@\306!\210\211.\236A\211\203\333\211!\210\202\345\344!\203\345\342!\210\210A\266\202\202\301\210\203\f\345\311\312\313\346\315\316\f!\347\"\350\321%D\351\311\352\345EDC\217b\210\203*:\203$\353 @\331\223\210A@/\202*\353 \331\223\210\20310\211\205Z\211@\211:\203K\354@!\210\211@AL\210\202S\354!\210\355!\210A\266\202\2022\262\266\202,\207" [desktop-buffer-locals desktop-buffer-major-mode desktop-file-version desktop-buffer-ok-count desktop-buffer-fail-count desktop-first-buffer desktop-load-file buffer-list #1=#:err funcall make-byte-code 0 "\f\236A\206\305\300\301\302#\207" vconcat vector [desktop-buffer-major-mode desktop-buffer-mode-handlers desktop-restore-file-buffer] 4 "\n\n(fn)" (debug error) 257 "\302\303\300\304!#\210	\203\305\306!\210\307\207" [desktop-missing-file-warning message "Desktop: Can't load buffer %s: %s" error-message-string sit-for 1 nil] 6 "\n\n(fn ERR)" bufferp nil 206 buffer-live-p bury-buffer buffer-name rename-buffer t (t) auto-fill-mode 1 (nil) functionp #2=#:err "\301\300!\207" [eval] 2 error #[257 "\300\301\302!\"\210\303\207" [message "%s" error-message-string 1] 5 "\n\n(fn ERR)"] mark-marker make-local-variable makunbound desktop-minor-mode-handlers mark-active buffer-read-only] 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)"])
(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 (#$ . 43051)])
#@76 Pop args from `desktop-buffer-args-list', create buffer and bury it.

(fn)
(defalias 'desktop-lazy-create-buffer #[0 "\205IG\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 (#$ . 43407)])
#@120 Create buffers until the user does something, then stop.
If there are no buffers left to create, kill the timer.

(fn)
(defalias 'desktop-idle-create-buffers #[0 "\302\211\205?\205?\303 \304\305\306\307\310\311!\312\"\313\314%DC\216\315 \210)\210\316\317!\262\204\320	!\210\321\322\323!\210\316\324!\210\322\325!\210\202\207" [desktop-buffer-args-list desktop-lazy-timer 1 current-window-configuration funcall make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 "\n\n(fn)" desktop-lazy-create-buffer sit-for 0.2 cancel-timer nil message "Lazy desktop load complete" 3 ""] 9 (#$ . 44025)])
#@43 Run the desktop load to completion.

(fn)
(defalias 'desktop-lazy-complete #[0 "\302	\203!\303 \304\305\306\307\310\311!\312\"\313\314%DC\216\315 \210)\210\202\316\317!)\207" [desktop-lazy-verbose desktop-buffer-args-list t current-window-configuration funcall make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 "\n\n(fn)" desktop-lazy-create-buffer message "Lazy desktop load complete"] 8 (#$ . 44657) nil])
#@42 Abort lazy loading of the desktop.

(fn)
(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 (#$ . 45104) nil])
(byte-code "\300\301\302\"\210\303\304\305\306\307$\210\310\311!\207" [add-hook after-init-hook #[0 "\305\211\235\203\306\"\301\307!\210\210	\205(\n\205 \205 \310 ?\311 \210\312\211)\207" [command-line-args desktop-save-mode desktop-restore-frames initial-window-system inhibit-startup-screen "--no-desktop" delete 0 daemonp desktop-read t] 4 "\n\n(fn)"] autoload vc-dir-mode "vc-dir" nil t provide desktop] 5)