Bug in timer.el
OS version:Microsoft Windows 2000 [Version 5.00.2195]
OS: Windows_NT
XEmacs 21.4.5 \"Civil Service (Windows)\" configured for `i586-pc-win32'.
I'm quite sure there is a bug in timer.el. It says there:
(defun cancel-function-timers (function)
"Cancel all timers scheduled by `run-at-time' which would run FUNCTION."
(interactive "aCancel timers of function: ")
(let ((p itimer-list))
(while p
(if (eq function (itimer-function p))
(progn
(setq p (cdr p))
(delete-itimer (car p)))
(setq p (cdr p))))))
But you see that p is a list of lists, so it all doesn't work.
The fix is most simple:
Instead of (if (eq function (itimer-function p))
it has to be (if (eq function (itimer-function (car p)))
P.S. I found this one while porting the last version of cua.el
to xemacs. When (if?) it runs, where should I send the file too?
P.P.S. Please CC me when replying, I'm not subsribed to the list.
--
One Ring to rule them all, One Ring to find them,
One Ring to bring them all and in the darkness bind them
In the Land of Mordor where the Shadows lie.
19. Dezember 2001