/[emacs]/emacs/lisp/url/url-util.el
ViewVC logotype

Diff of /emacs/lisp/url/url-util.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4.2.2 by miles, Thu Oct 14 08:49:52 2004 UTC revision 1.4.2.3 by miles, Fri Oct 22 10:13:34 2004 UTC
# Line 192  Will not do anything if `url-show-status Line 192  Will not do anything if `url-show-status
192                                                  (nth 1 (current-time-zone))                                                  (nth 1 (current-time-zone))
193                                                  "GMT"))                                                  "GMT"))
194           (parsed (timezone-parse-date gmt))           (parsed (timezone-parse-date gmt))
195           (day (cdr-safe (assoc (substring raw 0 3) weekday-alist)))           (day (cdr-safe (assoc (substring raw 0 3) url-weekday-alist)))
196           (year nil)           (year nil)
197           (month (car           (month (car
198                   (rassoc                   (rassoc
199                    (string-to-int (aref parsed 1)) monthabbrev-alist)))                    (string-to-int (aref parsed 1)) url-monthabbrev-alist)))
200           )           )
201      (setq day (or (car-safe (rassoc day weekday-alist))      (setq day (or (car-safe (rassoc day url-weekday-alist))
202                    (substring raw 0 3))                    (substring raw 0 3))
203            year (aref parsed 0))            year (aref parsed 0))
204      ;; 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

Legend:
Removed from v.1.4.2.2  
changed lines
  Added in v.1.4.2.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26