[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/time-stamp.el,v
From: |
Juanma Barranquero |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/time-stamp.el,v |
Date: |
Mon, 27 Nov 2006 14:32:52 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Juanma Barranquero <lektu> 06/11/27 14:32:51
Index: time-stamp.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/time-stamp.el,v
retrieving revision 1.64
retrieving revision 1.65
diff -u -b -r1.64 -r1.65
--- time-stamp.el 27 Nov 2006 14:11:40 -0000 1.64
+++ time-stamp.el 27 Nov 2006 14:32:51 -0000 1.65
@@ -710,23 +710,16 @@
;;; Some functions used in time-stamp-format
;;; These functions have been obsolete since 1995
-;;; and will be removed in Emacs 22.
+;;; and will be removed in a future Emacs release.
;;; Meanwhile, discourage other packages from using them.
-(let ((obsolete-functions '(time-stamp-month-dd-yyyy
- time-stamp-dd/mm/yyyy
- time-stamp-mon-dd-yyyy
- time-stamp-dd-mon-yy
- time-stamp-yy/mm/dd
- time-stamp-yyyy/mm/dd
- time-stamp-yyyy-mm-dd
- time-stamp-yymmdd
- time-stamp-hh:mm:ss
- time-stamp-hhmm)))
- (while obsolete-functions
- (make-obsolete (car obsolete-functions)
- "use time-stamp-string or format-time-string instead."
- "20.1")
- (setq obsolete-functions (cdr obsolete-functions))))
+(dolist (function '(time-stamp-month-dd-yyyy time-stamp-dd/mm/yyyy
+ time-stamp-mon-dd-yyyy time-stamp-dd-mon-yy
+ time-stamp-yy/mm/dd time-stamp-yyyy/mm/dd
+ time-stamp-yyyy-mm-dd time-stamp-yymmdd
+ time-stamp-hh:mm:ss time-stamp-hhmm))
+ (make-obsolete function
+ "use `time-stamp-string' or `format-time-string' instead."
+ "20.1"))
;;; pretty form, suitable for a title page
- [Emacs-diffs] Changes to emacs/lisp/time-stamp.el,v,
Juanma Barranquero <=