[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/type-break.el
From: |
Richard M. Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/type-break.el |
Date: |
Wed, 28 May 2003 07:25:45 -0400 |
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