mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(time-stamp-format): Format doc tighter.

Browse source 
(time-stamp-line-limit): 0 searches the entire buffer (careful!).
(time-stamp): don't re-write the time stamp if it didn't change.
This commit is contained in:
Richard M. Stallman 1999-02-06 05:00:54 +00:00
parent fb9cc9cc6e
commit f7769aa59e
1 changed files with 12 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

19
lisp/time-stamp.el
View file

@ -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 @@ 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)