[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/url/url-util.el
From: |
Richard M . Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/url/url-util.el |
Date: |
Sat, 16 Oct 2004 11:14:11 -0400 |
Index: emacs/lisp/url/url-util.el
diff -c emacs/lisp/url/url-util.el:1.6 emacs/lisp/url/url-util.el:1.7
*** emacs/lisp/url/url-util.el:1.6 Sun Oct 10 20:39:37 2004
--- emacs/lisp/url/url-util.el Sat Oct 16 14:59:45 2004
***************
*** 192,204 ****
(nth 1 (current-time-zone))
"GMT"))
(parsed (timezone-parse-date gmt))
! (day (cdr-safe (assoc (substring raw 0 3) weekday-alist)))
(year nil)
(month (car
(rassoc
! (string-to-int (aref parsed 1)) monthabbrev-alist)))
)
! (setq day (or (car-safe (rassoc day weekday-alist))
(substring raw 0 3))
year (aref parsed 0))
;; This is needed for plexus servers, or the server will hang trying to
--- 192,204 ----
(nth 1 (current-time-zone))
"GMT"))
(parsed (timezone-parse-date gmt))
! (day (cdr-safe (assoc (substring raw 0 3) url-weekday-alist)))
(year nil)
(month (car
(rassoc
! (string-to-int (aref parsed 1)) url-monthabbrev-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