CVS update by daiki packages/xemacs-packages/xemacs-base, ChangeLog ...
User: daiki
Date: 06/08/08 05:33:01
Modified: packages/xemacs-packages/xemacs-base timer-funcs.el
ChangeLog
Log:
* timer-funcs.el (with-timeout): Return the result of
TIMEOUT-FORMS if the timeout expires.
Revision Changes Path
1.3 +2 -2 XEmacs/packages/xemacs-packages/xemacs-base/timer-funcs.el
Index: timer-funcs.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/xemacs-base/timer-funcs.el,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -p -r1.2 -r1.3
--- timer-funcs.el 2005/10/11 11:21:41 1.2
+++ timer-funcs.el 2006/08/08 03:33:01 1.3
＠＠ -182,14 +182,14 ＠＠ be detected."
`(let ((with-timeout-tag (cons nil nil))
with-timeout-value with-timeout-timer)
(unwind-protect
- (when (catch with-timeout-tag
+ (if (catch with-timeout-tag
(progn
(setq with-timeout-timer
(start-itimer "with-timeout" #'with-timeout-handler
,seconds nil nil t with-timeout-tag))
(setq with-timeout-value (progn ,＠body))
nil))
- ,＠timeout-forms
+ ,＠timeout-forms
with-timeout-value)
(delete-itimer with-timeout-timer)))))
1.191 +5 -0 XEmacs/packages/xemacs-packages/xemacs-base/ChangeLog
Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/xemacs-base/ChangeLog,v
retrieving revision 1.190
retrieving revision 1.191
diff -u -p -r1.190 -r1.191
--- ChangeLog 2006/07/31 17:08:44 1.190
+++ ChangeLog 2006/08/08 03:33:01 1.191
＠＠ -1,3 +1,8 ＠＠
+2006-07-25 Daiki Ueno <ueno(a)unixuser.org>
+
+ * timer-funcs.el (with-timeout): Return the result of
+ TIMEOUT-FORMS if the timeout expires.
+
2006-07-25 Jerry James <james(a)xemacs.org>
* comint.el (comint-inhibit-carriage-motion): default to t to