clime-1.14

[Taiji.Can ＠ atesoft.advantest.co.jp]

  菅です。

>   と、いうことで、18.59 base の nemacs でも試してみました。
>   以下のエラーになりましたので、報告しておきます。
> ＃mule-2.3(19.34base)では問題が出ませんでした。

  何だかわかりました。nemacs では ` の解釈に問題があったんですよね？

  以下のような感じで、 ` の書き方を変えました。()の閉じに問題はないとは
  思いますが、確認をお願いします。

＃ここを抜けると、次は sasl.el で # で引っ掛かった。。。

diff -u mmgeneric.el.orig mmgeneric.el
--- mmgeneric.el.orig   Wed Oct 25 12:52:46 2000
+++ mmgeneric.el        Tue Dec 12 12:59:04 2000
@@ -74,15 +74,15 @@
 ;;;
 
 (defmacro mm-expand-class-name (type)
-  `(intern (format "mime-%s-entity" ,type)))
+  (` (intern (format "mime-%s-entity" ,type))))
 
 (defmacro mm-define-backend (type &optional parents)
-  `(luna-define-class ,(mm-expand-class-name type)
+  (` (luna-define-class ,(mm-expand-class-name type)
                      ,(nconc (mapcar (lambda (parent)
                                        (mm-expand-class-name parent)
                                        )
                                      parents)
-                             '(mime-entity))))
+                             '(mime-entity)))))
 
 (defmacro mm-define-method (name args &rest body)
   (or (eq name 'initialize-instance)
@@ -92,7 +92,7 @@
          (cons (list (car spec)
                      (mm-expand-class-name (nth 1 spec)))
                (cdr args)))
-    `(luna-define-method ,name ,args , ＠ body)
+    (` (luna-define-method ,name ,args , ＠ body))
     ))
 
 (put 'mm-define-method 'lisp-indent-function 'defun)
-- 

					ADVANTEST corp.
					Taiji.Can ＠ atesoft.advantest.co.jp