diff options
| author | Lars Hansen <larsh@soem.dk> | 2004-11-11 19:02:31 +0000 |
|---|---|---|
| committer | Lars Hansen <larsh@soem.dk> | 2004-11-11 19:02:31 +0000 |
| commit | f0f830c8788d60ac9f08fb53a701ad250109d7ca (patch) | |
| tree | 07075a25e093bd3aa4f82dda9c0483d83b5f9d56 /lisp/desktop.el | |
| parent | 0235b10aabfd975be0f9ed191b2963eba8037001 (diff) | |
| download | emacs-f0f830c8788d60ac9f08fb53a701ad250109d7ca.tar.gz | |
(desktop-buffer-mode-handlers, desktop-after-read-hook,
desktop-clear-preserve-buffers-regexp, desktop-file-name-format,
desktop-globals-to-clear, desktop-no-desktop-file-hook, desktop-path,
desktop-save): Add :version.
Diffstat (limited to 'lisp/desktop.el')
| -rw-r--r-- | lisp/desktop.el | 24 |
1 files changed, 16 insertions, 8 deletions
diff --git a/lisp/desktop.el b/lisp/desktop.el index 64e8770ffd0..0a423aa7c42 100644 --- a/lisp/desktop.el +++ b/lisp/desktop.el @@ -129,7 +129,8 @@ determine where the desktop is saved." (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) + :group 'desktop + :version "21.4") (defcustom desktop-base-file-name (convert-standard-filename ".emacs.desktop") @@ -142,7 +143,8 @@ determine where the desktop is saved." "List of directories to search for the desktop file. The base name of the file is specified in `desktop-base-file-name'." :type '(repeat directory) - :group 'desktop) + :group 'desktop + :version "21.4") (defcustom desktop-missing-file-warning nil "*If non-nil then `desktop-read' asks if a non-existent file should be recreated. @@ -151,19 +153,22 @@ Also pause for a moment to display message about errors signaled in If nil, just print error messages in the message buffer." :type 'boolean - :group 'desktop) + :group 'desktop + :version "21.4") (defcustom desktop-no-desktop-file-hook nil "Normal hook run when `desktop-read' can't find a desktop file. May e.g. be used to show a dired buffer." :type 'hook - :group 'desktop) + :group 'desktop + :version "21.4") (defcustom desktop-after-read-hook nil "Normal hook run after a successful `desktop-read'. May e.g. be used to show a buffer list." :type 'hook - :group 'desktop) + :group 'desktop + :version "21.4") (defcustom desktop-save-hook nil "Normal hook run before the desktop is saved in a desktop file. @@ -198,14 +203,16 @@ An element may be variable name (a symbol) or a cons cell of the form \(VAR . FORM). Symbols are set to nil and for cons cells VAR is set to the value obtained by evaluateing FORM." :type '(repeat (restricted-sexp :match-alternatives (symbolp consp))) - :group 'desktop) + :group 'desktop + :version "21.4") (defcustom desktop-clear-preserve-buffers-regexp "^\\(\\*scratch\\*\\|\\*Messages\\*\\|\\*tramp/.+\\*\\)$" "Regexp identifying buffers that `desktop-clear' should not delete. See also `desktop-clear-preserve-buffers'." :type 'regexp - :group 'desktop) + :group 'desktop + :version "21.4") (defcustom desktop-clear-preserve-buffers nil "*List of buffer names that `desktop-clear' should not delete. @@ -257,7 +264,8 @@ Possible values are: tilde -- Relative to ~. local -- Relative to directory of desktop file." :type '(choice (const absolute) (const tilde) (const local)) - :group 'desktop) + :group 'desktop + :version "21.4") ;;;###autoload (defvar desktop-save-buffer nil |