From e005e099fbb705d9b79c6c5711719d40acc53041 Mon Sep 17 00:00:00 2001 From: ueno Date: Mon, 4 Dec 2000 02:54:35 +0000 Subject: [PATCH] * 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. --- README.en | 20 +++++--------------- README.ja | 22 +++++++--------------- luna.el | 10 +++++----- 3 files changed, 17 insertions(+), 35 deletions(-) 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)) -- 1.7.10.4