Mercurial > emacs

changeset 51288:f0563005bb3d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(type-break-cancel-function-timers): Use with-no-warnings.
author Richard M. Stallman <rms@gnu.org>
date Wed, 28 May 2003 11:25:44 +0000
parents 2ec687b0ad32
children ba101d1e9521
files lisp/type-break.el
diffstat 1 files changed, 7 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/type-break.el	Wed May 28 11:24:51 2003 +0000
+++ b/lisp/type-break.el	Wed May 28 11:25:44 2003 +0000
@@ -8,7 +8,7 @@
 ;; Status: Works in GNU Emacs 19.25 or later, some versions of XEmacs
 ;; Created: 1994-07-13
 
-;; $Id: type-break.el,v 1.26 2003/04/11 13:06:22 jpw Exp $
+;; $Id: type-break.el,v 1.27 2003/05/06 17:50:17 lektu Exp $
 
 ;; This file is part of GNU Emacs.
 
@@ -981,11 +981,12 @@
                   (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)))))))
+	 (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