mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-03 18:41:25 -08:00
Code Issues Projects Releases Wiki Activity

(url-get-normalized-date): Use url-weekday-alist and url-monthabbrev-alist.

Browse source
This commit is contained in:
Richard M. Stallman 2004-10-16 14:59:45 +00:00
parent 5d1f2b4f63
commit f5d4d25939
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/url/url-util.el
View file

@ -192,13 +192,13 @@ Will not do anything if `url-show-status' is nil."
(nth 1 (current-time-zone)) (nth 1 (current-time-zone))
"GMT")) "GMT"))
(parsed (timezone-parse-date 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) (year nil)
(month (car (month (car
(rassoc (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)) (substring raw 0 3))
year (aref parsed 0)) year (aref parsed 0))
;; This is needed for plexus servers, or the server will hang trying to ;; This is needed for plexus servers, or the server will hang trying to