changeset 12023:1a3e7aef5f8a

(time-stamp): only warn about time-stamping being disabled if found a time-stamp that won't get updated.
author Karl Heuer <kwzh@gnu.org>
date Tue, 30 May 1995 21:20:09 +0000
parents 497ad07c31c2
children 8e31a35ac027
files lisp/time-stamp.el
diffstat 1 files changed, 33 insertions(+), 23 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/time-stamp.el	Tue May 30 19:43:26 1995 +0000
+++ b/lisp/time-stamp.el	Tue May 30 21:20:09 1995 +0000
@@ -1,8 +1,8 @@
 ;;; time-stamp.el --- Maintain last change time stamps in files edited by Emacs
 ;;; Copyright 1989, 1993, 1994, 1995 Free Software Foundation, Inc.
+;;; Maintainer's Time-stamp: <95/05/30 13:28:56 gildea>
 
 ;; Maintainer: Stephen Gildea <gildea@lcs.mit.edu>
-;; Gildea's Last Time-stamp: <95/04/13 13:38:48 gildea>
 ;; Keywords: tools
 
 ;; This file is free software; you can redistribute it and/or modify
@@ -48,6 +48,7 @@
 ;;; Originally based on the 19 Dec 88 version of
 ;;;   date.el by John Sturdy <mcvax!harlqn.co.uk!jcgs@uunet.uu.net>
 ;;; version 2, January 1995: replaced functions with %-escapes
+;;; $Id: time-stamp.el,v 1.1 95/05/30 17:57:24 gildea Exp $
 
 ;;; Code:
 
@@ -126,23 +127,26 @@
 The variables time-stamp-line-limit, time-stamp-start, and time-stamp-end
 control finding the template."
   (interactive)
-  (if time-stamp-active
-      (let ((case-fold-search nil))
-	(if (and (stringp time-stamp-start)
-		 (stringp time-stamp-end))
-	    (save-excursion
-	      (save-restriction
-		(widen)
-		(goto-char (point-min))
-		(if (re-search-forward time-stamp-start
-				       (save-excursion
-					 (forward-line time-stamp-line-limit)
-					 (point))
-				       t)
-		    (let ((start (point)))
-		      (if (re-search-forward time-stamp-end
-					     (save-excursion (end-of-line) (point))
-					     t)
+  (let ((case-fold-search nil)
+	(need-to-warn nil))
+    (if (and (stringp time-stamp-start)
+	     (stringp time-stamp-end))
+	(save-excursion
+	  (save-restriction
+	    (widen)
+	    (goto-char (point-min))
+	    (if (re-search-forward time-stamp-start
+				   (save-excursion
+				     (forward-line time-stamp-line-limit)
+				     (point))
+				   t)
+		(let ((start (point)))
+		  (if (re-search-forward time-stamp-end
+					 (save-excursion
+					   (end-of-line)
+					   (point))
+					 t)
+		      (if time-stamp-active
 			  (let ((end (match-beginning 0)))
 			    (delete-region start end)
 			    (goto-char start)
@@ -151,11 +155,17 @@
 			    ;; remove any tabs used to format the time stamp
 			    (goto-char start)
 			    (if (search-forward "\t" end t)
-				(untabify start end))))))))
-	  ;; don't signal an error in a write-file-hook
-	  (message "time-stamp-start or time-stamp-end is not a string")))
-    (if time-stamp-warn-inactive
-	(message "Did not time-stamp buffer.")))
+				(untabify start end)))
+			(if time-stamp-warn-inactive
+			    ;; do the actual warning outside save-excursion
+			    (setq need-to-warn t))))))))
+      ;; don't signal an error in a write-file-hook
+      (message "time-stamp-start or time-stamp-end is not a string")
+      (sit-for 1))
+    (if need-to-warn
+	(progn
+	  (message "Warning: did not time-stamp buffer.")
+	  (sit-for 1))))
   ;; be sure to return nil so can be used on write-file-hooks
   nil)