130 |
(const :tag "Save if desktop file exists, else don't" if-exists) |
(const :tag "Save if desktop file exists, else don't" if-exists) |
131 |
(const :tag "Never save" nil)) |
(const :tag "Never save" nil)) |
132 |
:group 'desktop |
:group 'desktop |
133 |
:version "21.4") |
:version "22.1") |
134 |
|
|
135 |
(defcustom desktop-base-file-name |
(defcustom desktop-base-file-name |
136 |
(convert-standard-filename ".emacs.desktop") |
(convert-standard-filename ".emacs.desktop") |
144 |
The base name of the file is specified in `desktop-base-file-name'." |
The base name of the file is specified in `desktop-base-file-name'." |
145 |
:type '(repeat directory) |
:type '(repeat directory) |
146 |
:group 'desktop |
:group 'desktop |
147 |
:version "21.4") |
:version "22.1") |
148 |
|
|
149 |
(defcustom desktop-missing-file-warning nil |
(defcustom desktop-missing-file-warning nil |
150 |
"*If non-nil then `desktop-read' asks if a non-existent file should be recreated. |
"*If non-nil then `desktop-read' asks if a non-existent file should be recreated. |
154 |
If nil, just print error messages in the message buffer." |
If nil, just print error messages in the message buffer." |
155 |
:type 'boolean |
:type 'boolean |
156 |
:group 'desktop |
:group 'desktop |
157 |
:version "21.4") |
:version "22.1") |
158 |
|
|
159 |
(defcustom desktop-no-desktop-file-hook nil |
(defcustom desktop-no-desktop-file-hook nil |
160 |
"Normal hook run when `desktop-read' can't find a desktop file. |
"Normal hook run when `desktop-read' can't find a desktop file. |
161 |
May e.g. be used to show a dired buffer." |
May e.g. be used to show a dired buffer." |
162 |
:type 'hook |
:type 'hook |
163 |
:group 'desktop |
:group 'desktop |
164 |
:version "21.4") |
:version "22.1") |
165 |
|
|
166 |
(defcustom desktop-after-read-hook nil |
(defcustom desktop-after-read-hook nil |
167 |
"Normal hook run after a successful `desktop-read'. |
"Normal hook run after a successful `desktop-read'. |
168 |
May e.g. be used to show a buffer list." |
May e.g. be used to show a buffer list." |
169 |
:type 'hook |
:type 'hook |
170 |
:group 'desktop |
:group 'desktop |
171 |
:version "21.4") |
:version "22.1") |
172 |
|
|
173 |
(defcustom desktop-save-hook nil |
(defcustom desktop-save-hook nil |
174 |
"Normal hook run before the desktop is saved in a desktop file. |
"Normal hook run before the desktop is saved in a desktop file. |
204 |
to the value obtained by evaluateing FORM." |
to the value obtained by evaluateing FORM." |
205 |
:type '(repeat (restricted-sexp :match-alternatives (symbolp consp))) |
:type '(repeat (restricted-sexp :match-alternatives (symbolp consp))) |
206 |
:group 'desktop |
:group 'desktop |
207 |
:version "21.4") |
:version "22.1") |
208 |
|
|
209 |
(defcustom desktop-clear-preserve-buffers-regexp |
(defcustom desktop-clear-preserve-buffers-regexp |
210 |
"^\\(\\*scratch\\*\\|\\*Messages\\*\\|\\*tramp/.+\\*\\)$" |
"^\\(\\*scratch\\*\\|\\*Messages\\*\\|\\*tramp/.+\\*\\)$" |
212 |
See also `desktop-clear-preserve-buffers'." |
See also `desktop-clear-preserve-buffers'." |
213 |
:type 'regexp |
:type 'regexp |
214 |
:group 'desktop |
:group 'desktop |
215 |
:version "21.4") |
:version "22.1") |
216 |
|
|
217 |
(defcustom desktop-clear-preserve-buffers nil |
(defcustom desktop-clear-preserve-buffers nil |
218 |
"*List of buffer names that `desktop-clear' should not delete. |
"*List of buffer names that `desktop-clear' should not delete. |
265 |
local -- Relative to directory of desktop file." |
local -- Relative to directory of desktop file." |
266 |
:type '(choice (const absolute) (const tilde) (const local)) |
:type '(choice (const absolute) (const tilde) (const local)) |
267 |
:group 'desktop |
:group 'desktop |
268 |
:version "21.4") |
:version "22.1") |
269 |
|
|
270 |
(defcustom desktop-restore-eager t |
(defcustom desktop-restore-eager t |
271 |
"Number of buffers to restore immediately. |
"Number of buffers to restore immediately. |
273 |
If value is t, all buffers are restored immediately." |
If value is t, all buffers are restored immediately." |
274 |
:type '(choice (const t) integer) |
:type '(choice (const t) integer) |
275 |
:group 'desktop |
:group 'desktop |
276 |
:version "21.4") |
:version "22.1") |
277 |
|
|
278 |
(defcustom desktop-lazy-verbose t |
(defcustom desktop-lazy-verbose t |
279 |
"Verbose reporting of lazily created buffers." |
"Verbose reporting of lazily created buffers." |
280 |
:type 'boolean |
:type 'boolean |
281 |
:group 'desktop |
:group 'desktop |
282 |
:version "21.4") |
:version "22.1") |
283 |
|
|
284 |
(defcustom desktop-lazy-idle-delay 5 |
(defcustom desktop-lazy-idle-delay 5 |
285 |
"Idle delay before starting to create buffers. |
"Idle delay before starting to create buffers. |
286 |
See `desktop-restore-eager'." |
See `desktop-restore-eager'." |
287 |
:type 'integer |
:type 'integer |
288 |
:group 'desktop |
:group 'desktop |
289 |
:version "21.4") |
:version "22.1") |
290 |
|
|
291 |
;;;###autoload |
;;;###autoload |
292 |
(defvar desktop-save-buffer nil |
(defvar desktop-save-buffer nil |
795 |
(desktop-kill) |
(desktop-kill) |
796 |
(desktop-clear) |
(desktop-clear) |
797 |
(desktop-read dirname)) |
(desktop-read dirname)) |
798 |
|
|
799 |
;; ---------------------------------------------------------------------------- |
;; ---------------------------------------------------------------------------- |
800 |
;;;###autoload |
;;;###autoload |
801 |
(defun desktop-save-in-desktop-dir () |
(defun desktop-save-in-desktop-dir () |