Use defalias at the top level

[gnus] / lisp / time-date.el

diff --git a/lisp/time-date.el b/lisp/time-date.el
index a9c30f4..c13ef97 100644 (file)
--- a/lisp/time-date.el
+++ b/lisp/time-date.el
@@ -1,6 +1,6 @@
 ;;; time-date.el --- Date and time handling functions
 
-;; Copyright (C) 1998-2014 Free Software Foundation, Inc.
+;; Copyright (C) 1998-2015 Free Software Foundation, Inc.
 
 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
 ;;     Masanobu Umeda <umerin@mse.kyutech.ac.jp>
@@ -215,7 +215,7 @@ TIME should be either a time value or a date-time string."
 ;;;###autoload(autoload 'time-subtract "time-date")
 ;;;###autoload(autoload 'time-less-p "time-date")
 
-(eval-when-compile
+(eval-and-compile
   (when (not (and (fboundp 'time-add) (subrp (symbol-function 'time-add))))
 
     (defun time-add (t1 t2)
@@ -377,9 +377,9 @@ This function does not work for SECONDS greater than `most-positive-fixnum'."
             spec (match-string 1 string))
       (unless (string-equal spec "%")
         (or (setq match (assoc (downcase spec) units))
-            (error "Bad format specifier: `%s'" spec))
+            (error "Bad format specifier: ‘%s’" spec))
         (if (assoc (downcase spec) usedunits)
-            (error "Multiple instances of specifier: `%s'" spec))
+            (error "Multiple instances of specifier: ‘%s’" spec))
         (if (string-equal (car match) "z")
             (setq zeroflag t)
           (unless larger