[Mew-dist 09667] Re: disable-timeout

[Kazu Yamamoto ( 山本和彦 )]

From: Hideyuki SHIRAI (白井秀行) <shirai at example.com>
Subject: [Mew-dist 09665] disable-timeout (Re:  b41)
Date: Thu, 15 Jul 1999 14:04:31 +0900

> なのですが、Emacs 19.28 附属の timer.el には disable-timeout が
> ないため、"Q" でエラーになります。

ああぁ、やっぱり。これでどうでしょう？

--かず＠マルチ＊は嫌い


-------------- next part --------------
Index: mew-pgp.el
===================================================================
RCS file: /home/kazu/cvsroot/Mew/mew/mew-pgp.el,v
retrieving revision 1.75
diff -c -r1.75 mew-pgp.el
*** mew-pgp.el	1999/07/15 04:30:02	1.75
--- mew-pgp.el	1999/07/15 05:51:04
***************
*** 185,191 ****
        (progn
  	(if (not (fboundp 'disable-timeout))
  	    (require 'timer))
! 	(disable-timeout mew-pgp-timer-id)))
    (setq mew-pgp-timer-id nil))
  
  (defun mew-pgp-timer (&optional arg) ;; for XEmacs
--- 185,193 ----
        (progn
  	(if (not (fboundp 'disable-timeout))
  	    (require 'timer))
! 	(cond
! 	 ((fboundp 'disable-timeout) (disable-timeout mew-pgp-timer-id))
! 	 ((fboundp 'cancel-timer) (cancel-timer mew-pgp-timer-id)))))
    (setq mew-pgp-timer-id nil))
  
  (defun mew-pgp-timer (&optional arg) ;; for XEmacs