Mercurial > hg > xemacs-beta

comparison lisp/itimer.el @ 442:abe6d1db359e r21-2-36

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-36
author cvs
date Mon, 13 Aug 2007 11:35:02 +0200
parents 8de8e3f6228a
children 576fb035e263
comparison
equal deleted inserted replaced
441:72a7cfa4a488 442:abe6d1db359e
503 mode-name "Itimer Edit" 503 mode-name "Itimer Edit"
504 truncate-lines t 504 truncate-lines t
505 tab-stop-list '(22 32 40 60 67)) 505 tab-stop-list '(22 32 40 60 67))
506 (abbrev-mode 0) 506 (abbrev-mode 0)
507 (auto-fill-mode 0) 507 (auto-fill-mode 0)
508 (buffer-flush-undo (current-buffer)) 508 (buffer-disable-undo (current-buffer))
509 (use-local-map itimer-edit-map) 509 (use-local-map itimer-edit-map)
510 (set-syntax-table emacs-lisp-mode-syntax-table)) 510 (set-syntax-table emacs-lisp-mode-syntax-table))
511 511
512 (put 'itimer-edit-mode 'mode-class 'special) 512 (put 'itimer-edit-mode 'mode-class 'special)
513 513
712 ;; provide the variable `current-itimer' in case the function 712 ;; provide the variable `current-itimer' in case the function
713 ;; is interested. 713 ;; is interested.
714 (unwind-protect 714 (unwind-protect
715 (condition-case condition-data 715 (condition-case condition-data
716 (save-match-data 716 (save-match-data
717 ;; Suppress warnings - see comment below.
718 (defvar last-event-time)
719 (defvar next-wakeup)
720 (defvar itimer)
721 (defvar itimers)
722 (defvar time-elapsed)
717 (let* ((current-itimer itimer) 723 (let* ((current-itimer itimer)
718 (quit-flag nil) 724 (quit-flag nil)
719 (inhibit-quit nil) 725 (inhibit-quit nil)
720 ;; for FSF Emacs timer.el emulation under XEmacs. 726 ;; for FSF Emacs timer.el emulation under XEmacs.
721 ;; eldoc expect this to be done, apparently. 727 ;; eldoc expect this to be done, apparently.
722 (this-command nil) 728 (this-command nil)
723 ;; bind these variables so that the 729 ;; bind these variables so that the itimer
724 ;; itimer function can't screw with 730 ;; function can't screw with them.
725 ;; them.
726 last-event-time next-wakeup 731 last-event-time next-wakeup
727 itimer itimers time-elapsed) 732 itimer itimers time-elapsed)
728 (if (itimer-uses-arguments current-itimer) 733 (if (itimer-uses-arguments current-itimer)
729 (apply (itimer-function current-itimer) 734 (apply (itimer-function current-itimer)
730 (itimer-function-arguments current-itimer)) 735 (itimer-function-arguments current-itimer))