From f7769aa59edf082f925afdd8226f46cd78f6aa0e Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 6 Feb 1999 05:00:54 +0000 Subject: [PATCH] (time-stamp-format): Format doc tighter. (time-stamp-line-limit): 0 searches the entire buffer (careful!). (time-stamp): don't re-write the time stamp if it didn't change. --- lisp/time-stamp.el | 19 ++++++++++++------- 1 file changed, 12 insertions(+), 7 deletions(-) diff --git a/lisp/time-stamp.el b/lisp/time-stamp.el index b7a85400d72..a9c8b1d31f8 100644 --- a/lisp/time-stamp.el +++ b/lisp/time-stamp.el @@ -2,7 +2,7 @@ ;; Copyright 1989, 1993, 1994, 1995, 1997 Free Software Foundation, Inc. -;; Maintainer's Time-stamp: <1998-03-04 14:14:19 gildea> +;; Maintainer's Time-stamp: <1999-01-06 11:06:03 gildea> ;; Maintainer: Stephen Gildea ;; Keywords: tools @@ -68,8 +68,7 @@ Non-date items: %% a literal percent character: `%' %f file name without directory %F gives absolute pathname %s system name -%u user's login name -%U user's full name +%u user's login name %U user's full name %h mail host name Decimal digits between the % and the type character specify the @@ -129,7 +128,8 @@ Format is the same as that used by the environment variable TZ on your system." "Lines of a file searched; positive counts from start, negative from end. The patterns `time-stamp-start' and `time-stamp-end' must be found on one of the first (last) `time-stamp-line-limit' lines of the file for the -file to be time-stamped by \\[time-stamp]. +file to be time-stamped by \\[time-stamp]. A value of 0 searches the +entire buffer (use with care). Do not change `time-stamp-line-limit', `time-stamp-start', or `time-stamp-end' for yourself or you will be incompatible @@ -239,10 +239,13 @@ and `time-stamp-end' control finding the template." (goto-char (setq start (point-min))) (forward-line line-limit) (setq search-limit (point))) - (t + ((< line-limit 0) (goto-char (setq search-limit (point-max))) (forward-line line-limit) - (setq start (point)))) + (setq start (point))) + (t ;0 => no limit (use with care!) + (setq start (point-min)) + (setq search-limit (point-max)))) (goto-char start) (while (and (< (point) search-limit) (not end) @@ -269,7 +272,9 @@ and `time-stamp-end' control finding the template." (sit-for 1)) (t (let ((new-time-stamp (time-stamp-string ts-format))) - (if (stringp new-time-stamp) + (if (and (stringp new-time-stamp) + (not (string-equal (buffer-substring start end) + new-time-stamp))) (save-excursion (save-restriction (widen) -- 2.39.2