[xyzzy:06964] Re: KaTeX の利用

[KAMEI Tetsuya <kamei@xxxxxxxxxxxx>]

飯田さん、こんにちは。

	2001年5月23日(水)[17:10:13]の、
	[xyzzy:06960] Re: KaTeX の利用
	への返事です。

| (require "emacs")
| でエラーが生じます(「ファイルが見つかりません"emacs"」と言われてしまう)。

*load-path* は起動するごとに初期化されるので、siteinit 
で設定したものは次に起動したときには無効になります。少
なくとも (push "c:/Application/xyzzy/site-lisp/katex" 
*load-path*) は .xyzzy にも書いておく必要があります。

# んー、仕様が変かも。

| ここで「defun::self-insert-command」というメッセージが書かれた
| 小ウィンドウが開いてbyte compileが止まってしまいます。

コンパイルするためには、こうなってないとまずいような。

diff -ru katex.orig/katexgen.l katex/katexgen.l
--- katex.orig/katexgen.l	Mon May  7 12:21:16 2001
+++ katex/katexgen.l	Wed May 23 18:30:04 2001
@@ -203,7 +203,7 @@
 	  (KaTeX-generate-display-message KaTeX-generate-output-message)
 	  (use-local-map map1)
 	  (fset 'si (symbol-function 'self-insert-command))
-	  (defun self-insert-command (arg)
+	  (lisp:defun self-insert-command (arg)
 	    (interactive "p")
 	    (if (or (not (equal (buffer-name) KaTeX-generate-buffer))
 		    (and (> (point) (marker-position from))
diff -ru katex.orig/katexmen.l katex/katexmen.l
--- katex.orig/katexmen.l	Tue Apr 17 15:32:22 2001
+++ katex/katexmen.l	Wed May 23 18:36:58 2001
@@ -45,6 +45,7 @@
     (push (list nil nil 'KaTeX-about-menu) *KaTeX-menu-list*)
   ))
 
+(eval-when (:compile-toplevel :load-toplevel :execute)
 (defmacro KaTeX-menu-menu (menu)
   `(cadr ,menu))
 
@@ -53,6 +54,7 @@
 
 (defmacro KaTeX-buffer-menu (buffer)
   `(assoc ,buffer *KaTeX-menu-list* :test #'equal))
+)
 
 (defun KaTeX-menu-for-selected-buffer (&optional force)
   (let ((buffer (buffer-name (selected-buffer)))

-- 
亀井哲弥(Tetsuya Kamei)
kamei@xxxxxxxxxxxx