106 |
:group 'desktop) |
:group 'desktop) |
107 |
|
|
108 |
;; Maintained for backward compatibility |
;; Maintained for backward compatibility |
109 |
(defvaralias 'desktop-enable 'desktop-save-mode) |
(define-obsolete-variable-alias 'desktop-enable 'desktop-save-mode "22.1") |
|
(make-obsolete-variable 'desktop-enable 'desktop-save-mode "22.1") |
|
110 |
|
|
111 |
(defcustom desktop-save 'ask-if-new |
(defcustom desktop-save 'ask-if-new |
112 |
"*Specifies whether the desktop should be saved when it is killed. |
"*Specifies whether the desktop should be saved when it is killed. |
136 |
"Name of file for Emacs desktop, excluding the directory part." |
"Name of file for Emacs desktop, excluding the directory part." |
137 |
:type 'file |
:type 'file |
138 |
:group 'desktop) |
:group 'desktop) |
139 |
(defvaralias 'desktop-basefilename 'desktop-base-file-name) |
(define-obsolete-variable-alias 'desktop-basefilename 'desktop-base-file-name "22.1") |
140 |
|
|
141 |
(defcustom desktop-path '("." "~") |
(defcustom desktop-path '("." "~") |
142 |
"List of directories to search for the desktop file. |
"List of directories to search for the desktop file. |
398 |
(string-match desktop-clear-preserve-buffers-regexp bufname) |
(string-match desktop-clear-preserve-buffers-regexp bufname) |
399 |
(member bufname desktop-clear-preserve-buffers) |
(member bufname desktop-clear-preserve-buffers) |
400 |
;; Don't kill buffers made for internal purposes. |
;; Don't kill buffers made for internal purposes. |
401 |
(and (not (equal bufname "")) (eq (aref bufname 0) ?\ )) |
(and (not (equal bufname "")) (eq (aref bufname 0) ?\s)) |
402 |
(kill-buffer (car buffers)))) |
(kill-buffer (car buffers)))) |
403 |
(setq buffers (cdr buffers)))) |
(setq buffers (cdr buffers)))) |
404 |
(delete-other-windows)) |
(delete-other-windows)) |
453 |
QUOTE may be `may' (value may be quoted), |
QUOTE may be `may' (value may be quoted), |
454 |
`must' (values must be quoted), or nil (value may not be quoted)." |
`must' (values must be quoted), or nil (value may not be quoted)." |
455 |
(cond |
(cond |
456 |
((or (numberp value) (null value) (eq t value)) |
((or (numberp value) (null value) (eq t value) (keywordp value)) |
457 |
(cons 'may (prin1-to-string value))) |
(cons 'may (prin1-to-string value))) |
458 |
((stringp value) |
((stringp value) |
459 |
(let ((copy (copy-sequence value))) |
(let ((copy (copy-sequence value))) |