From: Lars Magne Ingebrigtsen Date: Thu, 17 Mar 2011 18:47:17 +0000 (+0100) Subject: (format-seconds): Use assoc instead of assoc-string, since assoc-string doesn't exist... X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=1225a5c2546cffaab4efae846b48cee5a5203852 (format-seconds): Use assoc instead of assoc-string, since assoc-string doesn't exist in XEmacs. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e4463ba2c..a3e0f6dda 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2011-03-17 Lars Magne Ingebrigtsen + + * time-date.el (format-seconds): Use assoc instead of assoc-string, + since assoc-string doesn't exist in XEmacs. + 2011-03-17 Antoine Levitt * gnus-group.el (gnus-group-list-ticked): New function. diff --git a/lisp/time-date.el b/lisp/time-date.el index a1bfad3a5..3e595341e 100644 --- a/lisp/time-date.el +++ b/lisp/time-date.el @@ -308,11 +308,7 @@ This function does not work for SECONDS greater than `most-positive-fixnum'." (setq start (match-end 0) spec (match-string 1 string)) (unless (string-equal spec "%") - ;; `assoc-string' is not available in XEmacs. So when compiling - ;; Gnus (`time-date.el' is part of Gnus) with XEmacs, we get - ;; a warning here. But `format-seconds' is not used anywhere in - ;; Gnus so it's not a real problem. --rsteib - (or (setq match (assoc-string spec units t)) + (or (setq match (assoc (downcase spec) units)) (error "Bad format specifier: `%s'" spec)) (if (assoc-string spec usedunits t) (error "Multiple instances of specifier: `%s'" spec))