Mercurial > emacs
changeset 24266:894911d2c01d
(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.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 06 Feb 1999 05:00:54 +0000 |
| parents | c5f1a1deffbb |
| children | f40837b25999 |
| files | lisp/time-stamp.el |
| diffstat | 1 files changed, 12 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/time-stamp.el Fri Feb 05 17:49:04 1999 +0000 +++ b/lisp/time-stamp.el Sat Feb 06 05:00:54 1999 +0000 @@ -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 <gildea@alum.mit.edu> ;; Keywords: tools @@ -68,8 +68,7 @@ %% 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 @@ "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 @@ (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 @@ (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)