mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-27 19:31:38 +00:00
Code Issues Releases Activity

(type-break-cancel-function-timers): Use with-no-warnings.

Browse Source
This commit is contained in:
Richard M. Stallman 2003-05-28 11:25:44 +00:00
parent d759a2f517
commit 2f3b1a8c1f
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lisp/type-break.el
View File

@ -8,7 +8,7 @@
;; Status: Works in GNU Emacs 19.25 or later, some versions of XEmacs ;; Status: Works in GNU Emacs 19.25 or later, some versions of XEmacs
;; Created: 1994-07-13 ;; 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. ;; This file is part of GNU Emacs.
@ -981,11 +981,12 @@ With optional non-nil ALL, force redisplay of all mode-lines."
(funcall 'delete-timer (car list))) (funcall 'delete-timer (car list)))
(setq list (cdr list))))) (setq list (cdr list)))))
((memq type-break-emacs-variant '(xemacs lucid)) ((memq type-break-emacs-variant '(xemacs lucid))
(let ((list itimer-list)) (with-no-warnings
(while list (let ((list itimer-list))
(and (eq (funcall 'itimer-function (car list)) function) (while list
(funcall 'delete-itimer (car list))) (and (eq (funcall 'itimer-function (car list)) function)
(setq list (cdr list))))))) (funcall 'delete-itimer (car list)))
(setq list (cdr list))))))))
;;; Demo wrappers ;;; Demo wrappers