diff options
| author | Eric S. Raymond <esr@snark.thyrsus.com> | 1992-07-22 03:58:44 +0000 |
|---|---|---|
| committer | Eric S. Raymond <esr@snark.thyrsus.com> | 1992-07-22 03:58:44 +0000 |
| commit | 6d74b528d014d3ae65306e8afe154ccc66386be5 (patch) | |
| tree | 3b8a7eb6225bfffbd7a0142cc05abe6ae0ba45d1 /lisp/files.el | |
| parent | 32f4334dcef11f3b06b04e05618a27f477e96449 (diff) | |
| download | emacs-6d74b528d014d3ae65306e8afe154ccc66386be5.tar.gz emacs-6d74b528d014d3ae65306e8afe154ccc66386be5.tar.bz2 emacs-6d74b528d014d3ae65306e8afe154ccc66386be5.zip | |
*** empty log message ***
Diffstat (limited to 'lisp/files.el')
| -rw-r--r-- | lisp/files.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/files.el b/lisp/files.el index 8a7bea3b195..65697ba2a6d 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -107,8 +107,8 @@ never means do not make them.") "*When cleaning directory, number of versions to keep.") (defvar trim-versions-without-asking nil - "*If true, deletes excess backup versions silently. -Otherwise asks confirmation.") + "*If t, deletes excess backup versions silently. +If nil, asks 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.") @@ -767,6 +767,7 @@ 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 (y-or-n-p (format "Delete excess backup versions of %s? " real-file-name)))))) |