[Emacs-diffs] Changes to emacs/lisp/time-stamp.el

From:

Stephen Gildea

Subject:

[Emacs-diffs] Changes to emacs/lisp/time-stamp.el

Date:

Sun, 11 Sep 2005 21:05:57 -0400

Index: emacs/lisp/time-stamp.el
diff -c emacs/lisp/time-stamp.el:1.59 emacs/lisp/time-stamp.el:1.60
*** emacs/lisp/time-stamp.el:1.59 Sat Aug 6 22:13:43 2005
--- emacs/lisp/time-stamp.el Mon Sep 12 01:05:55 2005
***************
*** 5,11 ****
;; This file is part of GNU Emacs.
! ;; Maintainer's Time-stamp: <2004-06-13 19:04:36 teirllm>
;; Maintainer: Stephen Gildea <address@hidden>
;; Keywords: tools
--- 5,11 ----
;; This file is part of GNU Emacs.
! ;; Maintainer's Time-stamp: <2004-09-25 20:55:35 gildea>
;; Maintainer: Stephen Gildea <address@hidden>
;; Keywords: tools
***************
*** 143,162 ****
file to be time-stamped by \\[time-stamp]. A value of 0 searches the
entire buffer (use with care).
! Do not change `time-stamp-line-limit', `time-stamp-start', or
! `time-stamp-end' for yourself or you will be incompatible
! with other people's files! If you must change them for some application,
! do so in the local variables section of the time-stamped file itself.")
(defvar time-stamp-start "Time-stamp:[ \t]+\\\\?[\"<]+" ;Do not change!
"Regexp after which the time stamp is written by \\[time-stamp].
See also the variables `time-stamp-end' and `time-stamp-line-limit'.
! Do not change `time-stamp-line-limit', `time-stamp-start', or
! `time-stamp-end' for yourself or you will be incompatible
! with other people's files! If you must change them for some application,
! do so in the local variables section of the time-stamped file itself.")
(defvar time-stamp-end "\\\\?[\">]" ;Do not change!
--- 143,168 ----
file to be time-stamped by \\[time-stamp]. A value of 0 searches the
entire buffer (use with care).
! This value can also be set with the variable `time-stamp-pattern'.
!
! Do not change `time-stamp-line-limit', `time-stamp-start',
! `time-stamp-end', or `time-stamp-pattern' for yourself or you will be
! incompatible with other people's files! If you must change them for some
! application, do so in the local variables section of the time-stamped file
! itself.")
(defvar time-stamp-start "Time-stamp:[ \t]+\\\\?[\"<]+" ;Do not change!
"Regexp after which the time stamp is written by \\[time-stamp].
See also the variables `time-stamp-end' and `time-stamp-line-limit'.
! This value can also be set with the variable `time-stamp-pattern'.
!
! Do not change `time-stamp-line-limit', `time-stamp-start',
! `time-stamp-end', or `time-stamp-pattern' for yourself or you will be
! incompatible with other people's files! If you must change them for some
! application, do so in the local variables section of the time-stamped file
! itself.")
(defvar time-stamp-end "\\\\?[\">]" ;Do not change!
***************
*** 165,177 ****
and the following match of `time-stamp-end', then writes the
time stamp specified by `time-stamp-format' between them.
The end text normally starts on the same line as the start text ends,
but if there are any newlines in `time-stamp-format', the same number
of newlines must separate the start and end. \\[time-stamp] tries
to not change the number of lines in the buffer. `time-stamp-inserts-lines'
controls this behavior.
! Do not change `time-stamp-line-limit', `time-stamp-start', `time-stamp-end',
or `time-stamp-inserts-lines' for yourself or you will be incompatible
with other people's files! If you must change them for some application,
do so in the local variables section of the time-stamped file itself.")
--- 171,185 ----
and the following match of `time-stamp-end', then writes the
time stamp specified by `time-stamp-format' between them.
+ This value can also be set with the variable `time-stamp-pattern'.
+
The end text normally starts on the same line as the start text ends,
but if there are any newlines in `time-stamp-format', the same number
of newlines must separate the start and end. \\[time-stamp] tries
to not change the number of lines in the buffer. `time-stamp-inserts-lines'
controls this behavior.
! Do not change `time-stamp-start', `time-stamp-end', `time-stamp-pattern',
or `time-stamp-inserts-lines' for yourself or you will be incompatible
with other people's files! If you must change them for some application,
do so in the local variables section of the time-stamped file itself.")
***************
*** 231,239 ****
\"@set Time-stamp: %:b %:d, %:y$\"
\"newcommand{\\\\\\\\timestamp}{%%}\"
! Do not change `time-stamp-pattern' for yourself or you will be incompatible
! with other people's files! Set it only in the local variables section
! of the time-stamped file itself.")
--- 239,249 ----
\"@set Time-stamp: %:b %:d, %:y$\"
\"newcommand{\\\\\\\\timestamp}{%%}\"
! Do not change `time-stamp-pattern' `time-stamp-line-limit',
! `time-stamp-start', or `time-stamp-end' for yourself or you will be
! incompatible with other people's files! If you must change them for
! some application, do so only in the local variables section of the
! time-stamped file itself.")
***************
*** 251,260 ****
The time stamp is written between the brackets or quotes:
Time-stamp: <2001-02-18 10:20:51 gildea>
The time stamp is updated only if the variable `time-stamp-active' is non-nil.
! The format of the time stamp is set by the variable `time-stamp-format'.
! The variables `time-stamp-line-limit', `time-stamp-start', `time-stamp-end',
! `time-stamp-count', and `time-stamp-inserts-lines' control finding the
! template."
(interactive)
(let ((line-limit time-stamp-line-limit)
(ts-start time-stamp-start)
--- 261,271 ----
The time stamp is written between the brackets or quotes:
Time-stamp: <2001-02-18 10:20:51 gildea>
The time stamp is updated only if the variable `time-stamp-active' is non-nil.
! The format of the time stamp is set by the variable `time-stamp-pattern' or
! `time-stamp-format'. The variables `time-stamp-pattern',
! `time-stamp-line-limit', `time-stamp-start', `time-stamp-end',
! `time-stamp-count', and `time-stamp-inserts-lines' control finding
! the template."
(interactive)
(let ((line-limit time-stamp-line-limit)
(ts-start time-stamp-start)
***************
*** 588,593 ****
--- 599,611 ----
(user-full-name))
((eq cur-char ?h) ;mail host name
(time-stamp-mail-host-name))
+ ((eq cur-char ?q) ;(undocumented unqual hostname)
+ (let ((qualname (system-name)))
+ (if (string-match "\\." qualname)
+ (substring qualname 0 (match-beginning 0))
+ qualname)))
+ ((eq cur-char ?Q) ;(undocumented fully-qualified host)
+ (system-name))
))
(let ((padded-result
(format (format "%%%s%c"