Mercurial > emacs

changeset 57744:a14f0e52fd5e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(type-break-run-at-time): Always use run-at-time; forget the alternatives. (type-break-cancel-function-timers): Always use cancel-function-timers; forget the alternatives.
author Richard M. Stallman <rms@gnu.org>
date Wed, 27 Oct 2004 15:04:26 +0000
parents 9eb015fb8f5c
children d1fa1cbd6c4d
files lisp/type-break.el
diffstat 1 files changed, 5 insertions(+), 30 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/type-break.el	Wed Oct 27 15:03:15 2004 +0000
+++ b/lisp/type-break.el	Wed Oct 27 15:04:26 2004 +0000
@@ -1005,8 +1005,8 @@
     (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)))
+        (message "min threshold: %d\tmax threshold: %d" lower upper))
+    type-break-keystroke-threshold))
 
 
 ;;; misc functions
@@ -1103,37 +1103,12 @@
 
 (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)))))
+  (run-at-time time repeat function))
 
 (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))))))))
+  (let ((timer-dont-exit t))
+    (cancel-function-timers function)))
 
 
 ;;; Demo wrappers