Synch with flim-1_14.
authoryamaoka <yamaoka>
Tue, 23 Apr 2002 06:37:53 +0000 (06:37 +0000)
committeryamaoka <yamaoka>
Tue, 23 Apr 2002 06:37:53 +0000 (06:37 +0000)
ChangeLog
VERSION
luna.el
mime-def.el

index cc448bc..e9314e7 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,4 +1,9 @@
-2002-02-01  Kenichi OKADA  <okada@opaopa.org>
+2002-01-16  Hiroya Murata     <lapis-lazuli@pop06.odn.ne.jp>
+
+       * luna.el (luna-class-find-member): Don't search parents'
+       method-spaces.
+
+2002-02-01  Kenichi OKADA     <okada@opaopa.org>
 
        * eword-encode.el (mime-header-encode-method-alist): New variable.
        (mime-encode-field-body): Use `mime-header-encode-method-alist'.
@@ -18,7 +23,7 @@
        * smtpmail.el (smtpmail-send-it): Work even if the first line of
        the subject field has no content (synch with Emacs 20.3).
 
-2001-07-30  AMAKAWA Shuhei <sa264@cam.ac.uk>
+2001-07-30  AMAKAWA Shuhei    <sa264@cam.ac.uk>
 
        * smtp.el (smtp-submit-package): Send EHLO after starttls.
 
@@ -29,7 +34,7 @@
 \f
 2001-06-01  MORIOKA Tomohiko  <tomo@kanji.zinbun.kyoto-u.ac.jp>
 
-       * FLIM: Version 1.14.3 (Unebigory\e-Dòmae)\e-A released.
+       * FLIM: Version 1.14.3 (Unebigory\e-Dòmae) released.\e-A
 
 2001-06-01  Katsumi Yamaoka   <yamaoka@jpl.org>
 
 \f
 2000-07-12  MORIOKA Tomohiko  <tomo@kanji.zinbun.kyoto-u.ac.jp>
 
-       * FLIM-Chao: Version 1.14.1 (Rokujiz\e-Dò)\e-A released.
+       * FLIM-Chao: Version 1.14.1 (Rokujiz\e-Dò) released.\e-A
 
 2000-07-10  MORIOKA Tomohiko  <tomo@kanji.zinbun.kyoto-u.ac.jp>
 
 \f
 1999-05-31  MORIOKA Tomohiko  <tomo@m17n.org>
 
-       * FLIM: Version 1.12.7 (Y\e-Dþzaki)\e-A released.
+       * FLIM: Version 1.12.7 (Y\e-Dþzaki) released.\e-A
 
 1999-05-31  MORIOKA Tomohiko  <tomo@m17n.org>
 
 \f
 1999-05-11  MORIOKA Tomohiko  <tomo@m17n.org>
 
-       * FLIM: Version 1.12.6 (Family-K\e-Dòenmae)\e-A released.
+       * FLIM: Version 1.12.6 (Family-K\e-Dòenmae) released.\e-A
 
 1999-04-27  Shuhei KOBAYASHI  <shuhei@aqua.ocn.ne.jp>
 
 \f
 1999-01-23  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
-       * FLIM: Version 1.12.3 (Kintetsu-K\e-Dòriyama)\e-A released.
+       * FLIM: Version 1.12.3 (Kintetsu-K\e-Dòriyama) released.\e-A
 
 1999-01-23  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
 \f
 1999-01-21  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
-       * FLIM: Version 1.12.2 (Kuj\e-Dò)\e-A released.
+       * FLIM: Version 1.12.2 (Kuj\e-Dò) released.\e-A
 
 1999-01-16  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
 \f
 1998-12-02  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
-       * FLIM: Version 1.12.1 (Nishinoky\e-Dò)\e-A released.
+       * FLIM: Version 1.12.1 (Nishinoky\e-Dò) released.\e-A
 
 1998-11-30  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
 \f
 1998-10-26  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
-       * FLIM: Version 1.11.2 (Heij\e-Dò)\e-A was released.
+       * FLIM: Version 1.11.2 (Heij\e-Dò) was released.\e-A
 
        * NEWS (Abolish variable `mime-temp-directory'): New subsection.
 
 \f
 1998-10-12  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
