1 ;;; time-stamp.el --- Maintain last change time stamps in files edited by Emacs
3 ;; Copyright (C) 1989, 1993-1995, 1997, 2000-2011 Free Software Foundation, Inc.
5 ;; This file is part of GNU Emacs.
7 ;; Maintainer's Time-stamp: <2006-04-12 20:30:56 rms>
8 ;; Maintainer: Stephen Gildea <gildea@stop.mail-abuse.org>
11 ;; GNU Emacs is free software: you can redistribute it and/or modify
12 ;; it under the terms of the GNU General Public License as published by
13 ;; the Free Software Foundation, either version 3 of the License, or
14 ;; (at your option) any later version.
16 ;; GNU Emacs is distributed in the hope that it will be useful,
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
19 ;; GNU General Public License for more details.
21 ;; You should have received a copy of the GNU General Public License
22 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
26 ;; A template in a file can be updated with a new time stamp when
27 ;; you save the file. For example:
28 ;; static char *ts = "sdmain.c Time-stamp: <2001-08-13 10:20:51 gildea>";
29 ;; See the top of `time-stamp.el' for another example.
31 ;; To use time-stamping, add this line to your .emacs file:
32 ;; (add-hook 'before-save-hook 'time-stamp)
33 ;; Now any time-stamp templates in your files will be updated automatically.
35 ;; See the documentation for the functions `time-stamp'
36 ;; and `time-stamp-toggle-active' for details.
40 (defgroup time-stamp nil
41 "Maintain last change time stamps in files edited by Emacs."
45 (defcustom time-stamp-format "%:y-%02m-%02d %02H:%02M:%02S %u"
46 "Format of the string inserted by \\[time-stamp].
47 The value may be a string or a list. Lists are supported only for
48 backward compatibility; see variable `time-stamp-old-format-warn'.
50 A string is used verbatim except for character sequences beginning
51 with %, as follows. The values of non-numeric formatted items depend
52 on the locale setting recorded in `system-time-locale' and
53 `locale-coding-system'. The examples here are for the default
56 %:a weekday name: `Monday'. %#A gives uppercase: `MONDAY'
57 %3a abbreviated weekday: `Mon'. %3A gives uppercase: `MON'
58 %:b month name: `January'. %#B gives uppercase: `JANUARY'
59 %3b abbreviated month: `Jan'. %3B gives uppercase: `JAN'
61 %02H 24-hour clock hour
62 %02I 12-hour clock hour
65 %#p `am' or `pm'. %P gives uppercase: `AM' or `PM'
67 %w day number of week, Sunday is 0
68 %02y 2-digit year: `03' %:y 4-digit year: `2003'
69 %z time zone name: `est'. %Z gives uppercase: `EST'
72 %% a literal percent character: `%'
73 %f file name without directory %F gives absolute pathname
75 %u user's login name %U user's full name
78 Decimal digits between the % and the type character specify the
79 field width. Strings are truncated on the right; years on the left.
80 A leading zero in the field width zero-fills a number.
82 For example, to get the format used by the `date' command,
83 use \"%3a %3b %2d %02H:%02M:%02S %Z %:y\".
85 In the future these formats will be aligned more with `format-time-string'.
86 Because of this transition, the default padding for numeric formats will
87 change in a future version. Therefore either a padding width should be
88 specified, or the : modifier should be used to explicitly request the
93 ;;;###autoload(put 'time-stamp-format 'safe-local-variable 'stringp)
95 (defcustom time-stamp-active t
96 "Non-nil to enable time-stamping of buffers by \\[time-stamp].
97 Can be toggled by \\[time-stamp-toggle-active].
98 See also the variable `time-stamp-warn-inactive'."
102 (defcustom time-stamp-warn-inactive t
103 "Have \\[time-stamp] warn if a buffer did not get time-stamped.
104 If non-nil, a warning is displayed if `time-stamp-active' has
105 deactivated time stamping and the buffer contains a template that
106 otherwise would have been updated."
111 (defcustom time-stamp-old-format-warn 'ask
112 "Action if `time-stamp-format' is an old-style list.
113 If `error', the format is not used. If `ask', the user is queried about
114 using the time-stamp-format. If `warn', a warning is displayed.
115 If nil, no notification is given."
116 :type '(choice (const :tag "Don't use the format" error)
119 (const :tag "No notification" nil))
122 (defcustom time-stamp-time-zone nil
123 "If non-nil, a string naming the timezone to be used by \\[time-stamp].
124 Format is the same as that used by the environment variable TZ on your system."
125 :type '(choice (const nil) string)
128 ;;;###autoload(put 'time-stamp-time-zone 'safe-local-variable 'string-or-null-p)
130 ;;; Do not change time-stamp-line-limit, time-stamp-start,
131 ;;; time-stamp-end, time-stamp-pattern, time-stamp-inserts-lines,
132 ;;; or time-stamp-count in your .emacs or you will be incompatible
133 ;;; with other people's files! If you must change them, do so only
134 ;;; in the local variables section of the file itself.
137 (defvar time-stamp-line-limit 8 ;Do not change!
138 "Lines of a file searched; positive counts from start, negative from end.
139 The patterns `time-stamp-start' and `time-stamp-end' must be found in
140 the first (last) `time-stamp-line-limit' lines of the file for the
141 file to be time-stamped by \\[time-stamp]. A value of 0 searches the
142 entire buffer (use with care).
144 This value can also be set with the variable `time-stamp-pattern'.
146 Do not change `time-stamp-line-limit', `time-stamp-start',
147 `time-stamp-end', or `time-stamp-pattern' for yourself or you will be
148 incompatible with other people's files! If you must change them for some
149 application, do so in the local variables section of the time-stamped file
151 ;;;###autoload(put 'time-stamp-line-limit 'safe-local-variable 'integerp)
153 (defvar time-stamp-start "Time-stamp:[ \t]+\\\\?[\"<]+" ;Do not change!
154 "Regexp after which the time stamp is written by \\[time-stamp].
155 See also the variables `time-stamp-end' and `time-stamp-line-limit'.
157 This value can also be set with the variable `time-stamp-pattern'.
159 Do not change `time-stamp-line-limit', `time-stamp-start',
160 `time-stamp-end', or `time-stamp-pattern' for yourself or you will be
161 incompatible with other people's files! If you must change them for some
162 application, do so in the local variables section of the time-stamped file
164 ;;;###autoload(put 'time-stamp-start 'safe-local-variable 'stringp)
166 (defvar time-stamp-end "\\\\?[\">]" ;Do not change!
167 "Regexp marking the text after the time stamp.
168 \\[time-stamp] deletes the text between the first match of `time-stamp-start'
169 and the following match of `time-stamp-end', then writes the
170 time stamp specified by `time-stamp-format' between them.
172 This value can also be set with the variable `time-stamp-pattern'.
174 The end text normally starts on the same line as the start text ends,
175 but if there are any newlines in `time-stamp-format', the same number
176 of newlines must separate the start and end. \\[time-stamp] tries
177 to not change the number of lines in the buffer. `time-stamp-inserts-lines'
178 controls this behavior.
180 Do not change `time-stamp-start', `time-stamp-end', `time-stamp-pattern',
181 or `time-stamp-inserts-lines' for yourself or you will be incompatible
182 with other people's files! If you must change them for some application,
183 do so in the local variables section of the time-stamped file itself.")
184 ;;;###autoload(put 'time-stamp-end 'safe-local-variable 'stringp)
187 (defvar time-stamp-inserts-lines nil ;Do not change!
188 "Whether \\[time-stamp] can change the number of lines in a file.
189 If nil, \\[time-stamp] skips as many lines as there are newlines in
190 `time-stamp-format' before looking for the `time-stamp-end' pattern,
191 thus it tries not to change the number of lines in the buffer.
192 If non-nil, \\[time-stamp] starts looking for the end pattern
193 immediately after the start pattern. This behavior can cause
194 unexpected changes in the buffer if used carelessly, but it is useful
195 for generating repeated time stamps.
197 Do not change `time-stamp-end' or `time-stamp-inserts-lines' for
198 yourself or you will be incompatible with other people's files!
199 If you must change them for some application, do so in the local
200 variables section of the time-stamped file itself.")
201 ;;;###autoload(put 'time-stamp-inserts-lines 'safe-local-variable 'symbolp)
204 (defvar time-stamp-count 1 ;Do not change!
205 "How many templates \\[time-stamp] will look for in a buffer.
206 The same time stamp will be written in each case.
208 Do not change `time-stamp-count' for yourself or you will be
209 incompatible with other people's files! If you must change it for
210 some application, do so in the local variables section of the
211 time-stamped file itself.")
212 ;;;###autoload(put 'time-stamp-count 'safe-local-variable 'integerp)
215 (defvar time-stamp-pattern nil ;Do not change!
216 "Convenience variable setting all `time-stamp' location and format values.
217 This string has four parts, each of which is optional.
218 These four parts set `time-stamp-line-limit', `time-stamp-start',
219 `time-stamp-format', and `time-stamp-end'. See the documentation
220 for each of these variables for details.
222 The first part is a number followed by a slash; the number sets the number
223 of lines at the beginning (negative counts from end) of the file searched
224 for the time stamp. The number and the slash may be omitted to use the
227 The second part is a regexp identifying the pattern preceding the time stamp.
228 This part may be omitted to use the normal pattern.
230 The third part specifies the format of the time stamp inserted. See
231 the documentation for `time-stamp-format' for details. Specify this
232 part as \"%%\" to use the normal format.
234 The fourth part is a regexp identifying the pattern following the time stamp.
235 This part may be omitted to use the normal pattern.
239 \"-9/^Last modified: %%$\"
240 \"@set Time-stamp: %:b %:d, %:y$\"
241 \"newcommand{\\\\\\\\timestamp}{%%}\"
243 Do not change `time-stamp-pattern' `time-stamp-line-limit',
244 `time-stamp-start', or `time-stamp-end' for yourself or you will be
245 incompatible with other people's files! If you must change them for
246 some application, do so only in the local variables section of the
247 time-stamped file itself.")
248 ;;;###autoload(put 'time-stamp-pattern 'safe-local-variable 'stringp)
254 "Update the time stamp string(s) in the buffer.
255 A template in a file can be automatically updated with a new time stamp
256 every time you save the file. Add this line to your .emacs file:
257 (add-hook 'before-save-hook 'time-stamp)
258 or customize `before-save-hook' through Custom.
259 Normally the template must appear in the first 8 lines of a file and
260 look like one of the following:
263 The time stamp is written between the brackets or quotes:
264 Time-stamp: <2001-02-18 10:20:51 gildea>
265 The time stamp is updated only if the variable `time-stamp-active' is non-nil.
266 The format of the time stamp is set by the variable `time-stamp-pattern' or
267 `time-stamp-format'. The variables `time-stamp-pattern',
268 `time-stamp-line-limit', `time-stamp-start', `time-stamp-end',
269 `time-stamp-count', and `time-stamp-inserts-lines' control finding
272 (let ((line-limit time-stamp-line-limit)
273 (ts-start time-stamp-start)
274 (ts-format time-stamp-format)
275 (ts-end time-stamp-end)
276 (ts-count time-stamp-count)
281 (if (stringp time-stamp-pattern)
283 (string-match "\\`\\(\\(-?[0-9]+\\)/\\)?\\([^%]+\\)?\\(\\(%[-.,:@+_ #^()0-9]*[A-Za-z%][^%]*\\)*%[-.,:@+_ #^()0-9]*[A-Za-z%]\\)?\\([^%]+\\)?\\'" time-stamp-pattern)
284 (and (match-beginning 2)
286 (string-to-number (match-string 2 time-stamp-pattern))))
287 (and (match-beginning 3)
288 (setq ts-start (match-string 3 time-stamp-pattern)))
289 (and (match-beginning 4)
290 (not (string-equal (match-string 4 time-stamp-pattern) "%%"))
291 (setq ts-format (match-string 4 time-stamp-pattern)))
292 (and (match-beginning 6)
293 (setq ts-end (match-string 6 time-stamp-pattern)))))
294 (cond ((not (integerp line-limit))
296 (message "time-stamp-line-limit is not an integer")
298 (cond ((not (integerp ts-count))
300 (message "time-stamp-count is not an integer")
303 ;; We need to call time-stamp-once at least once
304 ;; to output any warnings about time-stamp not being active.
306 ;; Figure out what lines the end should be on.
307 (if (stringp ts-format)
309 (while (string-match "\n" ts-format nl-start)
310 (setq format-lines (1+ format-lines) nl-start (match-end 0)))))
312 (while (string-match "\n" ts-end nl-start)
313 (setq end-lines (1+ end-lines) nl-start (match-end 0))))
314 ;; Find overall what lines to look at
318 (cond ((> line-limit 0)
319 (goto-char (setq start (point-min)))
320 (forward-line line-limit)
321 (setq search-limit (point)))
323 (goto-char (setq search-limit (point-max)))
324 (forward-line line-limit)
325 (setq start (point)))
326 (t ;0 => no limit (use with care!)
327 (setq start (point-min))
328 (setq search-limit (point-max))))))
330 (< start search-limit)
332 (setq start (time-stamp-once start search-limit ts-start ts-end
333 ts-format format-lines end-lines))
334 (setq ts-count (1- ts-count))))
337 (defun time-stamp-once (start search-limit ts-start ts-end
338 ts-format format-lines end-lines)
339 "Update one time stamp. Internal routine called by \\[time-stamp].
340 Returns the end point, which is where `time-stamp' begins the next search."
341 (let ((case-fold-search nil)
348 ;; Find the location of the time stamp.
349 (while (and (< (goto-char start) search-limit)
351 (re-search-forward ts-start search-limit 'move))
353 (if (not time-stamp-inserts-lines)
354 (forward-line format-lines))
355 (setq end-search-start (max start (point)))
356 (if (= (forward-line end-lines) 0)
358 (and (bolp) (backward-char))
359 (let ((line-end (min (point) search-limit)))
360 (if (>= line-end end-search-start)
362 (goto-char end-search-start)
363 (if (re-search-forward ts-end line-end t)
365 (setq end (match-beginning 0))
366 (setq end-length (- (match-end 0) end))))))))))))
369 ;; do all warnings outside save-excursion
371 ((not time-stamp-active)
372 (if time-stamp-warn-inactive
373 ;; don't signal an error in a write-file-hook
375 (message "Warning: time-stamp-active is off; did not time-stamp buffer.")
377 ((not (and (stringp ts-start)
379 (message "time-stamp-start or time-stamp-end is not a string")
382 (let ((new-time-stamp (time-stamp-string ts-format)))
383 (if (and (stringp new-time-stamp)
384 (not (string-equal (buffer-substring start end)
389 (delete-region start end)
391 (insert-and-inherit new-time-stamp)
393 ;; remove any tabs used to format time stamp
394 (if (search-backward "\t" start t)
397 (setq end (point))))))))))))
398 ;; return the location after this time stamp, if there was one
400 (+ end end-length))))
404 (defun time-stamp-toggle-active (&optional arg)
405 "Toggle `time-stamp-active', setting whether \\[time-stamp] updates a buffer.
406 With ARG, turn time stamping on if and only if arg is positive."
408 (setq time-stamp-active
410 (not time-stamp-active)
411 (> (prefix-numeric-value arg) 0)))
412 (message "time-stamp is now %s." (if time-stamp-active "active" "off")))
415 (defun time-stamp-string (&optional ts-format)
416 "Generate the new string to be inserted by \\[time-stamp].
417 Optionally use format TS-FORMAT instead of `time-stamp-format' to
420 (setq ts-format time-stamp-format))
421 (if (stringp ts-format)
422 (if (stringp time-stamp-time-zone)
423 (let ((ts-real-time-zone (getenv "TZ")))
426 (set-time-zone-rule time-stamp-time-zone)
428 (time-stamp-string-preprocess ts-format)))
429 (set-time-zone-rule ts-real-time-zone)))
431 (time-stamp-string-preprocess ts-format)))
432 ;; handle version 1 compatibility
433 (cond ((or (eq time-stamp-old-format-warn 'error)
434 (and (eq time-stamp-old-format-warn 'ask)
435 (not (y-or-n-p "Use non-string time-stamp-format? "))))
436 (message "Warning: no time-stamp: time-stamp-format not a string")
440 (cond ((eq time-stamp-old-format-warn 'warn)
441 (message "Obsolescent time-stamp-format type; should be string")
443 (time-stamp-fconcat ts-format " ")))))
445 (defconst time-stamp-no-file "(no file)"
446 "String to use when the buffer is not associated with a file.")
448 ;;; time-stamp is transitioning to using the new, expanded capabilities
449 ;;; of format-time-string. During the process, this function implements
450 ;;; intermediate, compatible formats and complains about old, soon to
451 ;;; be unsupported, formats. This function will get a lot (a LOT) shorter
452 ;;; when the transition is complete and we can just pass most things
453 ;;; straight through to format-time-string.
454 ;;; At all times, all the formats recommended in the doc string
455 ;;; of time-stamp-format will work not only in the current version of
456 ;;; Emacs, but in all versions that have been released within the past
458 ;;; The : modifier is a temporary conversion feature used to resolve
459 ;;; ambiguous formats--formats that are changing (over time) incompatibly.
460 (defun time-stamp-string-preprocess (format &optional time)
461 "Use a FORMAT to format date, time, file, and user information.
462 Optional second argument TIME is only for testing.
463 Implements non-time extensions to `format-time-string'
464 and all `time-stamp-format' compatibility."
465 (let ((fmt-len (length format))
472 alt-form change-case require-padding
474 (while (< ind fmt-len)
475 (setq cur-char (aref format ind))
481 ;; eat any additional args to allow for future expansion
482 (setq alt-form nil change-case nil require-padding nil field-width "")
485 (setq cur-char (if (< ind fmt-len)
489 (eq ?, cur-char) (eq ?: cur-char) (eq ?@ cur-char)
490 (eq ?- cur-char) (eq ?+ cur-char) (eq ?_ cur-char)
491 (eq ?\s cur-char) (eq ?# cur-char) (eq ?^ cur-char)
492 (and (eq ?\( cur-char)
493 (not (eq prev-char ?\\))
494 (setq paren-level (1+ paren-level)))
495 (if (and (eq ?\) cur-char)
496 (not (eq prev-char ?\\))
498 (setq paren-level (1- paren-level))
499 (and (> paren-level 0)
501 (if (and (<= ?0 cur-char) (>= ?9 cur-char))
503 (let ((field-index ind))
506 (setq cur-char (if (< ind fmt-len)
509 (and (<= ?0 cur-char) (>= ?9 cur-char))))
510 (setq field-width (substring format field-index ind))
513 (setq prev-char cur-char)
514 ;; some characters we actually use
515 (cond ((eq cur-char ?:)
518 (setq change-case t))))
523 ((eq cur-char ?a) ;day of week
525 (format-time-string "%#a" time)
526 (or alt-form (not (string-equal field-width ""))
527 (time-stamp-conv-warn "%a" "%:a"))
528 (if (and alt-form (not (string-equal field-width "")))
529 "" ;discourage "%:3a"
530 (format-time-string "%A" time))))
533 (format-time-string "%A" time)
534 (or change-case (not (string-equal field-width ""))
535 (time-stamp-conv-warn "%A" "%#A"))
536 (format-time-string "%#A" time)))
537 ((eq cur-char ?b) ;month name
539 (format-time-string "%#b" time)
540 (or alt-form (not (string-equal field-width ""))
541 (time-stamp-conv-warn "%b" "%:b"))
542 (if (and alt-form (not (string-equal field-width "")))
543 "" ;discourage "%:3b"
544 (format-time-string "%B" time))))
547 (format-time-string "%B" time)
548 (or change-case (not (string-equal field-width ""))
549 (time-stamp-conv-warn "%B" "%#B"))
550 (format-time-string "%#B" time)))
551 ((eq cur-char ?d) ;day of month, 1-31
552 (time-stamp-do-number cur-char alt-form field-width time))
553 ((eq cur-char ?H) ;hour, 0-23
554 (time-stamp-do-number cur-char alt-form field-width time))
555 ((eq cur-char ?I) ;hour, 1-12
556 (time-stamp-do-number cur-char alt-form field-width time))
557 ((eq cur-char ?m) ;month number, 1-12
558 (time-stamp-do-number cur-char alt-form field-width time))
559 ((eq cur-char ?M) ;minute, 0-59
560 (time-stamp-do-number cur-char alt-form field-width time))
561 ((eq cur-char ?p) ;am or pm
563 (time-stamp-conv-warn "%p" "%#p"))
564 (format-time-string "%#p" time))
565 ((eq cur-char ?P) ;AM or PM
566 (format-time-string "%p" time))
567 ((eq cur-char ?S) ;seconds, 00-60
568 (time-stamp-do-number cur-char alt-form field-width time))
569 ((eq cur-char ?w) ;weekday number, Sunday is 0
570 (format-time-string "%w" time))
571 ((eq cur-char ?y) ;year
572 (or alt-form (not (string-equal field-width ""))
573 (time-stamp-conv-warn "%y" "%:y"))
574 (string-to-number (format-time-string "%Y" time)))
575 ((eq cur-char ?Y) ;4-digit year, new style
576 (string-to-number (format-time-string "%Y" time)))
577 ((eq cur-char ?z) ;time zone lower case
579 "" ;discourage %z variations
580 (format-time-string "%#Z" time)))
583 (format-time-string "%#Z" time)
584 (format-time-string "%Z" time)))
585 ((eq cur-char ?f) ;buffer-file-name, base name only
587 (file-name-nondirectory buffer-file-name)
589 ((eq cur-char ?F) ;buffer-file-name, full path
592 ((eq cur-char ?s) ;system name
594 ((eq cur-char ?u) ;user name
596 ((eq cur-char ?U) ;user full name
598 ((eq cur-char ?l) ;logname (undocumented user name alt)
600 ((eq cur-char ?L) ;(undocumented alt user full name)
602 ((eq cur-char ?h) ;mail host name
603 (time-stamp-mail-host-name))
604 ((eq cur-char ?q) ;(undocumented unqual hostname)
605 (let ((qualname (system-name)))
606 (if (string-match "\\." qualname)
607 (substring qualname 0 (match-beginning 0))
609 ((eq cur-char ?Q) ;(undocumented fully-qualified host)
613 (format (format "%%%s%c"
615 (if (numberp field-result) ?d ?s))
616 (or field-result ""))))
617 (let* ((initial-length (length padded-result))
618 (desired-length (if (string-equal field-width "")
620 (string-to-number field-width))))
621 (if (> initial-length desired-length)
622 ;; truncate strings on right, years on left
623 (if (stringp field-result)
624 (substring padded-result 0 desired-length)
626 (substring padded-result (- desired-length))
627 padded-result)) ;non-year numbers don't truncate
630 (char-to-string cur-char)))))
634 (defun time-stamp-do-number (format-char alt-form field-width time)
635 "Handle compatible FORMAT-CHAR where only default width/padding will change.
636 ALT-FORM is whether `#' specified. FIELD-WIDTH is the string
637 width specification or \"\". TIME is the time to convert."
638 (let ((format-string (concat "%" (char-to-string format-char))))
639 (and (not alt-form) (string-equal field-width "")
640 (time-stamp-conv-warn format-string
641 (format "%%:%c" format-char)))
642 (if (and alt-form (not (string-equal field-width "")))
643 "" ;discourage "%:2d" and the like
644 (string-to-number (format-time-string format-string time)))))
646 (defvar time-stamp-conversion-warn t
647 "Warn about soon-to-be-unsupported forms in `time-stamp-format'.
648 If nil, these warnings are disabled, which would be a bad idea!
649 You really need to update your files instead.
651 The new formats will work with old versions of Emacs.
652 New formats are being recommended now to allow `time-stamp-format'
653 to change in the future to be compatible with `format-time-string'.
654 The new forms being recommended now will continue to work then.")
657 (defun time-stamp-conv-warn (old-form new-form)
658 "Display a warning about a soon-to-be-obsolete format.
659 Suggests replacing OLD-FORM with NEW-FORM."
661 (time-stamp-conversion-warn
662 (with-current-buffer (get-buffer-create "*Time-stamp-compatibility*")
663 (goto-char (point-max))
667 "The formats recognized in time-stamp-format will change in a future release\n"
668 "to be compatible with the new, expanded format-time-string function.\n\n"
669 "The following obsolescent time-stamp-format construct(s) were found:\n\n")))
670 (insert "\"" old-form "\" -- use " new-form "\n"))
671 (display-buffer "*Time-stamp-compatibility*"))))
675 (defun time-stamp-mail-host-name ()
676 "Return the name of the host where the user receives mail.
677 This is the value of `mail-host-address' if bound and a string,
678 otherwise the value of the function `system-name'."
679 (or (and (boundp 'mail-host-address)
680 (stringp mail-host-address)
684 ;;; the rest of this file is for version 1 compatibility
686 (defun time-stamp-fconcat (list sep)
687 "Similar to (mapconcat 'funcall LIST SEP) but LIST allows literals.
688 If an element of LIST is a symbol, it is funcalled to get the string to use;
689 the separator SEP is used between two strings obtained by funcalling a
690 symbol. Otherwise the element itself is inserted; no separator is used
692 (let ((return-string "")
695 (cond ((symbolp (car list))
697 (setq return-string (concat return-string sep)))
698 (setq return-string (concat return-string (funcall (car list))))
699 (setq insert-sep-p t))
701 (setq return-string (concat return-string (car list)))
702 (setq insert-sep-p nil)))
703 (setq list (cdr list)))
706 (provide 'time-stamp)
708 ;;; time-stamp.el ends here