Mercurial > emacs
comparison lisp/time-stamp.el @ 5072:16da133809dd
Comment changes.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sat, 20 Nov 1993 00:42:55 +0000 |
parents | 771786f5d8c2 |
children | 6811f9d90b62 |
comparison
equal
deleted
inserted
replaced
5071:84ee155fb9c4 | 5072:16da133809dd |
---|---|
1 ;;; time-stamp.el --- Maintain last change time stamps in files edited by Emacs | 1 ;;; time-stamp.el --- Maintain last change time stamps in files edited by Emacs |
2 ;;; Copyright 1989, 1993 Free Software Foundation, Inc. | 2 ;;; Copyright 1989, 1993 Free Software Foundation, Inc. |
3 | 3 |
4 ;; Maintainer: Stephen Gildea <gildea@lcs.mit.edu> | 4 ;; Maintainer: Stephen Gildea <gildea@lcs.mit.edu> |
5 ;; Time-stamp: <93/06/20 17:36:04 gildea> | 5 ;; Time-stamp: <93/09/24 16:02:25 gildea> |
6 ;; Keywords: tools | 6 ;; Keywords: tools |
7 | 7 |
8 ;; This file is free software; you can redistribute it and/or modify | 8 ;; This file is free software; you can redistribute it and/or modify |
9 ;; it under the terms of the GNU General Public License as published by | 9 ;; it under the terms of the GNU General Public License as published by |
10 ;; the Free Software Foundation; either version 2, or (at your option) | 10 ;; the Free Software Foundation; either version 2, or (at your option) |
31 ;;; Here is an example which puts the file name and time stamp in the binary: | 31 ;;; Here is an example which puts the file name and time stamp in the binary: |
32 ;;; static char *time_stamp = "sdmain.c Time-stamp: <>"; | 32 ;;; static char *time_stamp = "sdmain.c Time-stamp: <>"; |
33 | 33 |
34 ;;; To activate automatic time stamping, add this code to your .emacs file: | 34 ;;; To activate automatic time stamping, add this code to your .emacs file: |
35 ;;; | 35 ;;; |
36 ;;; (autoload 'time-stamp "time-stamp" "Update the time stamp in a buffer." t) | |
37 ;;; (if (not (memq 'time-stamp write-file-hooks)) | 36 ;;; (if (not (memq 'time-stamp write-file-hooks)) |
38 ;;; (setq write-file-hooks | 37 ;;; (setq write-file-hooks |
39 ;;; (cons 'time-stamp write-file-hooks))) | 38 ;;; (cons 'time-stamp write-file-hooks))) |
39 ;;; | |
40 ;;; In Emacs 18 you will also need | |
41 ;;; (autoload 'time-stamp "time-stamp" "Update the time stamp in a buffer." t) | |
40 | 42 |
41 ;;; Change Log: | 43 ;;; Change Log: |
42 | 44 |
43 ;;; Originally based on the 19 Dec 88 version of | 45 ;;; Originally based on the 19 Dec 88 version of |
44 ;;; date.el by John Sturdy <mcvax!harlqn.co.uk!jcgs@uunet.uu.net> | 46 ;;; date.el by John Sturdy <mcvax!harlqn.co.uk!jcgs@uunet.uu.net> |
160 See the function time-stamp-mail-host-name.") | 162 See the function time-stamp-mail-host-name.") |
161 | 163 |
162 ;;; Some useful functions to use in time-stamp-format | 164 ;;; Some useful functions to use in time-stamp-format |
163 | 165 |
164 ;;; Could generate most of a message-id with | 166 ;;; Could generate most of a message-id with |
165 ;;; '(yymmdd "" hhmm "@" mail-host-name) | 167 ;;; '(time-stamp-yymmdd "" time-stamp-hhmm "@" mail-host-name) |
166 | 168 |
167 (defun time-stamp-mail-host-name () | 169 (defun time-stamp-mail-host-name () |
168 "Return the name of the host where the user receives mail. | 170 "Return the name of the host where the user receives mail. |
169 This is the value of time-stamp-mail-host if bound and a string, | 171 This is the value of time-stamp-mail-host if bound and a string, |
170 otherwise the value of the function system-name." | 172 otherwise the value of the function system-name." |
268 (substring date 14 16)))) | 270 (substring date 14 16)))) |
269 | 271 |
270 (provide 'time-stamp) | 272 (provide 'time-stamp) |
271 | 273 |
272 ;;; time-stamp.el ends here | 274 ;;; time-stamp.el ends here |
275 | |
276 |