From: yamaoka <yamaoka>
Date: Thu, 11 Dec 2003 05:11:03 +0000 (+0000)
Subject: Fix last commit.
X-Git-Tag: apel-10_7~32
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=7ac33fd4acbdd20e941426c25ee6ab4e086a9211;p=elisp%2Fapel.git

Fix last commit.
---

diff --git a/poe-xemacs.el b/poe-xemacs.el
index 89d3064..e22a299 100644
--- a/poe-xemacs.el
+++ b/poe-xemacs.el
@@ -147,13 +147,15 @@ Note that it allows neither a string nor a time in the Emacs style
 		    (set-itimer-function
 		     itimer
 		     (lambda (itimer function &rest args)
+		       (set-itimer-restart itimer nil)
 		       (delete-itimer itimer)
 		       (apply function args)))
 		    (set-itimer-function-arguments
 		     itimer
 		     (append (list itimer function) args)))))
 	      1e-9 (if time (max time 1e-9) 1e-9)
-	      nil t itimers repeat function args)))))
+	      nil t itimers repeat function args))
+      (setq ad-return-value (car itimers)))))
 
 
 ;;; @ to avoid bug of XEmacs 19.14