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&gt; + + * timer-funcs.el (with-timeout): Return the result of + TIMEOUT-FORMS if the timeout expires. + 2006-07-25 Jerry James <james(a)xemacs.org&gt; * comint.el (comint-inhibit-carriage-motion): default to t to