Mercurial > emacs
comparison lisp/time-stamp.el @ 16714:634b34517d56
(time-stamp-mail-host-name): Get rid of time-stamp-mail-host.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 18 Dec 1996 02:45:09 +0000 |
| parents | 450cb7cbf895 |
| children | 368547942e03 |
comparison
equal
deleted
inserted
replaced
| 16713:490b479ce48a | 16714:634b34517d56 |
|---|---|
| 38 ;;; Change Log: | 38 ;;; Change Log: |
| 39 | 39 |
| 40 ;; Originally based on the 19 Dec 88 version of | 40 ;; Originally based on the 19 Dec 88 version of |
| 41 ;; date.el by John Sturdy <mcvax!harlqn.co.uk!jcgs@uunet.uu.net> | 41 ;; date.el by John Sturdy <mcvax!harlqn.co.uk!jcgs@uunet.uu.net> |
| 42 ;; Version 2, January 1995: replaced functions with %-escapes | 42 ;; Version 2, January 1995: replaced functions with %-escapes |
| 43 ;; $Id: time-stamp.el,v 1.22 1996/12/17 00:14:41 rms Exp rms $ | 43 ;; $Id: time-stamp.el,v 1.23 1996/12/17 00:19:01 rms Exp rms $ |
| 44 | 44 |
| 45 ;;; Code: | 45 ;;; Code: |
| 46 | 46 |
| 47 (defvar time-stamp-active t | 47 (defvar time-stamp-active t |
| 48 "*Non-nil to enable time-stamping of buffers by \\[time-stamp]. | 48 "*Non-nil to enable time-stamping of buffers by \\[time-stamp]. |
| 253 "String to use when the buffer is not associated with a file.") | 253 "String to use when the buffer is not associated with a file.") |
| 254 | 254 |
| 255 (defun time-stamp-mail-host-name () | 255 (defun time-stamp-mail-host-name () |
| 256 "Return the name of the host where the user receives mail. | 256 "Return the name of the host where the user receives mail. |
| 257 This is the value of `mail-host-address' if bound and a string, | 257 This is the value of `mail-host-address' if bound and a string, |
| 258 otherwise the value of `time-stamp-mail-host' (for versions of Emacs | 258 otherwise the value of the function system-name." |
| 259 before 19.29) otherwise the value of the function system-name." | |
| 260 (or (and (boundp 'mail-host-address) | 259 (or (and (boundp 'mail-host-address) |
| 261 (stringp mail-host-address) | 260 (stringp mail-host-address) |
| 262 mail-host-address) | 261 mail-host-address) |
| 263 (and (boundp 'time-stamp-mail-host) ;for backward compatibility | |
| 264 (stringp time-stamp-mail-host) | |
| 265 time-stamp-mail-host) | |
| 266 (system-name))) | 262 (system-name))) |
| 267 | 263 |
| 268 ;;; the rest of this file is for version 1 compatibility | 264 ;;; the rest of this file is for version 1 compatibility |
| 269 | 265 |
| 270 (defun time-stamp-fconcat (list sep) | 266 (defun time-stamp-fconcat (list sep) |