-       * FLIM: Version 1.10.4 (Shin-H\e-Dòsono)\e-A was released.
+       * FLIM: Version 1.10.4 (Shin-H\e-Dòsono) was released.\e-A
 
 1998-10-12  Katsumi Yamaoka   <yamaoka@jpl.org>
 
 \f
 1998-09-29  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
-       * FLIM: Version 1.10.0 (K\e-Dòdo)\e-A was released.
+       * FLIM: Version 1.10.0 (K\e-Dòdo) was released.\e-A
 
        * README.en (What's FLIM): Add mel-ccl.el.
 
 \f
 1998-08-31  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
-       * FLIM: Version 1.9.1 (Tonosh\e-Dò)\e-A was released.
+       * FLIM: Version 1.9.1 (Tonosh\e-Dò) was released.\e-A
 
        * mime-en.sgml (mm-backend): Translate a little.
 
 \f
 1998-07-07  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
-       * FLIM-Chao: Version 1.8.0 (Shij\e-Dò)\e-A was released.
+       * FLIM-Chao: Version 1.8.0 (Shij\e-Dò) was released.\e-A
 
 1998-07-07  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
 \f
 1998-07-01  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
-       * FLIM: Version 1.8.0 (\e-DÒkubo)\e-A was released.
+       * FLIM: Version 1.8.0 (\e-DÒkubo) was released.\e-A
 
        * README.en: Delete `How to use'.
 
 \f
 1998-06-28  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
-       * FLIM-Chao: Version 1.7.0 (Goj\e-Dò)\e-A was released.
+       * FLIM-Chao: Version 1.7.0 (Goj\e-Dò) was released.\e-A
 
 1998-06-26  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
 \f
 1998-06-19  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
-       * FLIM: Version 1.4.1 (Momoyama-Gory\e-Dòmae)\e-A was released.
+       * FLIM: Version 1.4.1 (Momoyama-Gory\e-Dòmae) was released.\e-A
 
 1998-06-18  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
 \f
 1998-05-06  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
-       * FLIM: Version 1.2.0 (J\e-Dþjò)\e-A was released.
+       * FLIM: Version 1.2.0 (J\e-Dþjò) was released.\e-A
 
        * README.en (What's FLIM): Delete description about
        std11-parse.el; add description about mailcap.el.
 \f
 1998-05-05  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
-       * FLIM: Version 1.1.0 (T\e-Dòji)\e-A was released.
+       * FLIM: Version 1.1.0 (T\e-Dòji) was released.\e-A
 
 1998-05-04  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
 \f
 1998-04-17  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
-       * FLIM: Version 1.0.1 (Ky\e-Dòto)\e-A was released.
+       * FLIM: Version 1.0.1 (Ky\e-Dòto) was released.\e-A
 
        * mime-def.el (mime-spadework-module-version-string): New
        constant.
diff --git a/VERSION b/VERSION
index 22a0bc8..23955f1 100644 (file)
--- a/VERSION
+++ b/VERSION
@@ -4,7 +4,7 @@
 
 ;;-------------------------------------------------------------------------
 ;;     Kinki Nippon Railway    \e$(B6a5&F|K\E4F;\e(B     http://www.kintetsu.co.jp/
-;;     Ky\e-Dòto\e-A Line                \e$(B5~ET@~\e(B
+;;     Ky\e-Dòto Line\e-A                \e$(B5~ET@~\e(B
 ;;-------------------------------------------------------------------------
 1.0.1  Ky\e-Dòto\e-A                     \e$(B5~ET\e(B             ; <=> JR, \e$(B5~ET;T8rDL6I\e(B
 1.1.0  T\e-Dòji\e-A                      \e$(BEl;{\e(B
@@ -34,7 +34,7 @@
 1.11.3 Saidaiji                \e$(B@>Bg;{\e(B           ; = \e$(B6aE4\e(B \e$(BF`NI@~\e(B
 ;;-------------------------------------------------------------------------
 ;;     Kinki Nippon Railway    \e$(B6a5&F|K\E4F;\e(B     http://www.kintetsu.co.jp/
-;;     Ky\e-Dòto\e-A Line                \e$(B3`86@~\e(B
+;;     Ky\e-Dòto Line\e-A                \e$(B3`86@~\e(B
 ;;-------------------------------------------------------------------------
        (Saidaiji)              (\e$(B@>Bg;{\e(B)
 1.12.0 Amagatsuji              \e$(BFt%vDT\e(B
@@ -52,7 +52,7 @@
 1.14.1 Yagi                    \e$(BH,LZ\e(B             ; = \e$(B6aE4\e(B \e$(BBg:e@~\e(B
 1.14.2 Yagi-Nishiguchi         \e$(BH,LZ@>8}\e(B
 1.14.3 Unebigory\e-Dòmae\e-A             \e$(B@&K58fNMA0\e(B
------- Kashiharajing\e-Dþ-mae\e-A        \e$(B3`86?@5\A0\e(B       ; = \e$(B6aE4\e(B \e$(BFnBg:e@~!"5HLn@~\e(B
+1.14.4 Kashiharajing\e-Dþ-mae\e-A        \e$(B3`86?@5\A0\e(B       ; = \e$(B6aE4\e(B \e$(BFnBg:e@~!"5HLn@~\e(B
 
 
 [Chao Version names]
 1.13.6 Nakanosh\e-Dò\e-A         \e$BCf%N>1\e(B            ; \e$B$N$A$KCf$N>1$K2~>N\e(B
 1.14.0 Gokend\e-Dò\e-A                   \e$B8^4VF2\e(B
 1.14.3 Terai-Nishikuchi        \e$B;{0f@>8}\e(B
------- Jid\e-Dò\e-Asha-Renraku           \e$B<+F0<VO"Mm\e(B
+1.14.4 Jid\e-Dò\e-Asha-Renraku           \e$B<+F0<VO"Mm\e(B
 ------ Hon-Terai               \e$BK\;{0f\e(B
 ------ Suenobu-Ushijima        \e$BKv?.5mEg\e(B
 ------ Kaga-Sano               \e$B2C2l:4Ln\e(B
diff --git a/luna.el b/luna.el
index bf2c76d..cf1df38 100644 (file)
--- a/luna.el
+++ b/luna.el
@@ -1,6 +1,6 @@
 ;;; luna.el --- tiny OOP system kernel
 
-;; Copyright (C) 1999,2000 Free Software Foundation, Inc.
+;; Copyright (C) 1999,2000,2002 Free Software Foundation, Inc.
 
 ;; Author: MORIOKA Tomohiko <tomo@m17n.org>
 ;; Keywords: OOP
@@ -115,15 +115,7 @@ The optional 2nd arg SLOTS is a list of slots CLASS will have."
 (defun luna-class-find-member (class member-name)
   (or (stringp member-name)
       (setq member-name (symbol-name member-name)))
-  (or (intern-soft member-name (luna-class-obarray class))
-      (let ((parents (luna-class-parents class))
-           ret)
-       (while (and parents
-                   (null
-                    (setq ret (luna-class-find-member
-                               (luna-find-class (pop parents))
-                               member-name)))))
-       ret)))
+  (intern-soft member-name (luna-class-obarray class)))
 
 
 ;; Return a member (slot or method) of CLASS that has name
index 1786c61..8d4715a 100644 (file)
@@ -1,6 +1,6 @@
 ;;; mime-def.el --- definition module about MIME -*- coding: iso-2022-jp; -*-
 
-;; Copyright (C) 1995,96,97,98,99,2000,2001 Free Software Foundation, Inc.
+;; Copyright (C) 1995,96,97,98,99,2000,2001,2002 Free Software Foundation, Inc.
 
 ;; Author: MORIOKA Tomohiko <tomo@m17n.org>
 ;;     Shuhei KOBAYASHI <shuhei@aqua.ocn.ne.jp>
@@ -34,7 +34,7 @@
 (eval-when-compile (require 'luna))    ; luna-arglist-to-arguments
 
 (eval-and-compile
-  (defconst mime-library-product ["CLIME" (1 14 3) "\e$B;{0f@>8}\e(B"]
+  (defconst mime-library-product ["CLIME" (1 14 4) "\e$B<+F0<VO"Mm\e(B"]
     "Product name, version number and code name of MIME-library package."))
 
 (defmacro mime-product-name (product)