Mercurial > emacs

comparison lisp/type-break.el @ 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 7588d6aa3cb7
children 695cf19ef79e
comparison
equal deleted inserted replaced
51287:2ec687b0ad32 51288:f0563005bb3d
6 ;; Maintainer: Noah Friedman <friedman@splode.com> 6 ;; Maintainer: Noah Friedman <friedman@splode.com>
7 ;; Keywords: extensions, timers 7 ;; Keywords: extensions, timers
8 ;; Status: Works in GNU Emacs 19.25 or later, some versions of XEmacs 8 ;; Status: Works in GNU Emacs 19.25 or later, some versions of XEmacs
9 ;; Created: 1994-07-13 9 ;; Created: 1994-07-13
10 10
11 ;; $Id: type-break.el,v 1.26 2003/04/11 13:06:22 jpw Exp $ 11 ;; $Id: type-break.el,v 1.27 2003/05/06 17:50:17 lektu Exp $
12 12
13 ;; This file is part of GNU Emacs. 13 ;; This file is part of GNU Emacs.
14 14
15 ;; GNU Emacs is free software; you can redistribute it and/or modify 15 ;; GNU Emacs is free software; you can redistribute it and/or modify
16 ;; it under the terms of the GNU General Public License as published by 16 ;; it under the terms of the GNU General Public License as published by
979 (while list 979 (while list
980 (and (eq (funcall 'timer-function (car list)) function) 980 (and (eq (funcall 'timer-function (car list)) function)
981 (funcall 'delete-timer (car list))) 981 (funcall 'delete-timer (car list)))
982 (setq list (cdr list))))) 982 (setq list (cdr list)))))
983 ((memq type-break-emacs-variant '(xemacs lucid)) 983 ((memq type-break-emacs-variant '(xemacs lucid))
984 (let ((list itimer-list)) 984 (with-no-warnings
985 (while list 985 (let ((list itimer-list))
986 (and (eq (funcall 'itimer-function (car list)) function) 986 (while list
987 (funcall 'delete-itimer (car list))) 987 (and (eq (funcall 'itimer-function (car list)) function)
988 (setq list (cdr list))))))) 988 (funcall 'delete-itimer (car list)))
989 (setq list (cdr list))))))))
989 990
990 991
991 ;;; Demo wrappers 992 ;;; Demo wrappers
992 993
993 ;; This is a wrapper around hanoi that calls it with an arg large enough to 994 ;; This is a wrapper around hanoi that calls it with an arg large enough to