Mercurial > emacs
changeset 8157:14766204c0fe
(delete-old-versions): Var renamed from trim-versions-without-asking.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 06 Jul 1994 21:34:31 +0000 |
| parents | fb7e3b74a18e |
| children | a6fa25ffa764 |
| files | lisp/files.el |
| diffstat | 1 files changed, 6 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/files.el Wed Jul 06 21:33:56 1994 +0000 +++ b/lisp/files.el Wed Jul 06 21:34:31 1994 +0000 @@ -141,9 +141,9 @@ (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 @@ ;; 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 @@ 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))