X-Git-Url: http://git.hcoop.net/bpt/emacs.git/blobdiff_plain/db0406bb64f7e5dceeb257c7e350f1e80ed9c1c1..b9d484082c664276a90586ffa44458edc49812f3:/lisp/time-stamp.el diff --git a/lisp/time-stamp.el b/lisp/time-stamp.el index 5934058399..99d185690d 100644 --- a/lisp/time-stamp.el +++ b/lisp/time-stamp.el @@ -1,7 +1,7 @@ ;;; time-stamp.el --- Maintain last change time stamps in files edited by Emacs -;; Copyright (C) 1989, 1993-1995, 1997, 2000-2011 -;; Free Software Foundation, Inc. +;; Copyright (C) 1989, 1993-1995, 1997, 2000-2014 Free Software +;; Foundation, Inc. ;; This file is part of GNU Emacs. @@ -29,7 +29,7 @@ ;; static char *ts = "sdmain.c Time-stamp: <2001-08-13 10:20:51 gildea>"; ;; See the top of `time-stamp.el' for another example. -;; To use time-stamping, add this line to your .emacs file: +;; To use time-stamping, add this line to your init file: ;; (add-hook 'before-save-hook 'time-stamp) ;; Now any time-stamp templates in your files will be updated automatically. @@ -254,7 +254,7 @@ time-stamped file itself.") (defun time-stamp () "Update the time stamp string(s) in the buffer. A template in a file can be automatically updated with a new time stamp -every time you save the file. Add this line to your .emacs file: +every time you save the file. Add this line to your init file: (add-hook 'before-save-hook 'time-stamp) or customize `before-save-hook' through Custom. Normally the template must appear in the first 8 lines of a file and @@ -424,10 +424,10 @@ format the string." (let ((ts-real-time-zone (getenv "TZ"))) (unwind-protect (progn - (set-time-zone-rule time-stamp-time-zone) + (setenv "TZ" time-stamp-time-zone) (format-time-string (time-stamp-string-preprocess ts-format))) - (set-time-zone-rule ts-real-time-zone))) + (setenv "TZ" ts-real-time-zone))) (format-time-string (time-stamp-string-preprocess ts-format))) ;; handle version 1 compatibility