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

[Richard M. Stallman]

Index: emacs/lisp/type-break.el
diff -c emacs/lisp/type-break.el:1.27 emacs/lisp/type-break.el:1.28
*** emacs/lisp/type-break.el:1.27       Tue May  6 13:50:17 2003
--- emacs/lisp/type-break.el    Wed May 28 07:25:44 2003
***************
*** 8,14 ****
  ;; Status: Works in GNU Emacs 19.25 or later, some versions of XEmacs
  ;; Created: 1994-07-13
  
! ;; $Id: type-break.el,v 1.27 2003/05/06 17:50:17 lektu Exp $
  
  ;; This file is part of GNU Emacs.
  
--- 8,14 ----
  ;; Status: Works in GNU Emacs 19.25 or later, some versions of XEmacs
  ;; Created: 1994-07-13
  
! ;; $Id: type-break.el,v 1.28 2003/05/28 11:25:44 rms Exp $
  
  ;; This file is part of GNU Emacs.
  
***************
*** 981,991 ****
                    (funcall 'delete-timer (car list)))
               (setq list (cdr list)))))
          ((memq type-break-emacs-variant '(xemacs lucid))
!          (let ((list itimer-list))
!            (while list
!              (and (eq (funcall 'itimer-function (car list)) function)
!                   (funcall 'delete-itimer (car list)))
!              (setq list (cdr list)))))))
  
  
  ;;; Demo wrappers
--- 981,992 ----
                    (funcall 'delete-timer (car list)))
               (setq list (cdr list)))))
          ((memq type-break-emacs-variant '(xemacs lucid))
!        (with-no-warnings
!         (let ((list itimer-list))
!           (while list
!             (and (eq (funcall 'itimer-function (car list)) function)
!                  (funcall 'delete-itimer (car list)))
!             (setq list (cdr list))))))))
  
  
  ;;; Demo wrappers