From: ueno <ueno>
Date: Mon, 4 Dec 2000 02:54:35 +0000 (+0000)
Subject: * luna.el (luna-class-find-functions): Don't quote colon keywords.
X-Git-Tag: deisui-1_14_0-2000-12-14~5
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=e005e099fbb705d9b79c6c5711719d40acc53041;p=elisp%2Fflim.git

* luna.el (luna-class-find-functions): Don't quote colon keywords.
(luna-send): Ditto.
(luna-call-next-method): Ditto.

* README.ja, README.en (load-path): Remove section.
(What's FLIM): Specify prerequisite version of Emacsen.
---

diff --git a/README.en b/README.en
index 8ded084..46cbf11 100644
--- a/README.en
+++ b/README.en
@@ -35,6 +35,11 @@ What's FLIM
 
     mailcap.el	--- mailcap parser and utility
 
+  This library should work on:
+
+	Emacs 20.5 and up
+	XEmacs 20.4 and up
+
 
 Installation
 ============
@@ -127,21 +132,6 @@ Installation
   Notice that XEmacs package system requires XEmacs 21.0 or later.
 
 
-load-path (for Emacs or MULE)
-=============================
-
-  If you are using Emacs or Mule, please add directory of FLIM to
-  load-path.  If you install by default setting, you can write
-  subdirs.el for example:
-
-  --------------------------------------------------------------------
-  (normal-top-level-add-to-load-path '("apel" "flim"))
-  --------------------------------------------------------------------
-
-  If you are using XEmacs, there are no need of setting about
-  load-path.
-
-
 Bug reports
 ===========
 
diff --git a/README.ja b/README.ja
index 5327de3..bd9a707 100644
--- a/README.ja
+++ b/README.ja
@@ -33,6 +33,11 @@ FLIM とは？
 
     mailcap.el	--- mailcap の解析処理等
 
+  以下の環境で動作します：
+
+	Emacs 20.5 以降
+	XEmacs 20.4 以降
+
 
 導入 (install)
 ==============
@@ -78,10 +83,11 @@ FLIM とは？
   `PREFIX=...' が省略されると、指定された emacs コマンドのディレクトリー
   木の接頭辞が使用されます (おそらく /usr/local です)。
 
-  例えば、PREFIX=/usr/local と Emacs 19.34 が指定されれば、以下のディレ
+  例えば、PREFIX=/usr/local と Emacs 20.7 が指定されれば、以下のディレ
   クトリー木が作成されます。
 
 	/usr/local/share/emacs/site-lisp/flim/	--- FLIM
+	/usr/local/share/emacs/20.7/site-lisp/flim/	--- FLIM
 
   Emacs Lisp プログラムのための lisp ディレクトリーを指定することがで
   きます。例えば、:
@@ -134,20 +140,6 @@ FLIM とは？
 	  です。
 
 
-load-path (Emacs と MULE 用)
-=============================
-
-  Emacs か Mule を使っているなら、FLIM のディレクトリーを load-path に
-  追加してください。初期設定のまま導入したなら、次のように subdirs.el 
-  を書くことができます。例:
-
-  --------------------------------------------------------------------
-  (normal-top-level-add-to-load-path '("apel" "flim"))
-  --------------------------------------------------------------------
-
-  XEmacs を使っているなら、load-path を設定する必要はありません。
-
-
 バグ報告
 ========
 
diff --git a/luna.el b/luna.el
index 8e755ee..7a8cb53 100644
--- a/luna.el
+++ b/luna.el
@@ -162,13 +162,13 @@ BODY is the body of method."
 (defun luna-class-find-functions (class service)
   (let ((sym (luna-class-find-member class service)))
     (if (fboundp sym)
-	(cond ((eq (get sym 'luna-method-qualifier) ':before)
+	(cond ((eq (get sym 'luna-method-qualifier) :before)
 	       (cons (symbol-function sym)
 		     (luna-class-find-parents-functions class service)))
-	      ((eq (get sym 'luna-method-qualifier) ':after)
+	      ((eq (get sym 'luna-method-qualifier) :after)
 	       (nconc (luna-class-find-parents-functions class service)
 		      (list (symbol-function sym))))
-	      ((eq (get sym 'luna-method-qualifier) ':around)
+	      ((eq (get sym 'luna-method-qualifier) :around)
 	       (cons sym (luna-class-find-parents-functions class service)))
 	      (t
 	       (list (symbol-function sym))))
@@ -221,7 +221,7 @@ LUNA-CURRENT-METHOD-ARGUMENTS is arguments of the MESSAGE."
 			       luna-current-method-arguments))
 		  (if (symbolp luna-current-method)
 		      (not (eq (get luna-current-method
-				    'luna-method-qualifier) ':around))
+				    'luna-method-qualifier) :around))
 		    t))))
     luna-previous-return-value))
 
@@ -241,7 +241,7 @@ LUNA-CURRENT-METHOD-ARGUMENTS is arguments of the MESSAGE."
 			       luna-current-method-arguments))
 		  (if (symbolp luna-current-method)
 		      (not (eq (get luna-current-method
-				    'luna-method-qualifier) ':around))
+				    'luna-method-qualifier) :around))
 		    t))))
     luna-previous-return-value))