Mercurial > emacs

changeset 844:bf829a2d63b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Eric S. Raymond <esr@snark.thyrsus.com>
date Wed, 22 Jul 1992 03:58:44 +0000
parents 8f6ea998ad0a
children 213978acbc1e
files lisp/files.el lisp/flow-ctrl.el lisp/server.el lisp/shell.el lisp/textmodes/sgml-mode.el
diffstat 5 files changed, 11 insertions(+), 14 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/files.el	Wed Jul 22 03:27:55 1992 +0000
+++ b/lisp/files.el	Wed Jul 22 03:58:44 1992 +0000
@@ -107,8 +107,8 @@
   "*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 @@
 		   ;; 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))))))
--- a/lisp/flow-ctrl.el	Wed Jul 22 03:27:55 1992 +0000
+++ b/lisp/flow-ctrl.el	Wed Jul 22 03:58:44 1992 +0000
@@ -1,13 +1,12 @@
 ;;; flow-ctrl.el --- help for lusers on cu(1) or ttys with wired-in ^S/^Q flow control
 
+;;; Copyright (C) 1990 Free Software Foundation, Inc.
+;;; Copyright (C) 1991 Kevin Gallagher
 ;; Author Kevin Gallagher
 ;; Maintainer: FSF
-;; Last-Modified: 03 Jun 1992
 ;; Adapted-By: ESR
 ;; Keywords: hardware
 
-;;; Copyright (C) 1990 Free Software Foundation, Inc.
-;;; Copyright (C) 1991 Kevin Gallagher
 ;;;
 ;;; GNU Emacs is distributed in the hope that it will be useful, but
 ;;; WITHOUT ANY WARRANTY.  No author or distributor accepts
--- a/lisp/server.el	Wed Jul 22 03:27:55 1992 +0000
+++ b/lisp/server.el	Wed Jul 22 03:58:44 1992 +0000
@@ -1,13 +1,12 @@
 ;;; server.el --- Lisp code for GNU Emacs running as server process.
 
+;; Copyright (C) 1986, 1987 Free Software Foundation, Inc.
+
 ;; Author: William Sommerfeld <wesommer@athena.mit.edu>
-;; Last-Modified: 05 Dec 1991
 ;; Keywords: processes
 
 ;; Changes by peck@sun.com and by rms.
 
-;; Copyright (C) 1986, 1987 Free Software Foundation, Inc.
-
 ;; This file is part of GNU Emacs.
 
 ;; GNU Emacs is free software; you can redistribute it and/or modify
--- a/lisp/shell.el	Wed Jul 22 03:27:55 1992 +0000
+++ b/lisp/shell.el	Wed Jul 22 03:58:44 1992 +0000
@@ -1,11 +1,10 @@
 ;;; shell.el --- general command interpreter in a window stuff
 
+;;; Copyright Olin Shivers (1988).
+
 ;; Author: Olin Shivers <shivers@cs.cmu.edu>
-;; Last-Modified: 16 Mar 1992
 ;; Keywords: processes
 
-;;; Copyright Olin Shivers (1988).
-
 ;;; This file is part of GNU Emacs.
 
 ;;; GNU Emacs is free software; you can redistribute it and/or modify
--- a/lisp/textmodes/sgml-mode.el	Wed Jul 22 03:27:55 1992 +0000
+++ b/lisp/textmodes/sgml-mode.el	Wed Jul 22 03:58:44 1992 +0000
@@ -1,13 +1,12 @@
 ;;; sgml-mode.el --- SGML-editing mode
 
+;; Copyright (C) 1992 Free Software Foundation, Inc.
+
 ;; Author: James Clark
 ;; Maintainer: FSF
-;; Last-Modified: 14 Jul 1992
 ;; Adapted-By: ESR
 ;; Keywords: wp
 
-;; Copyright (C) 1992 Free Software Foundation, Inc.
-
 ;; This file is part of GNU Emacs.
 
 ;; GNU Emacs is free software; you can redistribute it and/or modify