mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases 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
Show Stats 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))
"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