/[emacs]/emacs/lisp/desktop.el
ViewVC logotype

Diff of /emacs/lisp/desktop.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.74 by lh, Thu Sep 9 19:44:37 2004 UTC revision 1.75 by lh, Thu Nov 11 19:02:31 2004 UTC
# Line 129  determine where the desktop is saved." Line 129  determine where the desktop is saved."
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")
# Line 142  determine where the desktop is saved." Line 143  determine where the desktop is saved."
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.
# Line 151  Also pause for a moment to display messa Line 153  Also pause for a moment to display messa
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.
# Line 198  An element may be variable name (a symbo Line 203  An element may be variable name (a symbo
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.
# Line 257  Possible values are: Line 264  Possible values are:
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

Legend:
Removed from v.1.74  
changed lines
  Added in v.1.75

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26