From 50c29796b8a6e1616e89bf097f42e907a929c255 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Tue, 30 May 1995 21:20:09 +0000 Subject: (time-stamp): only warn about time-stamping being disabled if found a time-stamp that won't get updated. --- lisp/time-stamp.el | 56 ++++++++++++++++++++++++++++++++---------------------- 1 file changed, 33 insertions(+), 23 deletions(-) (limited to 'lisp/time-stamp.el') diff --git a/lisp/time-stamp.el b/lisp/time-stamp.el index fb4c3a3787f..37b74b7008f 100644 --- a/lisp/time-stamp.el +++ b/lisp/time-stamp.el @@ -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'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 ;;; 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 format of the time stamp is determined by the variable time-stamp-format. 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 @@ control finding the template." ;; 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) -- cgit v1.2.1