Re: cancel-timer fails when autoloading from w3m-xmas

[Tatsuya Kinoshita <tats@xxxxxxxxxxxxxx>]

On June 4, 2005, [emacs-w3m:08144],
yamaoka (at jpl.org) wrote:

> > cancel-timerの定義はemacs-w3mでなくAPELでする方がよさそうに思えるの
> > ですがどうでしょうか。
> 
> そうしたら APEL をリリースするわけですね?

緊急というわけではありませんが、リリースには賛成です。

> たった今見直したら、timer-funcs.el は必ずしも timer.el を排他的
> に置き換えるものではないのですね。
> 
> poe (と poe-xemacs) が timer-funcs.el などを load するのは、だめ
> なタイマー系の機能を補修するために必要だからですが、それらを必要
> としない場合でも load してしまうのはやり過ぎのような気もしていま
> した。本来は、ユーザが、またはアプリケーションが、必要に応じて
> timer-funcs.el や timer.el を load するべきでしょうが、ぼくも代
> 案を持っているわけではありません。木下さんが作業して下さるのに反
> 対はしません。:)

emacs-w3mについては、独自のcancel-timerを定義しないことをあらためて
提案します。

APELについては、ユーザーやアプリケーションは、poeがemacsen汎用関数と
してXEmacs用cancenl-timer等を提供してくれることを期待しているものと
思いますので、poe-xemacsでtimer-funcsとtimerをrequireしてしまっても
かまわないのではないかと思っています。下記のパッチでいかがでしょうか。

2005-06-05  Tatsuya Kinoshita  <tats@vega.ocn.ne.jp>

	* poe-xemacs.el: Load `timer' even if `timer-funcs' exists.

----
--- apel.orig/poe-xemacs.el
+++ apel/poe-xemacs.el
@@ -81,13 +81,14 @@
 ;;; @ timer
 ;;;
 
+(condition-case nil
+    (require 'timer-funcs)
+  (error nil))
+(condition-case nil
+    (require 'timer)
+  (error nil))
 (or
- (condition-case nil
-     (require 'timer-funcs)
-   (error nil))
- (condition-case nil
-     (require 'timer)
-   (error nil))
+ (or (featurep 'timer-funcs) (featurep 'timer))
  (progn
    (require 'itimer)
    (if (and (= emacs-major-version 19) (<= emacs-minor-version 14))
----

-- 
木下達也