Mercurial > emacs
changeset 57513:6052b6df37c1
(url-get-normalized-date): Use url-weekday-alist and url-monthabbrev-alist.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sat, 16 Oct 2004 14:59:45 +0000 |
parents | 44bc5df842b7 |
children | c386726e02a5 |
files | lisp/url/url-util.el |
diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/url/url-util.el Sat Oct 16 14:58:38 2004 +0000 +++ b/lisp/url/url-util.el Sat Oct 16 14:59:45 2004 +0000 @@ -192,13 +192,13 @@ (nth 1 (current-time-zone)) "GMT")) (parsed (timezone-parse-date gmt)) - (day (cdr-safe (assoc (substring raw 0 3) weekday-alist))) + (day (cdr-safe (assoc (substring raw 0 3) url-weekday-alist))) (year nil) (month (car (rassoc - (string-to-int (aref parsed 1)) monthabbrev-alist))) + (string-to-int (aref parsed 1)) url-monthabbrev-alist))) ) - (setq day (or (car-safe (rassoc day weekday-alist)) + (setq day (or (car-safe (rassoc day url-weekday-alist)) (substring raw 0 3)) year (aref parsed 0)) ;; This is needed for plexus servers, or the server will hang trying to