summaryrefslogtreecommitdiff
path: root/lisp/time-stamp.el
diff options
context:
space:
mode:
authorMiles Bader <miles@gnu.org>2006-12-07 04:14:14 +0000
committerMiles Bader <miles@gnu.org>2006-12-07 04:14:14 +0000
commita0451a715e4ed018a02b825d0eb823424693d1de (patch)
treed2b10fcc69c333ccc438d7a9ad116fbc1495fc9e /lisp/time-stamp.el
parentd324f894beea8b485792c779659e8e20c1cb699d (diff)
parent12f7728e938fe5bb850ce2928637d1e349919142 (diff)
downloademacs-a0451a715e4ed018a02b825d0eb823424693d1de.tar.gz
Merge from emacs--devo--0
Patches applied: * emacs--devo--0 (patch 523-544) - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 168-171) - Update from CVS - Merge from emacs--devo--0 Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-150
Diffstat (limited to 'lisp/time-stamp.el')
-rw-r--r--lisp/time-stamp.el25
1 files changed, 9 insertions, 16 deletions
diff --git a/lisp/time-stamp.el b/lisp/time-stamp.el
index 4a14a0197e8..770a86834c8 100644
--- a/lisp/time-stamp.el
+++ b/lisp/time-stamp.el
@@ -491,7 +491,7 @@ and all `time-stamp-format' compatibility."
(or (eq ?. cur-char)
(eq ?, cur-char) (eq ?: cur-char) (eq ?@ cur-char)
(eq ?- cur-char) (eq ?+ cur-char) (eq ?_ cur-char)
- (eq ?\ cur-char) (eq ?# cur-char) (eq ?^ cur-char)
+ (eq ?\s cur-char) (eq ?# cur-char) (eq ?^ cur-char)
(and (eq ?\( cur-char)
(not (eq prev-char ?\\))
(setq paren-level (1+ paren-level)))
@@ -712,21 +712,14 @@ around literals."
;;; These functions have been obsolete since 1995
;;; and will be removed in Emacs 23.
;;; 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