[Emacs-diffs] Changes to emacs/lisp/type-break.el [emacs-unicode-2]

[Miles Bader]

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