Mercurial > emacs
comparison lisp/time-stamp.el @ 9016:160a90eaa7d8
(time-stamp-mail-host-name): Use mail-host-address.
(time-stamp-mail-host): Variable deleted.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 23 Sep 1994 05:44:28 +0000 |
| parents | 4fd40bd394fe |
| children | b12a8765508b |
comparison
equal
deleted
inserted
replaced
| 9015:1452c72d18db | 9016:160a90eaa7d8 |
|---|---|
| 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, 1994 Free Software Foundation, Inc. | 2 ;;; Copyright 1989, 1993, 1994 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: <94/02/14 15:02:07 gildea> | 5 ;; Time-stamp: <94/09/22 15:34:12 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) |
| 173 | 173 |
| 174 (defconst time-stamp-month-full-names | 174 (defconst time-stamp-month-full-names |
| 175 ["(zero)" "January" "February" "March" "April" "May" "June" | 175 ["(zero)" "January" "February" "March" "April" "May" "June" |
| 176 "July" "August" "September" "October" "November" "December"]) | 176 "July" "August" "September" "October" "November" "December"]) |
| 177 | 177 |
| 178 (defvar time-stamp-mail-host nil | |
| 179 "*Name of the host where the user receives mail. | |
| 180 See the function `time-stamp-mail-host-name'.") | |
| 181 | |
| 182 ;;; Some useful functions to use in time-stamp-format | 178 ;;; Some useful functions to use in time-stamp-format |
| 183 | 179 |
| 184 ;;; Could generate most of a message-id with | 180 ;;; Could generate most of a message-id with |
| 185 ;;; '(time-stamp-yymmdd "" time-stamp-hhmm "@" time-stamp-mail-host-name) | 181 ;;; '(time-stamp-yymmdd "" time-stamp-hhmm "@" time-stamp-mail-host-name) |
| 186 | 182 |
| 187 (defun time-stamp-mail-host-name () | 183 (defun time-stamp-mail-host-name () |
| 188 "Return the name of the host where the user receives mail. | 184 "Return the name of the host where the user receives mail. |
| 189 This is the value of `time-stamp-mail-host' if bound and a string, | 185 This is the value of `mail-host-address' if bound and a string, |
| 190 otherwise the value of the function system-name. | 186 otherwise the value of `time-stamp-mail-host' (for versions of Emacs |
| 187 before 19.28) otherwise the value of the function system-name. | |
| 191 This function may be usefully referenced by `time-stamp-format'." | 188 This function may be usefully referenced by `time-stamp-format'." |
| 192 (or (and (boundp 'time-stamp-mail-host) | 189 (or (and (boundp 'mail-host-address) |
| 190 (stringp mail-host-address) | |
| 191 mail-host-address) | |
| 192 (and (boundp 'time-stamp-mail-host) | |
| 193 (stringp time-stamp-mail-host) | 193 (stringp time-stamp-mail-host) |
| 194 time-stamp-mail-host) | 194 time-stamp-mail-host) |
| 195 (system-name))) | 195 (system-name))) |
| 196 | 196 |
| 197 ;;; pretty form, suitable for a title page | 197 ;;; pretty form, suitable for a title page |
| 275 (substring date 14 16)))) | 275 (substring date 14 16)))) |
| 276 | 276 |
| 277 (provide 'time-stamp) | 277 (provide 'time-stamp) |
| 278 | 278 |
| 279 ;;; time-stamp.el ends here | 279 ;;; time-stamp.el ends here |
| 280 |