[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/type-break.el [emacs-unicode-2]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/type-break.el [emacs-unicode-2] |
Date: |
Thu, 04 Nov 2004 04:04:34 -0500 |
Index: emacs/lisp/type-break.el
diff -c emacs/lisp/type-break.el:1.28.4.2 emacs/lisp/type-break.el:1.28.4.3
*** emacs/lisp/type-break.el:1.28.4.2 Mon Jun 28 07:28:47 2004
--- emacs/lisp/type-break.el Thu Nov 4 08:55:36 2004
***************
*** 1005,1012 ****
(setcar type-break-keystroke-threshold lower)
(setcdr type-break-keystroke-threshold upper)
(if (interactive-p)
! (message "min threshold: %d\tmax threshold: %d" lower upper)
! type-break-keystroke-threshold)))
;;; misc functions
--- 1005,1012 ----
(setcar type-break-keystroke-threshold lower)
(setcdr type-break-keystroke-threshold upper)
(if (interactive-p)
! (message "min threshold: %d\tmax threshold: %d" lower upper))
! type-break-keystroke-threshold))
;;; misc functions
***************
*** 1103,1139 ****
(defun type-break-run-at-time (time repeat function)
(condition-case nil (or (require 'timer) (require 'itimer)) (error nil))
! (cond ((fboundp 'run-at-time)
! (run-at-time time repeat function))
! ((fboundp 'start-timer)
! (let ((name (if (symbolp function)
! (symbol-name function)
! "type-break")))
! (start-timer name function time repeat)))
! ((fboundp 'start-itimer)
! (let ((name (if (symbolp function)
! (symbol-name function)
! "type-break")))
! (start-itimer name function time repeat)))))
(defvar timer-dont-exit)
(defun type-break-cancel-function-timers (function)
! (cond ((fboundp 'cancel-function-timers)
! (let ((timer-dont-exit t))
! (cancel-function-timers function)))
! ((fboundp 'delete-timer)
! (let ((list timer-list))
! (while list
! (and (eq (funcall 'timer-function (car list)) function)
! (delete-timer (car list)))
! (setq list (cdr list)))))
! ((fboundp 'delete-itimer)
! (with-no-warnings
! (let ((list itimer-list))
! (while list
! (and (eq (funcall 'itimer-function (car list)) function)
! (delete-itimer (car list)))
! (setq list (cdr list))))))))
;;; Demo wrappers
--- 1103,1114 ----
(defun type-break-run-at-time (time repeat function)
(condition-case nil (or (require 'timer) (require 'itimer)) (error nil))
! (run-at-time time repeat function))
(defvar timer-dont-exit)
(defun type-break-cancel-function-timers (function)
! (let ((timer-dont-exit t))
! (cancel-function-timers function)))
;;; Demo wrappers
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/type-break.el [emacs-unicode-2],
Miles Bader <=