diff options
| author | Paul Eggert | 2014-11-17 22:44:27 -0800 |
|---|---|---|
| committer | Paul Eggert | 2014-11-17 22:44:51 -0800 |
| commit | b3cb91e07c26a3f83f684d9f7248c4492bf8fcc1 (patch) | |
| tree | 4a365002cb7118cf3a343da0a56e6482c8c159ef | |
| parent | 5c249e2a0470b1bc53d10b5f4cf303922933e280 (diff) | |
| download | emacs-b3cb91e07c26a3f83f684d9f7248c4492bf8fcc1.tar.gz emacs-b3cb91e07c26a3f83f684d9f7248c4492bf8fcc1.zip | |
Port new time stamp handling to Emacs 23.2.
This fix is for Gnus. Problem reported by Katsumi Yamaoka.
* calendar/time-date.el (time-add, time-subtract, time-less-p):
Use eval-and-compile, not eval-when-compile.
| -rw-r--r-- | lisp/ChangeLog | 7 | ||||
| -rw-r--r-- | lisp/calendar/time-date.el | 2 |
2 files changed, 8 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 2670a66a7c7..feb93854eea 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,10 @@ | |||
| 1 | 2014-11-18 Paul Eggert <eggert@cs.ucla.edu> | ||
| 2 | |||
| 3 | Port new time stamp handling to Emacs 23.2. | ||
| 4 | This fix is for Gnus. Problem reported by Katsumi Yamaoka. | ||
| 5 | * calendar/time-date.el (time-add, time-subtract, time-less-p): | ||
| 6 | Use eval-and-compile, not eval-when-compile. | ||
| 7 | |||
| 1 | 2014-11-18 Daiki Ueno <ueno@gnu.org> | 8 | 2014-11-18 Daiki Ueno <ueno@gnu.org> |
| 2 | 9 | ||
| 3 | * epg.el (epg-context-set-passphrase-callback) | 10 | * epg.el (epg-context-set-passphrase-callback) |
diff --git a/lisp/calendar/time-date.el b/lisp/calendar/time-date.el index a9c30f41f6a..e7a8cc7eb25 100644 --- a/lisp/calendar/time-date.el +++ b/lisp/calendar/time-date.el | |||
| @@ -215,7 +215,7 @@ TIME should be either a time value or a date-time string." | |||
| 215 | ;;;###autoload(autoload 'time-subtract "time-date") | 215 | ;;;###autoload(autoload 'time-subtract "time-date") |
| 216 | ;;;###autoload(autoload 'time-less-p "time-date") | 216 | ;;;###autoload(autoload 'time-less-p "time-date") |
| 217 | 217 | ||
| 218 | (eval-when-compile | 218 | (eval-and-compile |
| 219 | (when (not (and (fboundp 'time-add) (subrp (symbol-function 'time-add)))) | 219 | (when (not (and (fboundp 'time-add) (subrp (symbol-function 'time-add)))) |
| 220 | 220 | ||
| 221 | (defun time-add (t1 t2) | 221 | (defun time-add (t1 t2) |