annotate lisp/time-stamp.el @ 37117:17b120bee51b

*** empty log message ***
author Kenichi Handa <handa@m17n.org>
date Sat, 31 Mar 2001 02:22:45 +0000
parents 15fc82d712ac
children b174db545cfd
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
3854
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1 ;;; time-stamp.el --- Maintain last change time stamps in files edited by Emacs
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2
35627
c5a1cf50f5cd Doc fixes.
Dave Love <fx@gnu.org>
parents: 34395
diff changeset
3 ;; Copyright 1989, 1993, 1994, 1995, 1997, 2000, 2001
32454
08bfb5555d7b (time-stamp): Fixed bug in new multi-line code
Gerd Moellmann <gerd@gnu.org>
parents: 28696
diff changeset
4 ;;; Free Software Foundation, Inc.
14169
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 14042
diff changeset
5
34395
2f4a4d355834 (time-stamp-old-format-warn): reorder custom
Gerd Moellmann <gerd@gnu.org>
parents: 33033
diff changeset
6 ;; Maintainer's Time-stamp: <2000-12-04 16:06:50 gildea>
17600
0dc8180c2e7a (time-stamp-old-format-warn): Fix a tag string.
Richard M. Stallman <rms@gnu.org>
parents: 17438
diff changeset
7 ;; Maintainer: Stephen Gildea <gildea@alum.mit.edu>
3854
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
8 ;; Keywords: tools
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
9
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
10 ;; This file is free software; you can redistribute it and/or modify
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
11 ;; it under the terms of the GNU General Public License as published by
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
12 ;; the Free Software Foundation; either version 2, or (at your option)
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
13 ;; any later version.
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
14
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
15 ;; This file is distributed in the hope that it will be useful,
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
18 ;; GNU General Public License for more details.
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
19
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
20 ;; You should have received a copy of the GNU General Public License
14169
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 14042
diff changeset
21 ;; along with GNU Emacs; see the file COPYING. If not, write to the
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 14042
diff changeset
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 14042
diff changeset
23 ;; Boston, MA 02111-1307, USA.
3854
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
24
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
25 ;;; Commentary:
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
26
16287
24fd930446f6 (time-stamp-old-format-warn): new variable.
Karl Heuer <kwzh@gnu.org>
parents: 14231
diff changeset
27 ;; A template in a file can be updated with a new time stamp when
24fd930446f6 (time-stamp-old-format-warn): new variable.
Karl Heuer <kwzh@gnu.org>
parents: 14231
diff changeset
28 ;; you save the file. For example:
24fd930446f6 (time-stamp-old-format-warn): new variable.
Karl Heuer <kwzh@gnu.org>
parents: 14231
diff changeset
29 ;; static char *ts = "sdmain.c Time-stamp: <1996-08-13 10:20:51 gildea>";
24fd930446f6 (time-stamp-old-format-warn): new variable.
Karl Heuer <kwzh@gnu.org>
parents: 14231
diff changeset
30 ;; See the top of `time-stamp.el' for another example.
3854
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
31
16287
24fd930446f6 (time-stamp-old-format-warn): new variable.
Karl Heuer <kwzh@gnu.org>
parents: 14231
diff changeset
32 ;; To use time-stamping, add this line to your .emacs file:
24fd930446f6 (time-stamp-old-format-warn): new variable.
Karl Heuer <kwzh@gnu.org>
parents: 14231
diff changeset
33 ;; (add-hook 'write-file-hooks 'time-stamp)
24fd930446f6 (time-stamp-old-format-warn): new variable.
Karl Heuer <kwzh@gnu.org>
parents: 14231
diff changeset
34 ;; Now any time-stamp templates in your files will be updated automatically.
3854
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
35
16287
24fd930446f6 (time-stamp-old-format-warn): new variable.
Karl Heuer <kwzh@gnu.org>
parents: 14231
diff changeset
36 ;; See the documentation for the functions `time-stamp'
24fd930446f6 (time-stamp-old-format-warn): new variable.
Karl Heuer <kwzh@gnu.org>
parents: 14231
diff changeset
37 ;; and `time-stamp-toggle-active' for details.
11404
b12a8765508b (time-stamp-format): Replace list of Lisp
Richard M. Stallman <rms@gnu.org>
parents: 9016
diff changeset
38
3854
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
39 ;;; Code:
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
40
17438
368547942e03 Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 16714
diff changeset
41 (defgroup time-stamp nil
368547942e03 Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 16714
diff changeset
42 "Maintain last change time stamps in files edited by Emacs."
368547942e03 Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 16714
diff changeset
43 :group 'data
368547942e03 Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 16714
diff changeset
44 :group 'extensions)
368547942e03 Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 16714
diff changeset
45
18170
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
46 (defcustom time-stamp-format "%:y-%02m-%02d %02H:%02M:%02S %u"
16287
24fd930446f6 (time-stamp-old-format-warn): new variable.
Karl Heuer <kwzh@gnu.org>
parents: 14231
diff changeset
47 "*Format of the string inserted by \\[time-stamp].
16674
91590d8f74c3 (time-stamp-am-pm): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents: 16517
diff changeset
48 The value may be a string or a list. Lists are supported only for
91590d8f74c3 (time-stamp-am-pm): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents: 16517
diff changeset
49 backward compatibility; see variable `time-stamp-old-format-warn'.
13356
a2a68cba7996 update some doc strings.
Karl Heuer <kwzh@gnu.org>
parents: 12044
diff changeset
50
35627
c5a1cf50f5cd Doc fixes.
Dave Love <fx@gnu.org>
parents: 34395
diff changeset
51 A string is used verbatim except for character sequences beginning
c5a1cf50f5cd Doc fixes.
Dave Love <fx@gnu.org>
parents: 34395
diff changeset
52 with %, as follows. The values of non-numeric formatted items depend
37083
15fc82d712ac (time-stamp-format): Doc fix. From Paul Eggert <eggert@twinsun.com>.
Eli Zaretskii <eliz@gnu.org>
parents: 35695
diff changeset
53 on the locale setting recorded in `system-time-locale' and
15fc82d712ac (time-stamp-format): Doc fix. From Paul Eggert <eggert@twinsun.com>.
Eli Zaretskii <eliz@gnu.org>
parents: 35695
diff changeset
54 `locale-coding-system'. The examples here are for the default
15fc82d712ac (time-stamp-format): Doc fix. From Paul Eggert <eggert@twinsun.com>.
Eli Zaretskii <eliz@gnu.org>
parents: 35695
diff changeset
55 (`C') locale.
16705
db8a501954f6 (time-stamp-no-file): Reintroduced.
Richard M. Stallman <rms@gnu.org>
parents: 16674
diff changeset
56
18170
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
57 %:a weekday name: `Monday'. %#A gives uppercase: `MONDAY'
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
58 %3a abbreviated weekday: `Mon'. %3A gives uppercase: `MON'
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
59 %:b month name: `January'. %#B gives uppercase: `JANUARY'
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
60 %3b abbreviated month: `Jan'. %3B gives uppercase: `JAN'
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
61 %02d day of month
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
62 %02H 24-hour clock hour
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
63 %02I 12-hour clock hour
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
64 %02m month number
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
65 %02M minute
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
66 %#p `am' or `pm'. %P gives uppercase: `AM' or `PM'
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
67 %02S seconds
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
68 %w day number of week, Sunday is 0
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
69 %02y 2-digit year: `97' %:y 4-digit year: `1997'
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
70 %z time zone name: `est'. %Z gives uppercase: `EST'
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
71
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
72 Non-date items:
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
73 %% a literal percent character: `%'
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
74 %f file name without directory %F gives absolute pathname
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
75 %s system name
24266
894911d2c01d (time-stamp-format): Format doc tighter.
Richard M. Stallman <rms@gnu.org>
parents: 22993
diff changeset
76 %u user's login name %U user's full name
18170
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
77 %h mail host name
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
78
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
79 Decimal digits between the % and the type character specify the
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
80 field width. Strings are truncated on the right; years on the left.
25405
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
81 A leading zero in the field width zero-fills a number.
17600
0dc8180c2e7a (time-stamp-old-format-warn): Fix a tag string.
Richard M. Stallman <rms@gnu.org>
parents: 17438
diff changeset
82
0dc8180c2e7a (time-stamp-old-format-warn): Fix a tag string.
Richard M. Stallman <rms@gnu.org>
parents: 17438
diff changeset
83 For example, to get the format used by the `date' command,
18170
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
84 use \"%3a %3b %2d %02H:%02M:%02S %Z %:y\".
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
85
25405
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
86 In the future these formats will be aligned more with `format-time-string'.
18170
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
87 Because of this transition, the default padding for numeric formats will
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
88 change in a future version. Therefore either a padding width should be
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
89 specified, or the : modifier should be used to explicitly request the
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
90 historical default."
17438
368547942e03 Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 16714
diff changeset
91 :type 'string
368547942e03 Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 16714
diff changeset
92 :group 'time-stamp)
16287
24fd930446f6 (time-stamp-old-format-warn): new variable.
Karl Heuer <kwzh@gnu.org>
parents: 14231
diff changeset
93
19504
fd1ee3c25839 (time-stamp-time-zone): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19154
diff changeset
94 (defcustom time-stamp-active t
fd1ee3c25839 (time-stamp-time-zone): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19154
diff changeset
95 "*Non-nil to enable time-stamping of buffers by \\[time-stamp].
fd1ee3c25839 (time-stamp-time-zone): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19154
diff changeset
96 Can be toggled by \\[time-stamp-toggle-active].
fd1ee3c25839 (time-stamp-time-zone): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19154
diff changeset
97 See also the variable `time-stamp-warn-inactive'."
fd1ee3c25839 (time-stamp-time-zone): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19154
diff changeset
98 :type 'boolean
fd1ee3c25839 (time-stamp-time-zone): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19154
diff changeset
99 :group 'time-stamp)
fd1ee3c25839 (time-stamp-time-zone): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19154
diff changeset
100
fd1ee3c25839 (time-stamp-time-zone): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19154
diff changeset
101 (defcustom time-stamp-warn-inactive t
32454
08bfb5555d7b (time-stamp): Fixed bug in new multi-line code
Gerd Moellmann <gerd@gnu.org>
parents: 28696
diff changeset
102 "Have \\[time-stamp] warn if a buffer did not get time-stamped.
08bfb5555d7b (time-stamp): Fixed bug in new multi-line code
Gerd Moellmann <gerd@gnu.org>
parents: 28696
diff changeset
103 If non-nil, a warning is displayed if `time-stamp-active' disables time
08bfb5555d7b (time-stamp): Fixed bug in new multi-line code
Gerd Moellmann <gerd@gnu.org>
parents: 28696
diff changeset
104 stamping and the buffer contains a template that would otherwise have
08bfb5555d7b (time-stamp): Fixed bug in new multi-line code
Gerd Moellmann <gerd@gnu.org>
parents: 28696
diff changeset
105 been updated."
19504
fd1ee3c25839 (time-stamp-time-zone): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19154
diff changeset
106 :type 'boolean
fd1ee3c25839 (time-stamp-time-zone): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19154
diff changeset
107 :group 'time-stamp)
fd1ee3c25839 (time-stamp-time-zone): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19154
diff changeset
108
fd1ee3c25839 (time-stamp-time-zone): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19154
diff changeset
109 (defcustom time-stamp-old-format-warn 'ask
32454
08bfb5555d7b (time-stamp): Fixed bug in new multi-line code
Gerd Moellmann <gerd@gnu.org>
parents: 28696
diff changeset
110 "Action if `time-stamp-format' is an old-style list.
19504
fd1ee3c25839 (time-stamp-time-zone): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19154
diff changeset
111 If `error', the format is not used. If `ask', the user is queried about
fd1ee3c25839 (time-stamp-time-zone): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19154
diff changeset
112 using the time-stamp-format. If `warn', a warning is displayed.
fd1ee3c25839 (time-stamp-time-zone): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19154
diff changeset
113 If nil, no notification is given."
34395
2f4a4d355834 (time-stamp-old-format-warn): reorder custom
Gerd Moellmann <gerd@gnu.org>
parents: 33033
diff changeset
114 :type '(choice (const :tag "Don't use the format" error)
2f4a4d355834 (time-stamp-old-format-warn): reorder custom
Gerd Moellmann <gerd@gnu.org>
parents: 33033
diff changeset
115 (const ask)
2f4a4d355834 (time-stamp-old-format-warn): reorder custom
Gerd Moellmann <gerd@gnu.org>
parents: 33033
diff changeset
116 (const warn)
2f4a4d355834 (time-stamp-old-format-warn): reorder custom
Gerd Moellmann <gerd@gnu.org>
parents: 33033
diff changeset
117 (const :tag "No notification" nil))
19504
fd1ee3c25839 (time-stamp-time-zone): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19154
diff changeset
118 :group 'time-stamp)
fd1ee3c25839 (time-stamp-time-zone): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19154
diff changeset
119
fd1ee3c25839 (time-stamp-time-zone): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19154
diff changeset
120 (defcustom time-stamp-time-zone nil
fd1ee3c25839 (time-stamp-time-zone): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19154
diff changeset
121 "If non-nil, a string naming the timezone to be used by \\[time-stamp].
fd1ee3c25839 (time-stamp-time-zone): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19154
diff changeset
122 Format is the same as that used by the environment variable TZ on your system."
19791
1366d82c1d3f (time-stamp-time-zone): Allow nil as alternative.
Richard M. Stallman <rms@gnu.org>
parents: 19504
diff changeset
123 :type '(choice (const nil) string)
19504
fd1ee3c25839 (time-stamp-time-zone): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19154
diff changeset
124 :group 'time-stamp)
17600
0dc8180c2e7a (time-stamp-old-format-warn): Fix a tag string.
Richard M. Stallman <rms@gnu.org>
parents: 17438
diff changeset
125
0dc8180c2e7a (time-stamp-old-format-warn): Fix a tag string.
Richard M. Stallman <rms@gnu.org>
parents: 17438
diff changeset
126
21073
82e7d581bad1 (time-stamp-pattern): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19791
diff changeset
127 ;;; Do not change time-stamp-line-limit, time-stamp-start,
25405
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
128 ;;; time-stamp-end, time-stamp-pattern, time-stamp-inserts-lines,
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
129 ;;; or time-stamp-count in your .emacs or you will be incompatible
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
130 ;;; with other people's files! If you must change them, do so only
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
131 ;;; in the local variables section of the file itself.
3854
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
132
16287
24fd930446f6 (time-stamp-old-format-warn): new variable.
Karl Heuer <kwzh@gnu.org>
parents: 14231
diff changeset
133
5632
63d80d94e0d7 Better, more user-oriented doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 5287
diff changeset
134 (defvar time-stamp-line-limit 8 ;Do not change!
14042
161d50568707 (time-stamp-line-limit): negative value counts
Karl Heuer <kwzh@gnu.org>
parents: 13356
diff changeset
135 "Lines of a file searched; positive counts from start, negative from end.
25405
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
136 The patterns `time-stamp-start' and `time-stamp-end' must be found in
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
137 the first (last) `time-stamp-line-limit' lines of the file for the
24266
894911d2c01d (time-stamp-format): Format doc tighter.
Richard M. Stallman <rms@gnu.org>
parents: 22993
diff changeset
138 file to be time-stamped by \\[time-stamp]. A value of 0 searches the
894911d2c01d (time-stamp-format): Format doc tighter.
Richard M. Stallman <rms@gnu.org>
parents: 22993
diff changeset
139 entire buffer (use with care).
5632
63d80d94e0d7 Better, more user-oriented doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 5287
diff changeset
140
63d80d94e0d7 Better, more user-oriented doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 5287
diff changeset
141 Do not change `time-stamp-line-limit', `time-stamp-start', or
63d80d94e0d7 Better, more user-oriented doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 5287
diff changeset
142 `time-stamp-end' for yourself or you will be incompatible
63d80d94e0d7 Better, more user-oriented doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 5287
diff changeset
143 with other people's files! If you must change them for some application,
63d80d94e0d7 Better, more user-oriented doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 5287
diff changeset
144 do so in the local variables section of the time-stamped file itself.")
63d80d94e0d7 Better, more user-oriented doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 5287
diff changeset
145
3854
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
146
5971
f97f4938fffa (time-stamp-start): Allow more white space
Richard M. Stallman <rms@gnu.org>
parents: 5632
diff changeset
147 (defvar time-stamp-start "Time-stamp:[ \t]+\\\\?[\"<]+" ;Do not change!
3854
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
148 "Regexp after which the time stamp is written by \\[time-stamp].
5632
63d80d94e0d7 Better, more user-oriented doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 5287
diff changeset
149 See also the variables `time-stamp-end' and `time-stamp-line-limit'.
3854
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
150
5632
63d80d94e0d7 Better, more user-oriented doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 5287
diff changeset
151 Do not change `time-stamp-line-limit', `time-stamp-start', or
63d80d94e0d7 Better, more user-oriented doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 5287
diff changeset
152 `time-stamp-end' for yourself or you will be incompatible
3854
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
153 with other people's files! If you must change them for some application,
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
154 do so in the local variables section of the time-stamped file itself.")
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
155
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
156
5632
63d80d94e0d7 Better, more user-oriented doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 5287
diff changeset
157 (defvar time-stamp-end "\\\\?[\">]" ;Do not change!
3854
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
158 "Regexp marking the text after the time stamp.
5632
63d80d94e0d7 Better, more user-oriented doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 5287
diff changeset
159 \\[time-stamp] deletes the text between the first match of `time-stamp-start'
25405
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
160 and the following match of `time-stamp-end', then writes the
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
161 time stamp specified by `time-stamp-format' between them.
5632
63d80d94e0d7 Better, more user-oriented doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 5287
diff changeset
162
25405
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
163 The end text normally starts on the same line as the start text ends,
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
164 but if there are any newlines in `time-stamp-format', the same number
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
165 of newlines must separate the start and end. \\[time-stamp] tries
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
166 to not change the number of lines in the buffer. `time-stamp-inserts-lines'
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
167 controls this behavior.
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
168
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
169 Do not change `time-stamp-line-limit', `time-stamp-start', `time-stamp-end',
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
170 or `time-stamp-inserts-lines' for yourself or you will be incompatible
5632
63d80d94e0d7 Better, more user-oriented doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 5287
diff changeset
171 with other people's files! If you must change them for some application,
63d80d94e0d7 Better, more user-oriented doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 5287
diff changeset
172 do so in the local variables section of the time-stamped file itself.")
63d80d94e0d7 Better, more user-oriented doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 5287
diff changeset
173
3854
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
174
25405
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
175 (defvar time-stamp-inserts-lines nil ;Do not change!
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
176 "Whether time-stamp can change the number of lines in a file.
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
177 If nil, \\[time-stamp] skips as many lines as there are newlines in
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
178 `time-stamp-format' before looking for the `time-stamp-end' pattern,
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
179 thus it tries not to change the number of lines in the buffer.
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
180 If non-nil, \\[time-stamp] starts looking for the end pattern
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
181 immediately after the start pattern. This behavior can cause
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
182 unexpected changes in the buffer if used carelessly, but it is useful
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
183 for generating repeated time stamps.
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
184
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
185 Do not change `time-stamp-end' or `time-stamp-inserts-lines' for
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
186 yourself or you will be incompatible with other people's files!
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
187 If you must change them for some application, do so in the local
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
188 variables section of the time-stamped file itself.")
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
189
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
190
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
191 (defvar time-stamp-count 1 ;Do not change!
32454
08bfb5555d7b (time-stamp): Fixed bug in new multi-line code
Gerd Moellmann <gerd@gnu.org>
parents: 28696
diff changeset
192 "How many templates \\[time-stamp] will look for in a buffer.
25405
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
193 The same time-stamp will be written in each case.
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
194
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
195 Do not change `time-stamp-count' for yourself or you will be
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
196 incompatible with other people's files! If you must change it for
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
197 some application, do so in the local variables section of the
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
198 time-stamped file itself.")
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
199
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
200
21073
82e7d581bad1 (time-stamp-pattern): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19791
diff changeset
201 (defvar time-stamp-pattern "%%" ;Do not change!
25405
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
202 "Convenience variable setting all `time-stamp' location and format values.
21073
82e7d581bad1 (time-stamp-pattern): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19791
diff changeset
203 This string has four parts, each of which is optional.
25405
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
204 These four parts set `time-stamp-line-limit', `time-stamp-start',
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
205 `time-stamp-format', and `time-stamp-end'. See the documentation
21073
82e7d581bad1 (time-stamp-pattern): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19791
diff changeset
206 for each of these variables for details.
82e7d581bad1 (time-stamp-pattern): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19791
diff changeset
207
82e7d581bad1 (time-stamp-pattern): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19791
diff changeset
208 The first part is a number followed by a slash; the number sets the number
82e7d581bad1 (time-stamp-pattern): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19791
diff changeset
209 of lines at the beginning (negative counts from end) of the file searched
82e7d581bad1 (time-stamp-pattern): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19791
diff changeset
210 for the time-stamp. The number and the slash may be omitted to use the
82e7d581bad1 (time-stamp-pattern): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19791
diff changeset
211 normal value.
82e7d581bad1 (time-stamp-pattern): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19791
diff changeset
212
82e7d581bad1 (time-stamp-pattern): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19791
diff changeset
213 The second part is a regexp identifying the pattern preceding the time stamp.
82e7d581bad1 (time-stamp-pattern): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19791
diff changeset
214 This part may be omitted to use the normal pattern.
82e7d581bad1 (time-stamp-pattern): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19791
diff changeset
215
82e7d581bad1 (time-stamp-pattern): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19791
diff changeset
216 The third part specifies the format of the time-stamp inserted. See
25405
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
217 the documentation for `time-stamp-format' for details. Specify this
21073
82e7d581bad1 (time-stamp-pattern): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19791
diff changeset
218 part as \"%%\" to use the normal format.
82e7d581bad1 (time-stamp-pattern): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19791
diff changeset
219
82e7d581bad1 (time-stamp-pattern): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19791
diff changeset
220 The fourth part is a regexp identifying the pattern following the time stamp.
82e7d581bad1 (time-stamp-pattern): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19791
diff changeset
221 This part may be omitted to use the normal pattern.
82e7d581bad1 (time-stamp-pattern): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19791
diff changeset
222
82e7d581bad1 (time-stamp-pattern): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19791
diff changeset
223 As an example, the default behavior can be specified something like this:
82e7d581bad1 (time-stamp-pattern): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19791
diff changeset
224 \"8/Time-stamp: [\\\"<]%:y-%02m-%02d %02H:%02M:%02S %u[\\\">]\"
82e7d581bad1 (time-stamp-pattern): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19791
diff changeset
225
82e7d581bad1 (time-stamp-pattern): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19791
diff changeset
226 Do not change `time-stamp-pattern' for yourself or you will be incompatible
82e7d581bad1 (time-stamp-pattern): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19791
diff changeset
227 with other people's files! Set it only in the local variables section
82e7d581bad1 (time-stamp-pattern): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19791
diff changeset
228 of the time-stamped file itself.")
82e7d581bad1 (time-stamp-pattern): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19791
diff changeset
229
82e7d581bad1 (time-stamp-pattern): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19791
diff changeset
230
16287
24fd930446f6 (time-stamp-old-format-warn): new variable.
Karl Heuer <kwzh@gnu.org>
parents: 14231
diff changeset
231
4327
771786f5d8c2 (time-stamp): Add autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents: 4325
diff changeset
232 ;;;###autoload
3854
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
233 (defun time-stamp ()
25405
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
234 "Update the time stamp string(s) in the buffer.
16287
24fd930446f6 (time-stamp-old-format-warn): new variable.
Karl Heuer <kwzh@gnu.org>
parents: 14231
diff changeset
235 A template in a file can be automatically updated with a new time stamp
24fd930446f6 (time-stamp-old-format-warn): new variable.
Karl Heuer <kwzh@gnu.org>
parents: 14231
diff changeset
236 every time you save the file. Add this line to your .emacs file:
24fd930446f6 (time-stamp-old-format-warn): new variable.
Karl Heuer <kwzh@gnu.org>
parents: 14231
diff changeset
237 (add-hook 'write-file-hooks 'time-stamp)
24fd930446f6 (time-stamp-old-format-warn): new variable.
Karl Heuer <kwzh@gnu.org>
parents: 14231
diff changeset
238 Normally the template must appear in the first 8 lines of a file and
24fd930446f6 (time-stamp-old-format-warn): new variable.
Karl Heuer <kwzh@gnu.org>
parents: 14231
diff changeset
239 look like one of the following:
24fd930446f6 (time-stamp-old-format-warn): new variable.
Karl Heuer <kwzh@gnu.org>
parents: 14231
diff changeset
240 Time-stamp: <>
24fd930446f6 (time-stamp-old-format-warn): new variable.
Karl Heuer <kwzh@gnu.org>
parents: 14231
diff changeset
241 Time-stamp: \" \"
24fd930446f6 (time-stamp-old-format-warn): new variable.
Karl Heuer <kwzh@gnu.org>
parents: 14231
diff changeset
242 The time stamp is written between the brackets or quotes:
21073
82e7d581bad1 (time-stamp-pattern): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19791
diff changeset
243 Time-stamp: <1998-02-18 10:20:51 gildea>
17600
0dc8180c2e7a (time-stamp-old-format-warn): Fix a tag string.
Richard M. Stallman <rms@gnu.org>
parents: 17438
diff changeset
244 The time stamp is updated only if the variable `time-stamp-active' is non-nil.
16287
24fd930446f6 (time-stamp-old-format-warn): new variable.
Karl Heuer <kwzh@gnu.org>
parents: 14231
diff changeset
245 The format of the time stamp is set by the variable `time-stamp-format'.
25405
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
246 The variables `time-stamp-line-limit', `time-stamp-start', `time-stamp-end',
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
247 `time-stamp-count', and `time-stamp-inserts-lines' control finding the
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
248 template."
3854
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
249 (interactive)
25405
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
250 (let ((line-limit time-stamp-line-limit)
21073
82e7d581bad1 (time-stamp-pattern): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19791
diff changeset
251 (ts-start time-stamp-start)
82e7d581bad1 (time-stamp-pattern): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19791
diff changeset
252 (ts-format time-stamp-format)
25405
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
253 (ts-end time-stamp-end)
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
254 (ts-count time-stamp-count)
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
255 (format-lines 0)
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
256 (end-lines 1)
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
257 (start nil)
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
258 search-limit)
21073
82e7d581bad1 (time-stamp-pattern): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19791
diff changeset
259 (if (stringp time-stamp-pattern)
82e7d581bad1 (time-stamp-pattern): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19791
diff changeset
260 (progn
22508
c9307c229265 (time-stamp): Handle newlines in time-stamp-pattern.
Karl Heuer <kwzh@gnu.org>
parents: 21073
diff changeset
261 (string-match "\\`\\(\\(-?[0-9]+\\)/\\)?\\([^%]+\\)?\\(\\(.\\|\n\\)*%[-.,:@+_ #^()0-9]*[A-Za-z%]\\)?\\([^%]+\\)?\\'" time-stamp-pattern)
21073
82e7d581bad1 (time-stamp-pattern): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19791
diff changeset
262 (and (match-beginning 2)
82e7d581bad1 (time-stamp-pattern): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19791
diff changeset
263 (setq line-limit
82e7d581bad1 (time-stamp-pattern): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19791
diff changeset
264 (string-to-int (match-string 2 time-stamp-pattern))))
82e7d581bad1 (time-stamp-pattern): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19791
diff changeset
265 (and (match-beginning 3)
82e7d581bad1 (time-stamp-pattern): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19791
diff changeset
266 (setq ts-start (match-string 3 time-stamp-pattern)))
82e7d581bad1 (time-stamp-pattern): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19791
diff changeset
267 (and (match-beginning 4)
82e7d581bad1 (time-stamp-pattern): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19791
diff changeset
268 (not (string-equal (match-string 4 time-stamp-pattern) "%%"))
82e7d581bad1 (time-stamp-pattern): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19791
diff changeset
269 (setq ts-format (match-string 4 time-stamp-pattern)))
22508
c9307c229265 (time-stamp): Handle newlines in time-stamp-pattern.
Karl Heuer <kwzh@gnu.org>
parents: 21073
diff changeset
270 (and (match-beginning 6)
c9307c229265 (time-stamp): Handle newlines in time-stamp-pattern.
Karl Heuer <kwzh@gnu.org>
parents: 21073
diff changeset
271 (setq ts-end (match-string 6 time-stamp-pattern)))))
17600
0dc8180c2e7a (time-stamp-old-format-warn): Fix a tag string.
Richard M. Stallman <rms@gnu.org>
parents: 17438
diff changeset
272 (cond ((not (integerp line-limit))
0dc8180c2e7a (time-stamp-old-format-warn): Fix a tag string.
Richard M. Stallman <rms@gnu.org>
parents: 17438
diff changeset
273 (setq line-limit 8)
21073
82e7d581bad1 (time-stamp-pattern): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19791
diff changeset
274 (message "time-stamp-line-limit is not an integer")
17600
0dc8180c2e7a (time-stamp-old-format-warn): Fix a tag string.
Richard M. Stallman <rms@gnu.org>
parents: 17438
diff changeset
275 (sit-for 1)))
25405
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
276 (cond ((not (integerp ts-count))
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
277 (setq ts-count 1)
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
278 (message "time-stamp-count is not an integer")
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
279 (sit-for 1))
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
280 ((< ts-count 1)
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
281 ;; We need to call time-stamp-once at least once
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
282 ;; to output any warnings about time-stamp not being active.
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
283 (setq ts-count 1)))
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
284 ;; Figure out what lines the end should be on.
32454
08bfb5555d7b (time-stamp): Fixed bug in new multi-line code
Gerd Moellmann <gerd@gnu.org>
parents: 28696
diff changeset
285 (if (stringp ts-format)
08bfb5555d7b (time-stamp): Fixed bug in new multi-line code
Gerd Moellmann <gerd@gnu.org>
parents: 28696
diff changeset
286 (let ((nl-start 0))
08bfb5555d7b (time-stamp): Fixed bug in new multi-line code
Gerd Moellmann <gerd@gnu.org>
parents: 28696
diff changeset
287 (while (string-match "\n" ts-format nl-start)
08bfb5555d7b (time-stamp): Fixed bug in new multi-line code
Gerd Moellmann <gerd@gnu.org>
parents: 28696
diff changeset
288 (setq format-lines (1+ format-lines) nl-start (match-end 0)))))
25405
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
289 (let ((nl-start 0))
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
290 (while (string-match "\n" ts-end nl-start)
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
291 (setq end-lines (1+ end-lines) nl-start (match-end 0))))
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
292 ;; Find overall what lines to look at
17600
0dc8180c2e7a (time-stamp-old-format-warn): Fix a tag string.
Richard M. Stallman <rms@gnu.org>
parents: 17438
diff changeset
293 (save-excursion
0dc8180c2e7a (time-stamp-old-format-warn): Fix a tag string.
Richard M. Stallman <rms@gnu.org>
parents: 17438
diff changeset
294 (save-restriction
0dc8180c2e7a (time-stamp-old-format-warn): Fix a tag string.
Richard M. Stallman <rms@gnu.org>
parents: 17438
diff changeset
295 (widen)
0dc8180c2e7a (time-stamp-old-format-warn): Fix a tag string.
Richard M. Stallman <rms@gnu.org>
parents: 17438
diff changeset
296 (cond ((> line-limit 0)
0dc8180c2e7a (time-stamp-old-format-warn): Fix a tag string.
Richard M. Stallman <rms@gnu.org>
parents: 17438
diff changeset
297 (goto-char (setq start (point-min)))
0dc8180c2e7a (time-stamp-old-format-warn): Fix a tag string.
Richard M. Stallman <rms@gnu.org>
parents: 17438
diff changeset
298 (forward-line line-limit)
0dc8180c2e7a (time-stamp-old-format-warn): Fix a tag string.
Richard M. Stallman <rms@gnu.org>
parents: 17438
diff changeset
299 (setq search-limit (point)))
24266
894911d2c01d (time-stamp-format): Format doc tighter.
Richard M. Stallman <rms@gnu.org>
parents: 22993
diff changeset
300 ((< line-limit 0)
17600
0dc8180c2e7a (time-stamp-old-format-warn): Fix a tag string.
Richard M. Stallman <rms@gnu.org>
parents: 17438
diff changeset
301 (goto-char (setq search-limit (point-max)))
0dc8180c2e7a (time-stamp-old-format-warn): Fix a tag string.
Richard M. Stallman <rms@gnu.org>
parents: 17438
diff changeset
302 (forward-line line-limit)
24266
894911d2c01d (time-stamp-format): Format doc tighter.
Richard M. Stallman <rms@gnu.org>
parents: 22993
diff changeset
303 (setq start (point)))
894911d2c01d (time-stamp-format): Format doc tighter.
Richard M. Stallman <rms@gnu.org>
parents: 22993
diff changeset
304 (t ;0 => no limit (use with care!)
894911d2c01d (time-stamp-format): Format doc tighter.
Richard M. Stallman <rms@gnu.org>
parents: 22993
diff changeset
305 (setq start (point-min))
25405
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
306 (setq search-limit (point-max))))))
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
307 (while (and start
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
308 (< start search-limit)
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
309 (> ts-count 0))
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
310 (setq start (time-stamp-once start search-limit ts-start ts-end
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
311 ts-format format-lines end-lines))
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
312 (setq ts-count (1- ts-count))))
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
313 ;; be sure to return nil so can be used on write-file-hooks
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
314 nil)
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
315
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
316 (defun time-stamp-once (start search-limit ts-start ts-end
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
317 ts-format format-lines end-lines)
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
318 "Update one time-stamp. Internal routine called by \\[time-stamp].
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
319 Returns the end point, which is where `time-stamp' begins the next search."
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
320 (let ((case-fold-search nil)
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
321 (end nil)
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
322 end-search-start
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
323 (end-length nil))
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
324 (save-excursion
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
325 (save-restriction
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
326 (widen)
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
327 ;; Find the location of the time stamp.
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
328 (while (and (< (goto-char start) search-limit)
17600
0dc8180c2e7a (time-stamp-old-format-warn): Fix a tag string.
Richard M. Stallman <rms@gnu.org>
parents: 17438
diff changeset
329 (not end)
21073
82e7d581bad1 (time-stamp-pattern): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19791
diff changeset
330 (re-search-forward ts-start search-limit 'move))
17600
0dc8180c2e7a (time-stamp-old-format-warn): Fix a tag string.
Richard M. Stallman <rms@gnu.org>
parents: 17438
diff changeset
331 (setq start (point))
25405
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
332 (if (not time-stamp-inserts-lines)
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
333 (forward-line format-lines))
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
334 (setq end-search-start (max start (point)))
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
335 (if (= (forward-line end-lines) 0)
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
336 (progn
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
337 (and (bolp) (backward-char))
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
338 (let ((line-end (min (point) search-limit)))
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
339 (if (>= line-end end-search-start)
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
340 (progn
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
341 (goto-char end-search-start)
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
342 (if (re-search-forward ts-end line-end t)
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
343 (progn
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
344 (setq end (match-beginning 0))
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
345 (setq end-length (- (match-end 0) end))))))))))))
21073
82e7d581bad1 (time-stamp-pattern): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19791
diff changeset
346 (if end
82e7d581bad1 (time-stamp-pattern): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19791
diff changeset
347 (progn
82e7d581bad1 (time-stamp-pattern): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19791
diff changeset
348 ;; do all warnings outside save-excursion
82e7d581bad1 (time-stamp-pattern): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19791
diff changeset
349 (cond
82e7d581bad1 (time-stamp-pattern): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19791
diff changeset
350 ((not time-stamp-active)
82e7d581bad1 (time-stamp-pattern): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19791
diff changeset
351 (if time-stamp-warn-inactive
82e7d581bad1 (time-stamp-pattern): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19791
diff changeset
352 ;; don't signal an error in a write-file-hook
82e7d581bad1 (time-stamp-pattern): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19791
diff changeset
353 (progn
82e7d581bad1 (time-stamp-pattern): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19791
diff changeset
354 (message "Warning: time-stamp-active is off; did not time-stamp buffer.")
82e7d581bad1 (time-stamp-pattern): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19791
diff changeset
355 (sit-for 1))))
82e7d581bad1 (time-stamp-pattern): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19791
diff changeset
356 ((not (and (stringp ts-start)
82e7d581bad1 (time-stamp-pattern): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19791
diff changeset
357 (stringp ts-end)))
82e7d581bad1 (time-stamp-pattern): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19791
diff changeset
358 (message "time-stamp-start or time-stamp-end is not a string")
82e7d581bad1 (time-stamp-pattern): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19791
diff changeset
359 (sit-for 1))
82e7d581bad1 (time-stamp-pattern): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19791
diff changeset
360 (t
82e7d581bad1 (time-stamp-pattern): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19791
diff changeset
361 (let ((new-time-stamp (time-stamp-string ts-format)))
24266
894911d2c01d (time-stamp-format): Format doc tighter.
Richard M. Stallman <rms@gnu.org>
parents: 22993
diff changeset
362 (if (and (stringp new-time-stamp)
894911d2c01d (time-stamp-format): Format doc tighter.
Richard M. Stallman <rms@gnu.org>
parents: 22993
diff changeset
363 (not (string-equal (buffer-substring start end)
894911d2c01d (time-stamp-format): Format doc tighter.
Richard M. Stallman <rms@gnu.org>
parents: 22993
diff changeset
364 new-time-stamp)))
21073
82e7d581bad1 (time-stamp-pattern): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19791
diff changeset
365 (save-excursion
82e7d581bad1 (time-stamp-pattern): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19791
diff changeset
366 (save-restriction
82e7d581bad1 (time-stamp-pattern): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19791
diff changeset
367 (widen)
82e7d581bad1 (time-stamp-pattern): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19791
diff changeset
368 (delete-region start end)
82e7d581bad1 (time-stamp-pattern): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19791
diff changeset
369 (goto-char start)
82e7d581bad1 (time-stamp-pattern): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19791
diff changeset
370 (insert-and-inherit new-time-stamp)
82e7d581bad1 (time-stamp-pattern): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19791
diff changeset
371 (setq end (point))
82e7d581bad1 (time-stamp-pattern): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19791
diff changeset
372 ;; remove any tabs used to format time stamp
25405
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
373 (if (search-backward "\t" start t)
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
374 (progn
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
375 (untabify start end)
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
376 (setq end (point))))))))))))
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
377 ;; return the location after this time stamp, if there was one
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
378 (and end end-length
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
379 (+ end end-length))))
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
380
3854
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
381
11404
b12a8765508b (time-stamp-format): Replace list of Lisp
Richard M. Stallman <rms@gnu.org>
parents: 9016
diff changeset
382 ;;;###autoload
b12a8765508b (time-stamp-format): Replace list of Lisp
Richard M. Stallman <rms@gnu.org>
parents: 9016
diff changeset
383 (defun time-stamp-toggle-active (&optional arg)
16287
24fd930446f6 (time-stamp-old-format-warn): new variable.
Karl Heuer <kwzh@gnu.org>
parents: 14231
diff changeset
384 "Toggle `time-stamp-active', setting whether \\[time-stamp] updates a buffer.
11404
b12a8765508b (time-stamp-format): Replace list of Lisp
Richard M. Stallman <rms@gnu.org>
parents: 9016
diff changeset
385 With arg, turn time stamping on if and only if arg is positive."
b12a8765508b (time-stamp-format): Replace list of Lisp
Richard M. Stallman <rms@gnu.org>
parents: 9016
diff changeset
386 (interactive "P")
b12a8765508b (time-stamp-format): Replace list of Lisp
Richard M. Stallman <rms@gnu.org>
parents: 9016
diff changeset
387 (setq time-stamp-active
b12a8765508b (time-stamp-format): Replace list of Lisp
Richard M. Stallman <rms@gnu.org>
parents: 9016
diff changeset
388 (if (null arg)
b12a8765508b (time-stamp-format): Replace list of Lisp
Richard M. Stallman <rms@gnu.org>
parents: 9016
diff changeset
389 (not time-stamp-active)
b12a8765508b (time-stamp-format): Replace list of Lisp
Richard M. Stallman <rms@gnu.org>
parents: 9016
diff changeset
390 (> (prefix-numeric-value arg) 0)))
25405
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
391 (message "time-stamp is now %s." (if time-stamp-active "active" "off")))
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
392
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
393
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
394 (defun time-stamp-string (&optional ts-format)
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
395 "Generate the new string to be inserted by \\[time-stamp].
35695
8bac5c752b89 (time-stamp-string): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents: 35627
diff changeset
396 Optionally use format TS-FORMAT instead of `time-stamp-format' to
8bac5c752b89 (time-stamp-string): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents: 35627
diff changeset
397 format the string."
25405
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
398 (or ts-format
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
399 (setq ts-format time-stamp-format))
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
400 (if (stringp ts-format)
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
401 (if (stringp time-stamp-time-zone)
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
402 (let ((ts-real-time-zone (getenv "TZ")))
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
403 (unwind-protect
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
404 (progn
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
405 (setenv "TZ" time-stamp-time-zone)
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
406 (format-time-string
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
407 (time-stamp-string-preprocess ts-format)))
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
408 (setenv "TZ" ts-real-time-zone)))
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
409 (format-time-string
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
410 (time-stamp-string-preprocess ts-format)))
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
411 ;; handle version 1 compatibility
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
412 (cond ((or (eq time-stamp-old-format-warn 'error)
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
413 (and (eq time-stamp-old-format-warn 'ask)
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
414 (not (y-or-n-p "Use non-string time-stamp-format? "))))
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
415 (message "Warning: no time-stamp: time-stamp-format not a string")
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
416 (sit-for 1)
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
417 nil)
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
418 (t
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
419 (cond ((eq time-stamp-old-format-warn 'warn)
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
420 (message "Obsolescent time-stamp-format type; should be string")
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
421 (sit-for 1)))
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
422 (time-stamp-fconcat ts-format " ")))))
16287
24fd930446f6 (time-stamp-old-format-warn): new variable.
Karl Heuer <kwzh@gnu.org>
parents: 14231
diff changeset
423
16705
db8a501954f6 (time-stamp-no-file): Reintroduced.
Richard M. Stallman <rms@gnu.org>
parents: 16674
diff changeset
424 (defconst time-stamp-no-file "(no file)"
db8a501954f6 (time-stamp-no-file): Reintroduced.
Richard M. Stallman <rms@gnu.org>
parents: 16674
diff changeset
425 "String to use when the buffer is not associated with a file.")
db8a501954f6 (time-stamp-no-file): Reintroduced.
Richard M. Stallman <rms@gnu.org>
parents: 16674
diff changeset
426
18170
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
427 ;;; time-stamp is transitioning to using the new, expanded capabilities
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
428 ;;; of format-time-string. During the process, this function implements
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
429 ;;; intermediate, compatible formats and complains about old, soon to
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
430 ;;; be unsupported, formats. This function will get a lot (a LOT) shorter
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
431 ;;; when the transition is complete and we can just pass most things
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
432 ;;; straight through to format-time-string.
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
433 ;;; At all times, all the formats recommended in the doc string
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
434 ;;; of time-stamp-format will work not only in the current version of
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
435 ;;; Emacs, but in all versions that have been released within the past
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
436 ;;; two years.
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
437 ;;; The : modifier is a temporary conversion feature used to resolve
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
438 ;;; ambiguous formats--formats that are changing (over time) incompatibly.
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
439 (defun time-stamp-string-preprocess (format &optional time)
35627
c5a1cf50f5cd Doc fixes.
Dave Love <fx@gnu.org>
parents: 34395
diff changeset
440 "Use a FORMAT to format date, time, file, and user information.
c5a1cf50f5cd Doc fixes.
Dave Love <fx@gnu.org>
parents: 34395
diff changeset
441 Optional second argument TIME is only for testing.
c5a1cf50f5cd Doc fixes.
Dave Love <fx@gnu.org>
parents: 34395
diff changeset
442 Implements non-time extensions to `format-time-string'
c5a1cf50f5cd Doc fixes.
Dave Love <fx@gnu.org>
parents: 34395
diff changeset
443 and all time-stamp-format compatibility."
18170
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
444 (let ((fmt-len (length format))
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
445 (ind 0)
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
446 cur-char
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
447 (prev-char nil)
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
448 (result "")
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
449 field-width
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
450 field-result
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
451 alt-form change-case require-padding
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
452 (paren-level 0))
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
453 (while (< ind fmt-len)
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
454 (setq cur-char (aref format ind))
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
455 (setq
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
456 result
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
457 (concat result
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
458 (cond
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
459 ((eq cur-char ?%)
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
460 ;; eat any additional args to allow for future expansion
22508
c9307c229265 (time-stamp): Handle newlines in time-stamp-pattern.
Karl Heuer <kwzh@gnu.org>
parents: 21073
diff changeset
461 (setq alt-form nil change-case nil require-padding nil field-width "")
18170
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
462 (while (progn
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
463 (setq ind (1+ ind))
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
464 (setq cur-char (if (< ind fmt-len)
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
465 (aref format ind)
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
466 ?\0))
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
467 (or (eq ?. cur-char)
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
468 (eq ?, cur-char) (eq ?: cur-char) (eq ?@ cur-char)
35627
c5a1cf50f5cd Doc fixes.
Dave Love <fx@gnu.org>
parents: 34395
diff changeset
469 (eq ?- cur-char) (eq ?+ cur-char) (eq ?_ cur-char)
18170
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
470 (eq ?\ cur-char) (eq ?# cur-char) (eq ?^ cur-char)
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
471 (and (eq ?\( cur-char)
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
472 (not (eq prev-char ?\\))
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
473 (setq paren-level (1+ paren-level)))
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
474 (if (and (eq ?\) cur-char)
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
475 (not (eq prev-char ?\\))
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
476 (> paren-level 0))
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
477 (setq paren-level (1- paren-level))
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
478 (and (> paren-level 0)
22508
c9307c229265 (time-stamp): Handle newlines in time-stamp-pattern.
Karl Heuer <kwzh@gnu.org>
parents: 21073
diff changeset
479 (< ind fmt-len)))
c9307c229265 (time-stamp): Handle newlines in time-stamp-pattern.
Karl Heuer <kwzh@gnu.org>
parents: 21073
diff changeset
480 (if (and (<= ?0 cur-char) (>= ?9 cur-char))
c9307c229265 (time-stamp): Handle newlines in time-stamp-pattern.
Karl Heuer <kwzh@gnu.org>
parents: 21073
diff changeset
481 ;; get format width
c9307c229265 (time-stamp): Handle newlines in time-stamp-pattern.
Karl Heuer <kwzh@gnu.org>
parents: 21073
diff changeset
482 (let ((field-index ind))
c9307c229265 (time-stamp): Handle newlines in time-stamp-pattern.
Karl Heuer <kwzh@gnu.org>
parents: 21073
diff changeset
483 (while (progn
c9307c229265 (time-stamp): Handle newlines in time-stamp-pattern.
Karl Heuer <kwzh@gnu.org>
parents: 21073
diff changeset
484 (setq ind (1+ ind))
c9307c229265 (time-stamp): Handle newlines in time-stamp-pattern.
Karl Heuer <kwzh@gnu.org>
parents: 21073
diff changeset
485 (setq cur-char (if (< ind fmt-len)
c9307c229265 (time-stamp): Handle newlines in time-stamp-pattern.
Karl Heuer <kwzh@gnu.org>
parents: 21073
diff changeset
486 (aref format ind)
c9307c229265 (time-stamp): Handle newlines in time-stamp-pattern.
Karl Heuer <kwzh@gnu.org>
parents: 21073
diff changeset
487 ?\0))
c9307c229265 (time-stamp): Handle newlines in time-stamp-pattern.
Karl Heuer <kwzh@gnu.org>
parents: 21073
diff changeset
488 (and (<= ?0 cur-char) (>= ?9 cur-char))))
c9307c229265 (time-stamp): Handle newlines in time-stamp-pattern.
Karl Heuer <kwzh@gnu.org>
parents: 21073
diff changeset
489 (setq field-width (substring format field-index ind))
c9307c229265 (time-stamp): Handle newlines in time-stamp-pattern.
Karl Heuer <kwzh@gnu.org>
parents: 21073
diff changeset
490 (setq ind (1- ind))
c9307c229265 (time-stamp): Handle newlines in time-stamp-pattern.
Karl Heuer <kwzh@gnu.org>
parents: 21073
diff changeset
491 t))))
18170
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
492 (setq prev-char cur-char)
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
493 ;; some characters we actually use
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
494 (cond ((eq cur-char ?:)
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
495 (setq alt-form t))
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
496 ((eq cur-char ?#)
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
497 (setq change-case t))))
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
498 (setq field-result
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
499 (cond
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
500 ((eq cur-char ?%)
25405
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
501 "%%")
18170
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
502 ((eq cur-char ?a) ;day of week
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
503 (if change-case
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
504 (format-time-string "%#A" time)
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
505 (or alt-form (not (string-equal field-width ""))
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
506 (time-stamp-conv-warn "%a" "%:a"))
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
507 (if (and alt-form (not (string-equal field-width "")))
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
508 "" ;discourage "%:3a"
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
509 (format-time-string "%A" time))))
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
510 ((eq cur-char ?A)
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
511 (if alt-form
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
512 (format-time-string "%A" time)
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
513 (or change-case (not (string-equal field-width ""))
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
514 (time-stamp-conv-warn "%A" "%#A"))
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
515 (format-time-string "%#A" time)))
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
516 ((eq cur-char ?b) ;month name
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
517 (if change-case
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
518 (format-time-string "%#B" time)
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
519 (or alt-form (not (string-equal field-width ""))
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
520 (time-stamp-conv-warn "%b" "%:b"))
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
521 (if (and alt-form (not (string-equal field-width "")))
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
522 "" ;discourage "%:3b"
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
523 (format-time-string "%B" time))))
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
524 ((eq cur-char ?B)
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
525 (if alt-form
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
526 (format-time-string "%B" time)
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
527 (or change-case (not (string-equal field-width ""))
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
528 (time-stamp-conv-warn "%B" "%#B"))
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
529 (format-time-string "%#B" time)))
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
530 ((eq cur-char ?d) ;day of month, 1-31
18171
566b6cf773ed (time-stamp-string-preprocess, time-stamp-do-number):
Richard M. Stallman <rms@gnu.org>
parents: 18170
diff changeset
531 (time-stamp-do-number cur-char alt-form field-width time))
18170
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
532 ((eq cur-char ?H) ;hour, 0-23
18171
566b6cf773ed (time-stamp-string-preprocess, time-stamp-do-number):
Richard M. Stallman <rms@gnu.org>
parents: 18170
diff changeset
533 (time-stamp-do-number cur-char alt-form field-width time))
18170
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
534 ((eq cur-char ?I) ;hour, 1-12
18171
566b6cf773ed (time-stamp-string-preprocess, time-stamp-do-number):
Richard M. Stallman <rms@gnu.org>
parents: 18170
diff changeset
535 (time-stamp-do-number cur-char alt-form field-width time))
18170
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
536 ((eq cur-char ?m) ;month number, 1-12
18171
566b6cf773ed (time-stamp-string-preprocess, time-stamp-do-number):
Richard M. Stallman <rms@gnu.org>
parents: 18170
diff changeset
537 (time-stamp-do-number cur-char alt-form field-width time))
18170
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
538 ((eq cur-char ?M) ;minute, 0-59
18171
566b6cf773ed (time-stamp-string-preprocess, time-stamp-do-number):
Richard M. Stallman <rms@gnu.org>
parents: 18170
diff changeset
539 (time-stamp-do-number cur-char alt-form field-width time))
18170
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
540 ((eq cur-char ?p) ;am or pm
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
541 (or change-case
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
542 (time-stamp-conv-warn "%p" "%#p"))
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
543 (format-time-string "%#p" time))
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
544 ((eq cur-char ?P) ;AM or PM
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
545 (format-time-string "%p" time))
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
546 ((eq cur-char ?S) ;seconds, 00-60
18171
566b6cf773ed (time-stamp-string-preprocess, time-stamp-do-number):
Richard M. Stallman <rms@gnu.org>
parents: 18170
diff changeset
547 (time-stamp-do-number cur-char alt-form field-width time))
18170
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
548 ((eq cur-char ?w) ;weekday number, Sunday is 0
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
549 (format-time-string "%w" time))
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
550 ((eq cur-char ?y) ;year
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
551 (or alt-form (not (string-equal field-width ""))
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
552 (time-stamp-conv-warn "%y" "%:y"))
33033
b440b63b45d0 bogus commit
Kai Großjohann <kgrossjo@eu.uu.net>
parents: 33032
diff changeset
553 (string-to-int (format-time-string "%Y" time)))
18170
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
554 ((eq cur-char ?Y) ;4-digit year, new style
33033
b440b63b45d0 bogus commit
Kai Großjohann <kgrossjo@eu.uu.net>
parents: 33032
diff changeset
555 (string-to-int (format-time-string "%Y" time)))
18170
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
556 ((eq cur-char ?z) ;time zone lower case
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
557 (if change-case
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
558 "" ;discourage %z variations
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
559 (format-time-string "%#Z" time)))
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
560 ((eq cur-char ?Z)
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
561 (if change-case
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
562 (format-time-string "%#Z" time)
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
563 (format-time-string "%Z" time)))
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
564 ((eq cur-char ?f) ;buffer-file-name, base name only
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
565 (if buffer-file-name
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
566 (file-name-nondirectory buffer-file-name)
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
567 time-stamp-no-file))
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
568 ((eq cur-char ?F) ;buffer-file-name, full path
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
569 (or buffer-file-name
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
570 time-stamp-no-file))
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
571 ((eq cur-char ?s) ;system name
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
572 (system-name))
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
573 ((eq cur-char ?u) ;user name
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
574 (user-login-name))
22993
f580b9694876 (time-stamp-string-preprocess): Add %U code.
Richard M. Stallman <rms@gnu.org>
parents: 22508
diff changeset
575 ((eq cur-char ?U) ;user full name
f580b9694876 (time-stamp-string-preprocess): Add %U code.
Richard M. Stallman <rms@gnu.org>
parents: 22508
diff changeset
576 (user-full-name))
25405
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
577 ((eq cur-char ?l) ;logname (undocumented user name alt)
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
578 (user-login-name))
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
579 ((eq cur-char ?L) ;(undocumented alt user full name)
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
580 (user-full-name))
18170
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
581 ((eq cur-char ?h) ;mail host name
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
582 (time-stamp-mail-host-name))
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
583 ))
32874
12f068b4d5ac (time-stamp-string-preprocess): Fix a wrong
Gerd Moellmann <gerd@gnu.org>
parents: 32454
diff changeset
584 (let ((padded-result
12f068b4d5ac (time-stamp-string-preprocess): Fix a wrong
Gerd Moellmann <gerd@gnu.org>
parents: 32454
diff changeset
585 (format (format "%%%s%c"
12f068b4d5ac (time-stamp-string-preprocess): Fix a wrong
Gerd Moellmann <gerd@gnu.org>
parents: 32454
diff changeset
586 field-width
12f068b4d5ac (time-stamp-string-preprocess): Fix a wrong
Gerd Moellmann <gerd@gnu.org>
parents: 32454
diff changeset
587 (if (numberp field-result) ?d ?s))
12f068b4d5ac (time-stamp-string-preprocess): Fix a wrong
Gerd Moellmann <gerd@gnu.org>
parents: 32454
diff changeset
588 (or field-result ""))))
12f068b4d5ac (time-stamp-string-preprocess): Fix a wrong
Gerd Moellmann <gerd@gnu.org>
parents: 32454
diff changeset
589 (let* ((initial-length (length padded-result))
12f068b4d5ac (time-stamp-string-preprocess): Fix a wrong
Gerd Moellmann <gerd@gnu.org>
parents: 32454
diff changeset
590 (desired-length (if (string-equal field-width "")
12f068b4d5ac (time-stamp-string-preprocess): Fix a wrong
Gerd Moellmann <gerd@gnu.org>
parents: 32454
diff changeset
591 initial-length
12f068b4d5ac (time-stamp-string-preprocess): Fix a wrong
Gerd Moellmann <gerd@gnu.org>
parents: 32454
diff changeset
592 (string-to-int field-width))))
12f068b4d5ac (time-stamp-string-preprocess): Fix a wrong
Gerd Moellmann <gerd@gnu.org>
parents: 32454
diff changeset
593 (if (> initial-length desired-length)
12f068b4d5ac (time-stamp-string-preprocess): Fix a wrong
Gerd Moellmann <gerd@gnu.org>
parents: 32454
diff changeset
594 ;; truncate strings on right, years on left
12f068b4d5ac (time-stamp-string-preprocess): Fix a wrong
Gerd Moellmann <gerd@gnu.org>
parents: 32454
diff changeset
595 (if (stringp field-result)
12f068b4d5ac (time-stamp-string-preprocess): Fix a wrong
Gerd Moellmann <gerd@gnu.org>
parents: 32454
diff changeset
596 (substring padded-result 0 desired-length)
12f068b4d5ac (time-stamp-string-preprocess): Fix a wrong
Gerd Moellmann <gerd@gnu.org>
parents: 32454
diff changeset
597 (if (eq cur-char ?y)
12f068b4d5ac (time-stamp-string-preprocess): Fix a wrong
Gerd Moellmann <gerd@gnu.org>
parents: 32454
diff changeset
598 (substring padded-result (- desired-length))
12f068b4d5ac (time-stamp-string-preprocess): Fix a wrong
Gerd Moellmann <gerd@gnu.org>
parents: 32454
diff changeset
599 padded-result)) ;non-year numbers don't truncate
12f068b4d5ac (time-stamp-string-preprocess): Fix a wrong
Gerd Moellmann <gerd@gnu.org>
parents: 32454
diff changeset
600 padded-result))))
18170
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
601 (t
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
602 (char-to-string cur-char)))))
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
603 (setq ind (1+ ind)))
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
604 result))
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
605
18171
566b6cf773ed (time-stamp-string-preprocess, time-stamp-do-number):
Richard M. Stallman <rms@gnu.org>
parents: 18170
diff changeset
606 (defun time-stamp-do-number (format-char alt-form field-width time)
35627
c5a1cf50f5cd Doc fixes.
Dave Love <fx@gnu.org>
parents: 34395
diff changeset
607 "Handle compatible FORMAT-CHAR where only default width/padding will change.
c5a1cf50f5cd Doc fixes.
Dave Love <fx@gnu.org>
parents: 34395
diff changeset
608 ALT-FORM is whether `#' specified. FIELD-WIDTH is the string
c5a1cf50f5cd Doc fixes.
Dave Love <fx@gnu.org>
parents: 34395
diff changeset
609 width specification or \"\". TIME is the time to convert."
18170
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
610 (let ((format-string (concat "%" (char-to-string format-char))))
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
611 (and (not alt-form) (string-equal field-width "")
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
612 (time-stamp-conv-warn format-string
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
613 (format "%%:%c" format-char)))
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
614 (if (and alt-form (not (string-equal field-width "")))
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
615 "" ;discourage "%:2d" and the like
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
616 (string-to-int (format-time-string format-string time)))))
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
617
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
618 (defvar time-stamp-conversion-warn t
32454
08bfb5555d7b (time-stamp): Fixed bug in new multi-line code
Gerd Moellmann <gerd@gnu.org>
parents: 28696
diff changeset
619 "Warn about soon-to-be-unsupported forms in `time-stamp-format'.
08bfb5555d7b (time-stamp): Fixed bug in new multi-line code
Gerd Moellmann <gerd@gnu.org>
parents: 28696
diff changeset
620 If nil, these warnings are disabled, which would be a bad idea!
18170
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
621 You really need to update your files instead.
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
622
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
623 The new formats will work with old versions of Emacs.
25405
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
624 New formats are being recommended now to allow `time-stamp-format'
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
625 to change in the future to be compatible with `format-time-string'.
18170
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
626 The new forms being recommended now will continue to work then.")
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
627
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
628
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
629 (defun time-stamp-conv-warn (old-form new-form)
35627
c5a1cf50f5cd Doc fixes.
Dave Love <fx@gnu.org>
parents: 34395
diff changeset
630 "Display a warning about a soon-to-be-obsolete format."
18170
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
631 (cond
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
632 (time-stamp-conversion-warn
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
633 (save-excursion
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
634 (set-buffer (get-buffer-create "*Time-stamp-compatibility*"))
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
635 (goto-char (point-max))
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
636 (if (bobp)
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
637 (progn
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
638 (insert
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
639 "The formats recognized in time-stamp-format will change in a future release\n"
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
640 "to be compatible with the new, expanded format-time-string function.\n\n"
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
641 "The following obsolescent time-stamp-format construct(s) were found:\n\n")))
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
642 (insert "\"" old-form "\" -- use " new-form "\n"))
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
643 (display-buffer "*Time-stamp-compatibility*"))))
19504
fd1ee3c25839 (time-stamp-time-zone): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 19154
diff changeset
644
18170
7776ee6215de (time-stamp-format): Doc fix. Use %;y.
Richard M. Stallman <rms@gnu.org>
parents: 17600
diff changeset
645
11404
b12a8765508b (time-stamp-format): Replace list of Lisp
Richard M. Stallman <rms@gnu.org>
parents: 9016
diff changeset
646
b12a8765508b (time-stamp-format): Replace list of Lisp
Richard M. Stallman <rms@gnu.org>
parents: 9016
diff changeset
647 (defun time-stamp-mail-host-name ()
b12a8765508b (time-stamp-format): Replace list of Lisp
Richard M. Stallman <rms@gnu.org>
parents: 9016
diff changeset
648 "Return the name of the host where the user receives mail.
b12a8765508b (time-stamp-format): Replace list of Lisp
Richard M. Stallman <rms@gnu.org>
parents: 9016
diff changeset
649 This is the value of `mail-host-address' if bound and a string,
25405
456e2e2bc4d3 Put quote-backquote around all symbol names
Karl Heuer <kwzh@gnu.org>
parents: 24266
diff changeset
650 otherwise the value of the function `system-name'."
11404
b12a8765508b (time-stamp-format): Replace list of Lisp
Richard M. Stallman <rms@gnu.org>
parents: 9016
diff changeset
651 (or (and (boundp 'mail-host-address)
b12a8765508b (time-stamp-format): Replace list of Lisp
Richard M. Stallman <rms@gnu.org>
parents: 9016
diff changeset
652 (stringp mail-host-address)
b12a8765508b (time-stamp-format): Replace list of Lisp
Richard M. Stallman <rms@gnu.org>
parents: 9016
diff changeset
653 mail-host-address)
b12a8765508b (time-stamp-format): Replace list of Lisp
Richard M. Stallman <rms@gnu.org>
parents: 9016
diff changeset
654 (system-name)))
b12a8765508b (time-stamp-format): Replace list of Lisp
Richard M. Stallman <rms@gnu.org>
parents: 9016
diff changeset
655
b12a8765508b (time-stamp-format): Replace list of Lisp
Richard M. Stallman <rms@gnu.org>
parents: 9016
diff changeset
656 ;;; the rest of this file is for version 1 compatibility
3854
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
657
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
658 (defun time-stamp-fconcat (list sep)
5632
63d80d94e0d7 Better, more user-oriented doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 5287
diff changeset
659 "Similar to (mapconcat 'funcall LIST SEP) but LIST allows literals.
3854
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
660 If an element of LIST is a symbol, it is funcalled to get the string to use;
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
661 the separator SEP is used between two strings obtained by funcalling a
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
662 symbol. Otherwise the element itself is inserted; no separator is used
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
663 around literals."
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
664 (let ((return-string "")
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
665 (insert-sep-p nil))
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
666 (while list
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
667 (cond ((symbolp (car list))
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
668 (if insert-sep-p
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
669 (setq return-string (concat return-string sep)))
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
670 (setq return-string (concat return-string (funcall (car list))))
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
671 (setq insert-sep-p t))
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
672 (t
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
673 (setq return-string (concat return-string (car list)))
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
674 (setq insert-sep-p nil)))
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
675 (setq list (cdr list)))
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
676 return-string))
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
677
16287
24fd930446f6 (time-stamp-old-format-warn): new variable.
Karl Heuer <kwzh@gnu.org>
parents: 14231
diff changeset
678 ;;; Some functions used in time-stamp-format
3854
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
679
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
680 ;;; Could generate most of a message-id with
5632
63d80d94e0d7 Better, more user-oriented doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 5287
diff changeset
681 ;;; '(time-stamp-yymmdd "" time-stamp-hhmm "@" time-stamp-mail-host-name)
3854
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
682
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
683 ;;; pretty form, suitable for a title page
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
684
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
685 (defun time-stamp-month-dd-yyyy ()
5632
63d80d94e0d7 Better, more user-oriented doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 5287
diff changeset
686 "Return the current date as a string in \"Month DD, YYYY\" form."
16706
450cb7cbf895 (time-stamp-month-dd-yyyy): Use format-time-string.
Richard M. Stallman <rms@gnu.org>
parents: 16705
diff changeset
687 (format-time-string "%B %e, %Y"))
3854
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
688
16517
1fa5a347e70f (time-stamp-dd/mm/yyyy): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16287
diff changeset
689 (defun time-stamp-dd/mm/yyyy ()
1fa5a347e70f (time-stamp-dd/mm/yyyy): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16287
diff changeset
690 "Return the current date as a string in \"DD/MM/YYYY\" form."
16706
450cb7cbf895 (time-stamp-month-dd-yyyy): Use format-time-string.
Richard M. Stallman <rms@gnu.org>
parents: 16705
diff changeset
691 (format-time-string "%d/%m/%Y"))
16517
1fa5a347e70f (time-stamp-dd/mm/yyyy): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16287
diff changeset
692
3854
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
693 ;;; same as __DATE__ in ANSI C
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
694
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
695 (defun time-stamp-mon-dd-yyyy ()
5632
63d80d94e0d7 Better, more user-oriented doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 5287
diff changeset
696 "Return the current date as a string in \"Mon DD YYYY\" form.
63d80d94e0d7 Better, more user-oriented doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 5287
diff changeset
697 The first character of DD is space if the value is less than 10."
16706
450cb7cbf895 (time-stamp-month-dd-yyyy): Use format-time-string.
Richard M. Stallman <rms@gnu.org>
parents: 16705
diff changeset
698 (format-time-string "%b %d %Y"))
3854
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
699
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
700 ;;; RFC 822 date
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
701
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
702 (defun time-stamp-dd-mon-yy ()
5632
63d80d94e0d7 Better, more user-oriented doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 5287
diff changeset
703 "Return the current date as a string in \"DD Mon YY\" form."
16706
450cb7cbf895 (time-stamp-month-dd-yyyy): Use format-time-string.
Richard M. Stallman <rms@gnu.org>
parents: 16705
diff changeset
704 (format-time-string "%d %b %y"))
3854
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
705
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
706 ;;; RCS 3 date
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
707
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
708 (defun time-stamp-yy/mm/dd ()
5632
63d80d94e0d7 Better, more user-oriented doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 5287
diff changeset
709 "Return the current date as a string in \"YY/MM/DD\" form."
16706
450cb7cbf895 (time-stamp-month-dd-yyyy): Use format-time-string.
Richard M. Stallman <rms@gnu.org>
parents: 16705
diff changeset
710 (format-time-string "%y/%m/%d"))
3854
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
711
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
712 ;;; RCS 5 date
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
713
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
714 (defun time-stamp-yyyy/mm/dd ()
5632
63d80d94e0d7 Better, more user-oriented doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 5287
diff changeset
715 "Return the current date as a string in \"YYYY/MM/DD\" form."
16706
450cb7cbf895 (time-stamp-month-dd-yyyy): Use format-time-string.
Richard M. Stallman <rms@gnu.org>
parents: 16705
diff changeset
716 (format-time-string "%Y/%m/%d"))
3854
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
717
5632
63d80d94e0d7 Better, more user-oriented doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 5287
diff changeset
718 ;;; ISO 8601 date
63d80d94e0d7 Better, more user-oriented doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 5287
diff changeset
719
63d80d94e0d7 Better, more user-oriented doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 5287
diff changeset
720 (defun time-stamp-yyyy-mm-dd ()
63d80d94e0d7 Better, more user-oriented doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 5287
diff changeset
721 "Return the current date as a string in \"YYYY-MM-DD\" form."
16706
450cb7cbf895 (time-stamp-month-dd-yyyy): Use format-time-string.
Richard M. Stallman <rms@gnu.org>
parents: 16705
diff changeset
722 (format-time-string "%Y-%m-%d"))
5632
63d80d94e0d7 Better, more user-oriented doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 5287
diff changeset
723
3854
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
724 (defun time-stamp-yymmdd ()
5632
63d80d94e0d7 Better, more user-oriented doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 5287
diff changeset
725 "Return the current date as a string in \"YYMMDD\" form."
16706
450cb7cbf895 (time-stamp-month-dd-yyyy): Use format-time-string.
Richard M. Stallman <rms@gnu.org>
parents: 16705
diff changeset
726 (format-time-string "%y%m%d"))
3854
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
727
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
728 (defun time-stamp-hh:mm:ss ()
5632
63d80d94e0d7 Better, more user-oriented doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 5287
diff changeset
729 "Return the current time as a string in \"HH:MM:SS\" form."
16706
450cb7cbf895 (time-stamp-month-dd-yyyy): Use format-time-string.
Richard M. Stallman <rms@gnu.org>
parents: 16705
diff changeset
730 (format-time-string "%T"))
3854
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
731
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
732 (defun time-stamp-hhmm ()
5632
63d80d94e0d7 Better, more user-oriented doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 5287
diff changeset
733 "Return the current time as a string in \"HHMM\" form."
16706
450cb7cbf895 (time-stamp-month-dd-yyyy): Use format-time-string.
Richard M. Stallman <rms@gnu.org>
parents: 16705
diff changeset
734 (format-time-string "%H%M"))
3854
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
735
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
736 (provide 'time-stamp)
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
737
ae1022bb1578 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
738 ;;; time-stamp.el ends here