From c1a861ac015183213422f19903d1c347ac7b9a05 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Wed, 26 Jan 2011 16:30:28 -0800 Subject: [PATCH] (float-time): If float-time is bound, always use it on all Emacsen. It's unclear why the subrp check was there. If it turns out to be necessary, this patch should be reverted, and a comment saying why it't that way should be added. --- lisp/ChangeLog | 3 +++ lisp/gnus-util.el | 4 +--- 2 files changed, 4 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e0c5a60a2..d3ef27b2a 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2011-01-27 Lars Ingebrigtsen + * gnus-util.el (float-time): If float-time is bound, always use it on + all Emacsen. It's unclear why the subrp check was there. + * shr.el (shr-put-color): Don't do the box padding in tables, since they're already padded. diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el index fc3c0b4a6..ef99bcc82 100644 --- a/lisp/gnus-util.el +++ b/lisp/gnus-util.el @@ -332,9 +332,7 @@ Symbols are also allowed; their print names are used instead." (> (nth 1 fdate) (nth 1 date)))))) (eval-and-compile - (if (or (featurep 'emacs) - (and (fboundp 'float-time) - (subrp (symbol-function 'float-time)))) + (if (fboundp 'float-time) (defalias 'gnus-float-time 'float-time) (defun gnus-float-time (&optional time) "Convert time value TIME to a floating point number. -- 2.25.1