/[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.80 by jurta, Wed Jan 12 00:51:17 2005 UTC revision 1.81 by kfstorm, Wed Feb 9 15:50:43 2005 UTC
# Line 130  determine where the desktop is saved." Line 130  determine where the desktop is saved."
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")
# Line 144  determine where the desktop is saved." Line 144  determine where the desktop is saved."
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.
# Line 154  Also pause for a moment to display messa Line 154  Also pause for a moment to display messa
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.
# Line 204  An element may be variable name (a symbo Line 204  An element may be variable name (a symbo
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/.+\\*\\)$"
# Line 212  to the value obtained by evaluateing FOR Line 212  to the value obtained by evaluateing FOR
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.
# Line 265  Possible values are: Line 265  Possible values are:
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.
# Line 273  Remaining buffers are restored lazily (w Line 273  Remaining buffers are restored lazily (w
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
# Line 795  directory DIRNAME." Line 795  directory DIRNAME."
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 ()

Legend:
Removed from v.1.80  
changed lines
  Added in v.1.81

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