diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-07-06 21:34:31 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-07-06 21:34:31 +0000 |
| commit | de7d5e1ba434c5e34615aff591917eaa6c4f345f (patch) | |
| tree | c2e7650379197bdd0e5907fc99265c8a570ba7e8 /lisp/files.el | |
| parent | 32cbe528134c463bbcaba89cb362f00e57b1e0c9 (diff) | |
| download | emacs-de7d5e1ba434c5e34615aff591917eaa6c4f345f.tar.gz | |
(delete-old-versions): Var renamed from trim-versions-without-asking.
Diffstat (limited to 'lisp/files.el')
| -rw-r--r-- | lisp/files.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/files.el b/lisp/files.el index 6861e2a83a8..5ae8af41e82 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -141,9 +141,9 @@ nil means make them for files that have some already. (defvar dired-kept-versions 2 "*When cleaning directory, number of versions to keep.") -(defvar trim-versions-without-asking nil - "*If t, deletes excess backup versions silently. -If nil, asks confirmation. Any other value prevents any trimming.") +(defvar delete-old-versions nil + "*If t, delete excess backup versions silently. +If nil, ask confirmation. Any other value prevents any trimming.") (defvar kept-old-versions 2 "*Number of oldest versions to keep when a new numbered backup is made.") @@ -1328,8 +1328,8 @@ the modes of the new file to agree with the old modes." ;; ask the user to confirm now, before doing anything. ;; But don't actually delete til later. (and targets - (or (eq trim-versions-without-asking t) (eq trim-versions-without-asking nil)) - (or trim-versions-without-asking + (or (eq delete-old-versions t) (eq delete-old-versions nil)) + (or delete-old-versions (y-or-n-p (format "Delete excess backup versions of %s? " real-file-name)))))) ;; Actually write the back up file. @@ -1518,7 +1518,7 @@ We don't want excessive versions piling up, so there are variables and `kept-new-versions', which tells how many newest versions to keep. Defaults are 2 old versions and 2 new. `dired-kept-versions' controls dired's clean-directory (.) command. -If `trim-versions-without-asking' is nil, system will query user +If `delete-old-versions' is nil, system will query user before trimming versions. Otherwise it does it silently." (interactive "p") (let ((modp (buffer-modified-p)) |