Edebug and luna.el

[TSUCHIYA Masatoshi]

>> On Tue, 24 Sep 2002 19:24:49 +0900
>> 「山」== yamaoka ＠ jpl.org (Katsumi Yamaoka) said as follows:

山> Emacs 19.28 以下には unintern が無いのですが、elisp で同等のものを
山> 作るのは無理ですよねえ (clime-1_14 枝)。

げげ．実は，clime-1_14 枝も気になってコードは見たんですけど，該当個所
に unintern がなかったので，method cache がないんだと早合点してしまっ
てました．

動作確認してないのですが，以下のように cache 用の obarray を破壊してし
まえばいいんじゃないでしょうか．

-------------- next part --------------
--- luna.el	23 Apr 2002 06:37:53 -0000	1.2.6.2.2.4
+++ luna.el	24 Sep 2002 11:07:13 -0000
@@ -181,7 +181,18 @@
 				 (cdr args)))
 		      (,@ definition))))
 	     (sym (luna-class-find-or-make-member
-		   (luna-find-class '(, class)) '(, name))))
+		   (luna-find-class '(, class)) '(, name)))
+	     (cache (get '(, name) 'luna-method-cache)))
+	 (if cache
+	     (let ((str (symbol-name '(, class))))
+	       (if (intern-soft str cache)
+		   (let ((new (make-vector (length cache) nil))
+			 (tmp))
+		     (mapatoms (lambda (s)
+				 (or (string= str (setq tmp (symbol-name s)))
+				     (set (intern tmp new) (symbol-value s))))
+			       cache)
+		     (put '(, name) 'luna-method-cache new)))))
 	 (fset sym func)
 	 (put sym 'luna-method-qualifier (, method-qualifier))))))
 
-------------- next part --------------

山> Cache を alist か plist などで作るしか手は無いでしょうか?

でも，plist で作った方が素直なような気が…．

;; ところで，どうして emacs-mime-ja ML には Reply-To が付与されていな
;; いのでしょうか? いつも通り reply しようとすると，差出人に送信してし
;; まいそうになって，あせるのですが．

-- 
土屋 雅稔  ( TSUCHIYA Masatoshi )