From: yamaoka <yamaoka>
Date: Wed, 23 Feb 2005 08:28:51 +0000 (+0000)
Subject: * poe-xemacs.el (run-at-time): Attempt to load `timer-funcs' before `timer'.
X-Git-Tag: apel-10_7~22
X-Git-Url: http://git.chise.org/gitweb/?p=elisp%2Fapel.git;a=commitdiff_plain;h=71f75a437161a0b2c7ab66641f05162bb59a68b8

* poe-xemacs.el (run-at-time): Attempt to load `timer-funcs' before `timer'.
---

diff --git a/ChangeLog b/ChangeLog
index d3b6d3e..a2ba643 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2005-02-23  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* poe-xemacs.el (run-at-time): Attempt to load `timer-funcs'
+	before `timer'.
+
 2004-09-27  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* README.en, README.ja (CVS): Remove the description about
diff --git a/poe-xemacs.el b/poe-xemacs.el
index 8915103..5824235 100644
--- a/poe-xemacs.el
+++ b/poe-xemacs.el
@@ -81,9 +81,14 @@ When called interactively, prompt for the name of the color to use."
 ;;; @ timer
 ;;;
 
-(condition-case nil
-    (require 'timer)
-  (error
+(or
+ (condition-case nil
+     (require 'timer-funcs)
+   (error nil))
+ (condition-case nil
+     (require 'timer)
+   (error nil))
+ (progn
    (require 'itimer)
    (if (and (= emacs-major-version 19) (<= emacs-minor-version 14))
        (defun-maybe run-at-time (time repeat function &rest args)