annotate man/lispref/backups.texi @ 5157:1fae11d56ad2

redo memory-usage mechanism, add way of dynamically initializing Lisp objects -------------------- ChangeLog entries follow: -------------------- lisp/ChangeLog addition: 2010-03-18 Ben Wing <ben@xemacs.org> * diagnose.el (show-memory-usage): Rewrite to take into account API changes in memory-usage functions. src/ChangeLog addition: 2010-03-18 Ben Wing <ben@xemacs.org> * alloc.c: * alloc.c (disksave_object_finalization_1): * alloc.c (lisp_object_storage_size): * alloc.c (listu): * alloc.c (listn): * alloc.c (Fobject_memory_usage_stats): * alloc.c (compute_memusage_stats_length): * alloc.c (Fobject_memory_usage): * alloc.c (Ftotal_object_memory_usage): * alloc.c (malloced_storage_size): * alloc.c (common_init_alloc_early): * alloc.c (reinit_alloc_objects_early): * alloc.c (reinit_alloc_early): * alloc.c (init_alloc_once_early): * alloc.c (syms_of_alloc): * alloc.c (reinit_vars_of_alloc): * buffer.c: * buffer.c (struct buffer_stats): * buffer.c (compute_buffer_text_usage): * buffer.c (compute_buffer_usage): * buffer.c (buffer_memory_usage): * buffer.c (buffer_objects_create): * buffer.c (syms_of_buffer): * buffer.c (vars_of_buffer): * console-impl.h (struct console_methods): * dynarr.c (Dynarr_memory_usage): * emacs.c (main_1): * events.c (clear_event_resource): * extents.c: * extents.c (compute_buffer_extent_usage): * extents.c (extent_objects_create): * extents.h: * faces.c: * faces.c (compute_face_cachel_usage): * faces.c (face_objects_create): * faces.h: * general-slots.h: * glyphs.c: * glyphs.c (compute_glyph_cachel_usage): * glyphs.c (glyph_objects_create): * glyphs.h: * lisp.h: * lisp.h (struct usage_stats): * lrecord.h: * lrecord.h (enum lrecord_type): * lrecord.h (struct lrecord_implementation): * lrecord.h (MC_ALLOC_CALL_FINALIZER_FOR_DISKSAVE): * lrecord.h (DEFINE_DUMPABLE_LISP_OBJECT): * lrecord.h (DEFINE_DUMPABLE_SIZABLE_LISP_OBJECT): * lrecord.h (DEFINE_DUMPABLE_FROB_BLOCK_LISP_OBJECT): * lrecord.h (DEFINE_DUMPABLE_FROB_BLOCK_SIZABLE_LISP_OBJECT): * lrecord.h (DEFINE_DUMPABLE_INTERNAL_LISP_OBJECT): * lrecord.h (DEFINE_DUMPABLE_SIZABLE_INTERNAL_LISP_OBJECT): * lrecord.h (DEFINE_NODUMP_LISP_OBJECT): * lrecord.h (DEFINE_NODUMP_SIZABLE_LISP_OBJECT): * lrecord.h (DEFINE_NODUMP_FROB_BLOCK_LISP_OBJECT): * lrecord.h (DEFINE_NODUMP_FROB_BLOCK_SIZABLE_LISP_OBJECT): * lrecord.h (DEFINE_NODUMP_INTERNAL_LISP_OBJECT): * lrecord.h (DEFINE_NODUMP_SIZABLE_INTERNAL_LISP_OBJECT): * lrecord.h (MAKE_LISP_OBJECT): * lrecord.h (DEFINE_DUMPABLE_MODULE_LISP_OBJECT): * lrecord.h (DEFINE_DUMPABLE_MODULE_SIZABLE_LISP_OBJECT): * lrecord.h (DEFINE_NODUMP_MODULE_LISP_OBJECT): * lrecord.h (DEFINE_NODUMP_MODULE_SIZABLE_LISP_OBJECT): * lrecord.h (MAKE_MODULE_LISP_OBJECT): * lrecord.h (INIT_LISP_OBJECT): * lrecord.h (INIT_MODULE_LISP_OBJECT): * lrecord.h (UNDEF_LISP_OBJECT): * lrecord.h (UNDEF_MODULE_LISP_OBJECT): * lrecord.h (DECLARE_LISP_OBJECT): * lrecord.h (DECLARE_MODULE_API_LISP_OBJECT): * lrecord.h (DECLARE_MODULE_LISP_OBJECT): * lstream.c: * lstream.c (syms_of_lstream): * lstream.c (vars_of_lstream): * marker.c: * marker.c (compute_buffer_marker_usage): * mc-alloc.c (mc_alloced_storage_size): * mc-alloc.h: * mule-charset.c: * mule-charset.c (struct charset_stats): * mule-charset.c (compute_charset_usage): * mule-charset.c (charset_memory_usage): * mule-charset.c (mule_charset_objects_create): * mule-charset.c (syms_of_mule_charset): * mule-charset.c (vars_of_mule_charset): * redisplay.c: * redisplay.c (compute_rune_dynarr_usage): * redisplay.c (compute_display_block_dynarr_usage): * redisplay.c (compute_glyph_block_dynarr_usage): * redisplay.c (compute_display_line_dynarr_usage): * redisplay.c (compute_line_start_cache_dynarr_usage): * redisplay.h: * scrollbar-gtk.c (gtk_compute_scrollbar_instance_usage): * scrollbar-msw.c (mswindows_compute_scrollbar_instance_usage): * scrollbar-x.c (x_compute_scrollbar_instance_usage): * scrollbar.c (compute_scrollbar_instance_usage): * scrollbar.h: * symbols.c: * symbols.c (reinit_symbol_objects_early): * symbols.c (init_symbols_once_early): * symbols.c (reinit_symbols_early): * symbols.c (defsymbol_massage_name_1): * symsinit.h: * ui-gtk.c: * ui-gtk.c (emacs_gtk_object_getprop): * ui-gtk.c (emacs_gtk_object_putprop): * ui-gtk.c (ui_gtk_objects_create): * unicode.c (compute_from_unicode_table_size_1): * unicode.c (compute_to_unicode_table_size_1): * unicode.c (compute_from_unicode_table_size): * unicode.c (compute_to_unicode_table_size): * window.c: * window.c (struct window_stats): * window.c (compute_window_mirror_usage): * window.c (compute_window_usage): * window.c (window_memory_usage): * window.c (window_objects_create): * window.c (syms_of_window): * window.c (vars_of_window): * window.h: Redo memory-usage mechanism, make it general; add way of dynamically initializing Lisp object types -- OBJECT_HAS_METHOD(), similar to CONSOLE_HAS_METHOD(). (1) Create OBJECT_HAS_METHOD(), OBJECT_HAS_PROPERTY() etc. for specifying that a Lisp object type has a particular method or property. Call such methods with OBJECT_METH, MAYBE_OBJECT_METH, OBJECT_METH_OR_GIVEN; retrieve properties with OBJECT_PROPERTY. Methods that formerly required a DEFINE_*GENERAL_LISP_OBJECT() to specify them (getprop, putprop, remprop, plist, disksave) now instead use the dynamic-method mechanism. The main benefit of this is that new methods or properties can be added without requiring that the declaration statements of all existing methods be modified. We have to make the `struct lrecord_implementation' non-const, but I don't think this should have any effect on speed -- the only possible method that's really speed-critical is the mark method, and we already extract those out into a separate (non-const) array for increased cache locality. Object methods need to be reinitialized after pdump, so we put them in separate functions such as face_objects_create(), extent_objects_create() and call them appropriately from emacs.c The only current object property (`memusage_stats_list') that objects can specify is a Lisp object and gets staticpro()ed so it only needs to be set during dump time, but because it references symbols that might not exist in a syms_of_() function, we initialize it in vars_of_(). There is also an object property (`num_extra_memusage_stats') that is automatically initialized based on `memusage_stats_list'; we do that in reinit_vars_of_alloc(), which is called after all vars_of_() functions are called. `disksaver' method was renamed `disksave' to correspond with the name normally given to the function (e.g. disksave_lstream()). (2) Generalize the memory-usage mechanism in `buffer-memory-usage', `window-memory-usage', `charset-memory-usage' into an object-type- specific mechanism called by a single function `object-memory-usage'. (Former function `object-memory-usage' renamed to `total-object-memory-usage'). Generalize the mechanism of different "slices" so that we can have different "classes" of memory described and different "slices" onto each class; `t' separates classes, `nil' separates slices. Currently we have three classes defined: the memory of an object itself, non-Lisp-object memory associated with the object (e.g. arrays or dynarrs stored as fields in the object), and Lisp-object memory associated with the object (other internal Lisp objects stored in the object). This isn't completely finished yet and we might need to further separate the "other internal Lisp objects" class into two classes. The memory-usage mechanism uses a `struct usage_stats' (renamed from `struct overhead_stats') to describe a malloc-view onto a set of allocated memory (listing how much was requested and various types of overhead) and a more general `struct generic_usage_stats' (with a `struct usage_stats' in it) to hold all statistics about object memory. `struct generic_usage_stats' contains an array of 32 Bytecounts, which are statistics of unspecified semantics. The intention is that individual types declare a corresponding struct (e.g. `struct window_stats') with the same structure but with specific fields in place of the array, corresponding to specific statistics. The number of such statistics is an object property computed from the list of tags (Lisp symbols describing the statistics) stored in `memusage_stats_list'. The idea here is to allow particular object types to customize the number and semantics of the statistics where completely avoiding consing. This doesn't matter so much yet, but the intention is to have the memory usage of all objects computed at the end of GC, at the same time as other statistics are currently computed. The values for all statistics for a single type would be added up to compute aggregate values for all objects of a specific type. To make this efficient, we can't allow any memory allocation at all. (3) Create some additional functions for creating lists that specify the elements directly as args rather than indirectly through an array: listn() (number of args given), listu() (list terminated by Qunbound). (4) Delete a bit of remaining unused C window_config stuff, also unused lrecord_type_popup_data.
author Ben Wing <ben@xemacs.org>
date Thu, 18 Mar 2010 10:50:06 -0500
parents 094487d1005d
children 9fae6227ede5
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1 @c -*-texinfo-*-
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2 @c This is part of the XEmacs Lisp Reference Manual.
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 359
diff changeset
3 @c Copyright (C) 1990, 1991, 1992, 1993, 1994 Free Software Foundation, Inc.
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
4 @c See the file lispref.texi for copying conditions.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
5 @setfilename ../../info/backups.info
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
6 @node Backups and Auto-Saving, Buffers, Files, Top
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
7 @chapter Backups and Auto-Saving
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
8
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
9 Backup files and auto-save files are two methods by which XEmacs tries
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
10 to protect the user from the consequences of crashes or of the user's
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
11 own errors. Auto-saving preserves the text from earlier in the current
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
12 editing session; backup files preserve file contents prior to the
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
13 current session.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
14
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
15 @menu
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
16 * Backup Files:: How backup files are made; how their names are chosen.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
17 * Auto-Saving:: How auto-save files are made; how their names are chosen.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
18 * Reverting:: @code{revert-buffer}, and how to customize what it does.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
19 @end menu
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
20
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
21 @node Backup Files
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
22 @section Backup Files
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
23 @cindex backup file
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
24
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
25 A @dfn{backup file} is a copy of the old contents of a file you are
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
26 editing. XEmacs makes a backup file the first time you save a buffer
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
27 into its visited file. Normally, this means that the backup file
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
28 contains the contents of the file as it was before the current editing
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
29 session. The contents of the backup file normally remain unchanged once
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
30 it exists.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
31
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
32 Backups are usually made by renaming the visited file to a new name.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
33 Optionally, you can specify that backup files should be made by copying
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
34 the visited file. This choice makes a difference for files with
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
35 multiple names; it also can affect whether the edited file remains owned
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
36 by the original owner or becomes owned by the user editing it.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
37
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
38 By default, XEmacs makes a single backup file for each file edited.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
39 You can alternatively request numbered backups; then each new backup
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
40 file gets a new name. You can delete old numbered backups when you
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
41 don't want them any more, or XEmacs can delete them automatically.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
42
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
43 @menu
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
44 * Making Backups:: How XEmacs makes backup files, and when.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
45 * Rename or Copy:: Two alternatives: renaming the old file or copying it.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
46 * Numbered Backups:: Keeping multiple backups for each source file.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
47 * Backup Names:: How backup file names are computed; customization.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
48 @end menu
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
49
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
50 @node Making Backups
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
51 @subsection Making Backup Files
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
52
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
53 @defun backup-buffer
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
54 This function makes a backup of the file visited by the current
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
55 buffer, if appropriate. It is called by @code{save-buffer} before
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
56 saving the buffer the first time.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
57 @end defun
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
58
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
59 @defvar buffer-backed-up
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
60 This buffer-local variable indicates whether this buffer's file has
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
61 been backed up on account of this buffer. If it is non-@code{nil}, then
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
62 the backup file has been written. Otherwise, the file should be backed
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
63 up when it is next saved (if backups are enabled). This is a
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
64 permanent local; @code{kill-local-variables} does not alter it.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
65 @end defvar
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
66
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
67 @defopt make-backup-files
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
68 This variable determines whether or not to make backup files. If it
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
69 is non-@code{nil}, then XEmacs creates a backup of each file when it is
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
70 saved for the first time---provided that @code{backup-inhibited}
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
71 is @code{nil} (see below).
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
72
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
73 The following example shows how to change the @code{make-backup-files}
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
74 variable only in the @file{RMAIL} buffer and not elsewhere. Setting it
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
75 @code{nil} stops XEmacs from making backups of the @file{RMAIL} file,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
76 which may save disk space. (You would put this code in your
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
77 @file{.emacs} file.)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
78
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
79 @smallexample
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
80 @group
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 359
diff changeset
81 (add-hook 'rmail-mode-hook
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
82 (function (lambda ()
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 359
diff changeset
83 (make-local-variable
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
84 'make-backup-files)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
85 (setq make-backup-files nil))))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
86 @end group
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
87 @end smallexample
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
88 @end defopt
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
89
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
90 @defvar backup-enable-predicate
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
91 This variable's value is a function to be called on certain occasions to
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
92 decide whether a file should have backup files. The function receives
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
93 one argument, a file name to consider. If the function returns
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
94 @code{nil}, backups are disabled for that file. Otherwise, the other
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
95 variables in this section say whether and how to make backups.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
96
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
97 The default value is this:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
98
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
99 @example
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
100 (lambda (name)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
101 (or (< (length name) 5)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
102 (not (string-equal "/tmp/"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
103 (substring name 0 5)))))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
104 @end example
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
105 @end defvar
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
106
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
107 @defvar backup-inhibited
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
108 If this variable is non-@code{nil}, backups are inhibited. It records
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
109 the result of testing @code{backup-enable-predicate} on the visited file
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
110 name. It can also coherently be used by other mechanisms that inhibit
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
111 backups based on which file is visited. For example, VC sets this
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
112 variable non-@code{nil} to prevent making backups for files managed
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
113 with a version control system.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
114
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
115 This is a permanent local, so that changing the major mode does not lose
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
116 its value. Major modes should not set this variable---they should set
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
117 @code{make-backup-files} instead.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
118 @end defvar
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
119
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
120 @node Rename or Copy
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
121 @subsection Backup by Renaming or by Copying?
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
122 @cindex backup files, how to make them
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
123
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 359
diff changeset
124 There are two ways that XEmacs can make a backup file:
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
125
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
126 @itemize @bullet
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
127 @item
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
128 XEmacs can rename the original file so that it becomes a backup file, and
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
129 then write the buffer being saved into a new file. After this
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
130 procedure, any other names (i.e., hard links) of the original file now
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
131 refer to the backup file. The new file is owned by the user doing the
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
132 editing, and its group is the default for new files written by the user
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
133 in that directory.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
134
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
135 @item
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
136 XEmacs can copy the original file into a backup file, and then overwrite
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
137 the original file with new contents. After this procedure, any other
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
138 names (i.e., hard links) of the original file still refer to the current
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
139 version of the file. The file's owner and group will be unchanged.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
140 @end itemize
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
141
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
142 The first method, renaming, is the default.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
143
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
144 The variable @code{backup-by-copying}, if non-@code{nil}, says to use
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
145 the second method, which is to copy the original file and overwrite it
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
146 with the new buffer contents. The variable @code{file-precious-flag},
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
147 if non-@code{nil}, also has this effect (as a sideline of its main
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
148 significance). @xref{Saving Buffers}.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
149
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
150 @defvar backup-by-copying
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
151 If this variable is non-@code{nil}, XEmacs always makes backup files by
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
152 copying.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
153 @end defvar
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
154
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
155 The following two variables, when non-@code{nil}, cause the second
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
156 method to be used in certain special cases. They have no effect on the
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
157 treatment of files that don't fall into the special cases.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
158
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
159 @defvar backup-by-copying-when-linked
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
160 If this variable is non-@code{nil}, XEmacs makes backups by copying for
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
161 files with multiple names (hard links).
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
162
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
163 This variable is significant only if @code{backup-by-copying} is
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
164 @code{nil}, since copying is always used when that variable is
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
165 non-@code{nil}.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
166 @end defvar
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
167
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
168 @defvar backup-by-copying-when-mismatch
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
169 If this variable is non-@code{nil}, XEmacs makes backups by copying in cases
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
170 where renaming would change either the owner or the group of the file.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
171
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
172 The value has no effect when renaming would not alter the owner or
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
173 group of the file; that is, for files which are owned by the user and
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
174 whose group matches the default for a new file created there by the
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
175 user.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
176
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
177 This variable is significant only if @code{backup-by-copying} is
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
178 @code{nil}, since copying is always used when that variable is
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
179 non-@code{nil}.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
180 @end defvar
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
181
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
182 @node Numbered Backups
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
183 @subsection Making and Deleting Numbered Backup Files
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
184
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
185 If a file's name is @file{foo}, the names of its numbered backup
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
186 versions are @file{foo.~@var{v}~}, for various integers @var{v}, like
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
187 this: @file{foo.~1~}, @file{foo.~2~}, @file{foo.~3~}, @dots{},
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
188 @file{foo.~259~}, and so on.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
189
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
190 @defopt version-control
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
191 This variable controls whether to make a single non-numbered backup
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
192 file or multiple numbered backups.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
193
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
194 @table @asis
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
195 @item @code{nil}
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
196 Make numbered backups if the visited file already has numbered backups;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
197 otherwise, do not.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
198
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
199 @item @code{never}
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
200 Do not make numbered backups.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
201
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
202 @item @var{anything else}
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
203 Make numbered backups.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
204 @end table
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
205 @end defopt
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
206
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
207 The use of numbered backups ultimately leads to a large number of
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
208 backup versions, which must then be deleted. XEmacs can do this
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
209 automatically or it can ask the user whether to delete them.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
210
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
211 @defopt kept-new-versions
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
212 The value of this variable is the number of newest versions to keep
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
213 when a new numbered backup is made. The newly made backup is included
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
214 in the count. The default value is 2.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
215 @end defopt
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
216
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
217 @defopt kept-old-versions
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
218 The value of this variable is the number of oldest versions to keep
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
219 when a new numbered backup is made. The default value is 2.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
220 @end defopt
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
221
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
222 If there are backups numbered 1, 2, 3, 5, and 7, and both of these
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
223 variables have the value 2, then the backups numbered 1 and 2 are kept
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
224 as old versions and those numbered 5 and 7 are kept as new versions;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
225 backup version 3 is excess. The function @code{find-backup-file-name}
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
226 (@pxref{Backup Names}) is responsible for determining which backup
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
227 versions to delete, but does not delete them itself.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
228
359
8e84bee8ddd0 Import from CVS: tag r21-1-9
cvs
parents: 0
diff changeset
229 @defopt delete-old-versions
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
230 If this variable is non-@code{nil}, then saving a file deletes excess
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
231 backup versions silently. Otherwise, it asks the user whether to delete
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
232 them.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
233 @end defopt
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
234
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
235 @defopt dired-kept-versions
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
236 This variable specifies how many of the newest backup versions to keep
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
237 in the Dired command @kbd{.} (@code{dired-clean-directory}). That's the
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
238 same thing @code{kept-new-versions} specifies when you make a new backup
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
239 file. The default value is 2.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
240 @end defopt
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
241
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
242 @node Backup Names
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
243 @subsection Naming Backup Files
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
244
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
245 The functions in this section are documented mainly because you can
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
246 customize the naming conventions for backup files by redefining them.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
247 If you change one, you probably need to change the rest.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
248
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
249 @defun backup-file-name-p filename
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
250 This function returns a non-@code{nil} value if @var{filename} is a
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
251 possible name for a backup file. A file with the name @var{filename}
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
252 need not exist; the function just checks the name.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
253
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
254 @smallexample
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
255 @group
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
256 (backup-file-name-p "foo")
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
257 @result{} nil
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
258 @end group
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
259 @group
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
260 (backup-file-name-p "foo~")
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
261 @result{} 3
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
262 @end group
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
263 @end smallexample
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
264
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
265 The standard definition of this function is as follows:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
266
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
267 @smallexample
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
268 @group
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
269 (defun backup-file-name-p (file)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
270 "Return non-nil if FILE is a backup file \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
271 name (numeric or not)..."
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
272 (string-match "~$" file))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
273 @end group
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
274 @end smallexample
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
275
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
276 @noindent
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
277 Thus, the function returns a non-@code{nil} value if the file name ends
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
278 with a @samp{~}. (We use a backslash to split the documentation
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
279 string's first line into two lines in the text, but produce just one
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
280 line in the string itself.)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
281
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
282 This simple expression is placed in a separate function to make it easy
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
283 to redefine for customization.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
284 @end defun
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
285
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
286 @defun make-backup-file-name filename
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
287 This function returns a string that is the name to use for a
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
288 non-numbered backup file for file @var{filename}. On Unix, this is just
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
289 @var{filename} with a tilde appended.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
290
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
291 The standard definition of this function is as follows:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
292
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
293 @smallexample
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
294 @group
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
295 (defun make-backup-file-name (file)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
296 "Create the non-numeric backup file name for FILE.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
297 @dots{}"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
298 (concat file "~"))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
299 @end group
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
300 @end smallexample
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
301
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
302 You can change the backup-file naming convention by redefining this
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
303 function. The following example redefines @code{make-backup-file-name}
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
304 to prepend a @samp{.} in addition to appending a tilde:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
305
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
306 @smallexample
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
307 @group
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
308 (defun make-backup-file-name (filename)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
309 (concat "." filename "~"))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
310 @end group
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
311
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
312 @group
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
313 (make-backup-file-name "backups.texi")
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
314 @result{} ".backups.texi~"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
315 @end group
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
316 @end smallexample
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
317 @end defun
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
318
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
319 @defun find-backup-file-name filename
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
320 This function computes the file name for a new backup file for
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
321 @var{filename}. It may also propose certain existing backup files for
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
322 deletion. @code{find-backup-file-name} returns a list whose @sc{car} is
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
323 the name for the new backup file and whose @sc{cdr} is a list of backup
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
324 files whose deletion is proposed.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
325
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
326 Two variables, @code{kept-old-versions} and @code{kept-new-versions},
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
327 determine which backup versions should be kept. This function keeps
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
328 those versions by excluding them from the @sc{cdr} of the value.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
329 @xref{Numbered Backups}.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
330
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
331 In this example, the value says that @file{~rms/foo.~5~} is the name
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
332 to use for the new backup file, and @file{~rms/foo.~3~} is an ``excess''
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
333 version that the caller should consider deleting now.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
334
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
335 @smallexample
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
336 @group
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
337 (find-backup-file-name "~rms/foo")
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
338 @result{} ("~rms/foo.~5~" "~rms/foo.~3~")
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
339 @end group
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
340 @end smallexample
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
341 @end defun
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
342
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
343 @c Emacs 19 feature
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
344 @defun file-newest-backup filename
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
345 This function returns the name of the most recent backup file for
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
346 @var{filename}, or @code{nil} if that file has no backup files.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
347
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
348 Some file comparison commands use this function so that they can
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
349 automatically compare a file with its most recent backup.
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 359
diff changeset
350 @end defun
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
351
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
352 @node Auto-Saving
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
353 @section Auto-Saving
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
354 @cindex auto-saving
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
355
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
356 XEmacs periodically saves all files that you are visiting; this is
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
357 called @dfn{auto-saving}. Auto-saving prevents you from losing more
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
358 than a limited amount of work if the system crashes. By default,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
359 auto-saves happen every 300 keystrokes, or after around 30 seconds of
1288
e2da7cf7aa74 [xemacs-hg @ 2003-02-11 19:13:52 by adrian]
adrian
parents: 446
diff changeset
360 idle time. @xref{Auto Save, Auto-Save, Auto-Saving: Protection Against
e2da7cf7aa74 [xemacs-hg @ 2003-02-11 19:13:52 by adrian]
adrian
parents: 446
diff changeset
361 Disasters, xemacs, The XEmacs User's Manual}, for information on
446
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
362 auto-save for users. Here we describe the functions used to implement
1ccc32a20af4 Import from CVS: tag r21-2-38
cvs
parents: 444
diff changeset
363 auto-saving and the variables that control them.
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
364
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
365 @defvar buffer-auto-save-file-name
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
366 This buffer-local variable is the name of the file used for
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
367 auto-saving the current buffer. It is @code{nil} if the buffer
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
368 should not be auto-saved.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
369
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
370 @example
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
371 @group
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
372 buffer-auto-save-file-name
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
373 => "/xcssun/users/rms/lewis/#files.texi#"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
374 @end group
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
375 @end example
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
376 @end defvar
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
377
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
378 @deffn Command auto-save-mode arg
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
379 When used interactively without an argument, this command is a toggle
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
380 switch: it turns on auto-saving of the current buffer if it is off, and
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
381 vice-versa. With an argument @var{arg}, the command turns auto-saving
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
382 on if the value of @var{arg} is @code{t}, a nonempty list, or a positive
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
383 integer. Otherwise, it turns auto-saving off.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
384 @end deffn
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
385
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
386 @defun auto-save-file-name-p filename
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
387 This function returns a non-@code{nil} value if @var{filename} is a
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
388 string that could be the name of an auto-save file. It works based on
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
389 knowledge of the naming convention for auto-save files: a name that
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
390 begins and ends with hash marks (@samp{#}) is a possible auto-save file
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
391 name. The argument @var{filename} should not contain a directory part.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
392
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
393 @example
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
394 @group
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
395 (make-auto-save-file-name)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
396 @result{} "/xcssun/users/rms/lewis/#files.texi#"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
397 @end group
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
398 @group
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
399 (auto-save-file-name-p "#files.texi#")
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
400 @result{} 0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
401 @end group
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
402 @group
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
403 (auto-save-file-name-p "files.texi")
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
404 @result{} nil
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
405 @end group
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
406 @end example
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
407
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
408 The standard definition of this function is as follows:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
409
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
410 @example
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
411 @group
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
412 (defun auto-save-file-name-p (filename)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
413 "Return non-nil if FILENAME can be yielded by..."
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
414 (string-match "^#.*#$" filename))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
415 @end group
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
416 @end example
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
417
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
418 This function exists so that you can customize it if you wish to
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
419 change the naming convention for auto-save files. If you redefine it,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
420 be sure to redefine the function @code{make-auto-save-file-name}
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
421 correspondingly.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
422 @end defun
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
423
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 359
diff changeset
424 @defun make-auto-save-file-name &optional filename
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
425 This function returns the file name to use for auto-saving the current
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
426 buffer. This is just the file name with hash marks (@samp{#}) appended
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
427 and prepended to it. This function does not look at the variable
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
428 @code{auto-save-visited-file-name} (described below); you should check
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
429 that before calling this function.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
430
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
431 @example
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
432 @group
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
433 (make-auto-save-file-name)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
434 @result{} "/xcssun/users/rms/lewis/#backup.texi#"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
435 @end group
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
436 @end example
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
437
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
438 The standard definition of this function is as follows:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
439
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
440 @example
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
441 @group
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
442 (defun make-auto-save-file-name ()
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
443 "Return file name to use for auto-saves \
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
444 of current buffer.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
445 @dots{}"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
446 (if buffer-file-name
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
447 @end group
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
448 @group
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
449 (concat
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
450 (file-name-directory buffer-file-name)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
451 "#"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
452 (file-name-nondirectory buffer-file-name)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
453 "#")
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
454 (expand-file-name
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
455 (concat "#%" (buffer-name) "#"))))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
456 @end group
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
457 @end example
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
458
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
459 This exists as a separate function so that you can redefine it to
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
460 customize the naming convention for auto-save files. Be sure to
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
461 change @code{auto-save-file-name-p} in a corresponding way.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
462 @end defun
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
463
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
464 @defvar auto-save-visited-file-name
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
465 If this variable is non-@code{nil}, XEmacs auto-saves buffers in
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
466 the files they are visiting. That is, the auto-save is done in the same
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
467 file that you are editing. Normally, this variable is @code{nil}, so
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
468 auto-save files have distinct names that are created by
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
469 @code{make-auto-save-file-name}.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
470
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
471 When you change the value of this variable, the value does not take
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
472 effect until the next time auto-save mode is reenabled in any given
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
473 buffer. If auto-save mode is already enabled, auto-saves continue to go
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
474 in the same file name until @code{auto-save-mode} is called again.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
475 @end defvar
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
476
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
477 @defun recent-auto-save-p
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
478 This function returns @code{t} if the current buffer has been
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
479 auto-saved since the last time it was read in or saved.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
480 @end defun
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
481
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
482 @defun set-buffer-auto-saved
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
483 This function marks the current buffer as auto-saved. The buffer will
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
484 not be auto-saved again until the buffer text is changed again. The
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
485 function returns @code{nil}.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
486 @end defun
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
487
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
488 @defopt auto-save-interval
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
489 The value of this variable is the number of characters that XEmacs
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
490 reads from the keyboard between auto-saves. Each time this many more
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
491 characters are read, auto-saving is done for all buffers in which it is
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
492 enabled.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
493 @end defopt
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
494
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
495 @defopt auto-save-timeout
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
496 The value of this variable is the number of seconds of idle time that
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
497 should cause auto-saving. Each time the user pauses for this long,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
498 XEmacs auto-saves any buffers that need it. (Actually, the specified
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
499 timeout is multiplied by a factor depending on the size of the current
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
500 buffer.)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
501 @end defopt
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
502
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
503 @defvar auto-save-hook
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
504 This normal hook is run whenever an auto-save is about to happen.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
505 @end defvar
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
506
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
507 @defopt auto-save-default
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
508 If this variable is non-@code{nil}, buffers that are visiting files
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
509 have auto-saving enabled by default. Otherwise, they do not.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
510 @end defopt
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
511
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
512 @deffn Command do-auto-save &optional no-message current-only
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
513 This function auto-saves all buffers that need to be auto-saved. It
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
514 saves all buffers for which auto-saving is enabled and that have been
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
515 changed since the previous auto-save.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
516
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
517 Normally, if any buffers are auto-saved, a message that says
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
518 @samp{Auto-saving...} is displayed in the echo area while auto-saving is
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
519 going on. However, if @var{no-message} is non-@code{nil}, the message
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
520 is inhibited.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
521
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
522 If @var{current-only} is non-@code{nil}, only the current buffer
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
523 is auto-saved.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
524 @end deffn
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
525
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
526 @defun delete-auto-save-file-if-necessary
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
527 This function deletes the current buffer's auto-save file if
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
528 @code{delete-auto-save-files} is non-@code{nil}. It is called every
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
529 time a buffer is saved.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
530 @end defun
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
531
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
532 @defvar delete-auto-save-files
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
533 This variable is used by the function
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
534 @code{delete-auto-save-file-if-necessary}. If it is non-@code{nil},
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
535 Emacs deletes auto-save files when a true save is done (in the visited
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
536 file). This saves disk space and unclutters your directory.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
537 @end defvar
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
538
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
539 @defun rename-auto-save-file
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
540 This function adjusts the current buffer's auto-save file name if the
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
541 visited file name has changed. It also renames an existing auto-save
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
542 file. If the visited file name has not changed, this function does
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
543 nothing.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
544 @end defun
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
545
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
546 @defvar buffer-saved-size
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
547 The value of this buffer-local variable is the length of the current
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
548 buffer as of the last time it was read in, saved, or auto-saved. This is
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
549 used to detect a substantial decrease in size, and turn off auto-saving
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
550 in response.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
551
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
552 If it is -1, that means auto-saving is temporarily shut off in this
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
553 buffer due to a substantial deletion. Explicitly saving the buffer
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
554 stores a positive value in this variable, thus reenabling auto-saving.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
555 Turning auto-save mode off or on also alters this variable.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
556 @end defvar
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
557
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
558 @defvar auto-save-list-file-name
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
559 This variable (if non-@code{nil}) specifies a file for recording the
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
560 names of all the auto-save files. Each time XEmacs does auto-saving, it
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
561 writes two lines into this file for each buffer that has auto-saving
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
562 enabled. The first line gives the name of the visited file (it's empty
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
563 if the buffer has none), and the second gives the name of the auto-save
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
564 file.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
565
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
566 If XEmacs exits normally, it deletes this file. If XEmacs crashes, you
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
567 can look in the file to find all the auto-save files that might contain
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
568 work that was otherwise lost. The @code{recover-session} command uses
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
569 these files.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
570
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
571 The default name for this file is in your home directory and starts with
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
572 @samp{.saves-}. It also contains the XEmacs process @sc{id} and the host
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
573 name.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
574 @end defvar
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
575
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
576 @node Reverting
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
577 @section Reverting
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
578
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
579 If you have made extensive changes to a file and then change your mind
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
580 about them, you can get rid of them by reading in the previous version
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
581 of the file with the @code{revert-buffer} command. @xref{Reverting, ,
1710
094487d1005d [xemacs-hg @ 2003-09-22 20:15:11 by adrian]
adrian
parents: 1288
diff changeset
582 Reverting a Buffer, xemacs, The XEmacs User's Manual}.
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
583
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 359
diff changeset
584 @deffn Command revert-buffer &optional check-auto-save noconfirm preserve-modes
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
585 This command replaces the buffer text with the text of the visited
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
586 file on disk. This action undoes all changes since the file was visited
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
587 or saved.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
588
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
589 If the argument @var{check-auto-save} is non-@code{nil}, and the
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
590 latest auto-save file is more recent than the visited file,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
591 @code{revert-buffer} asks the user whether to use that instead.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
592 Otherwise, it always uses the text of the visited file itself.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
593 Interactively, @var{check-auto-save} is set if there is a numeric prefix
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
594 argument.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
595
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
596 Normally, @code{revert-buffer} asks for confirmation before it changes
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
597 the buffer; but if the argument @var{noconfirm} is non-@code{nil},
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
598 @code{revert-buffer} does not ask for confirmation.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
599
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 359
diff changeset
600 Optional third argument @var{preserve-modes} non-@code{nil} means don't
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 359
diff changeset
601 alter the files modes. Normally we reinitialize them using
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 359
diff changeset
602 @code{normal-mode}.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 359
diff changeset
603
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
604 Reverting tries to preserve marker positions in the buffer by using the
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
605 replacement feature of @code{insert-file-contents}. If the buffer
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
606 contents and the file contents are identical before the revert
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
607 operation, reverting preserves all the markers. If they are not
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
608 identical, reverting does change the buffer; then it preserves the
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
609 markers in the unchanged text (if any) at the beginning and end of the
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
610 buffer. Preserving any additional markers would be problematical.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
611 @end deffn
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
612
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
613 You can customize how @code{revert-buffer} does its work by setting
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
614 these variables---typically, as buffer-local variables.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
615
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
616 @defvar revert-buffer-function
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
617 The value of this variable is the function to use to revert this buffer.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
618 If non-@code{nil}, it is called as a function with no arguments to do
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
619 the work of reverting. If the value is @code{nil}, reverting works the
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
620 usual way.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
621
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
622 Modes such as Dired mode, in which the text being edited does not
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
623 consist of a file's contents but can be regenerated in some other
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
624 fashion, give this variable a buffer-local value that is a function to
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
625 regenerate the contents.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
626 @end defvar
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
627
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
628 @defvar revert-buffer-insert-file-contents-function
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
629 The value of this variable, if non-@code{nil}, is the function to use to
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
630 insert the updated contents when reverting this buffer. The function
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
631 receives two arguments: first the file name to use; second, @code{t} if
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
632 the user has asked to read the auto-save file.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
633 @end defvar
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
634
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
635 @defvar before-revert-hook
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
636 This normal hook is run by @code{revert-buffer} before actually
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
637 inserting the modified contents---but only if
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
638 @code{revert-buffer-function} is @code{nil}.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
639
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
640 Font Lock mode uses this hook to record that the buffer contents are no
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
641 longer fontified.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
642 @end defvar
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
643
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
644 @defvar after-revert-hook
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
645 This normal hook is run by @code{revert-buffer} after actually inserting
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
646 the modified contents---but only if @code{revert-buffer-function} is
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
647 @code{nil}.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
648
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
649 Font Lock mode uses this hook to recompute the fonts for the updated
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
650 buffer contents.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
651 @end defvar
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
652