129 |
(const :tag "Ask if desktop file exists, else don't save" ask-if-exists) |
(const :tag "Ask if desktop file exists, else don't save" ask-if-exists) |
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") |
134 |
|
|
135 |
(defcustom desktop-base-file-name |
(defcustom desktop-base-file-name |
136 |
(convert-standard-filename ".emacs.desktop") |
(convert-standard-filename ".emacs.desktop") |
143 |
"List of directories to search for the desktop file. |
"List of directories to search for the desktop file. |
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") |
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. |
153 |
|
|
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") |
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") |
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") |
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. |
203 |
\(VAR . FORM). Symbols are set to nil and for cons cells VAR is set |
\(VAR . FORM). Symbols are set to nil and for cons cells VAR is set |
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") |
208 |
|
|
209 |
(defcustom desktop-clear-preserve-buffers-regexp |
(defcustom desktop-clear-preserve-buffers-regexp |
210 |
"^\\(\\*scratch\\*\\|\\*Messages\\*\\|\\*tramp/.+\\*\\)$" |
"^\\(\\*scratch\\*\\|\\*Messages\\*\\|\\*tramp/.+\\*\\)$" |
211 |
"Regexp identifying buffers that `desktop-clear' should not delete. |
"Regexp identifying buffers that `desktop-clear' should not delete. |
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") |
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. |
264 |
tilde -- Relative to ~. |
tilde -- Relative to ~. |
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") |
269 |
|
|
270 |
;;;###autoload |
;;;###autoload |
271 |
(defvar desktop-save-buffer nil |
(defvar desktop-save-buffer nil |