Mercurial > hg > xemacs-beta

comparison lisp/itimer.el @ 440:8de8e3f6228a r21-2-28

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-28
author cvs
date Mon, 13 Aug 2007 11:33:38 +0200
parents a5df635868b2
children abe6d1db359e
comparison
equal deleted inserted replaced
439:357dd071b03c 440:8de8e3f6228a
46 ;; list-itimers 46 ;; list-itimers
47 ;; start-itimer 47 ;; start-itimer
48 ;; 48 ;;
49 ;; See the doc strings of these functions for more information. 49 ;; See the doc strings of these functions for more information.
50 50
51 (defvar itimer-version "1.08" 51 (defvar itimer-version "1.09"
52 "Version number of the itimer package.") 52 "Version number of the itimer package.")
53 53
54 (defvar itimer-list nil 54 (defvar itimer-list nil
55 "List of all active itimers.") 55 "List of all active itimers.")
56 56
671 ;; Quit's are allowed from within itimer functions, but we 671 ;; Quit's are allowed from within itimer functions, but we
672 ;; catch them and print a message. 672 ;; catch them and print a message.
673 (inhibit-quit t)) 673 (inhibit-quit t))
674 (setq next-wakeup 600) 674 (setq next-wakeup 600)
675 (cond ((and (boundp 'last-command-event-time) 675 (cond ((and (boundp 'last-command-event-time)
676 (consp 'last-command-event-time)) 676 (consp last-command-event-time))
677 (setq last-event-time last-command-event-time 677 (setq last-event-time last-command-event-time
678 idle-time (itimer-time-difference (current-time) 678 idle-time (itimer-time-difference (current-time)
679 last-event-time))) 679 last-event-time)))
680 ((and (boundp 'last-input-time) (consp last-input-time)) 680 ((and (boundp 'last-input-time) (consp last-input-time))
681 (setq last-event-time (list (car last-input-time) 681 (setq last-event-time (list (car last-input-time)