From 52cb95329b78f47f1942e67611913988c98db22e Mon Sep 17 00:00:00 2001 From: MORIOKA Tomohiko Date: Fri, 6 Jun 2014 12:06:15 +0900 Subject: [PATCH] (est-eval-value-as-domain-list): Treat `zob1959' in `source' as the same as `zob1968'. --- est-eval.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/est-eval.el b/est-eval.el index 5624e6a..3f733c5 100644 --- a/est-eval.el +++ b/est-eval.el @@ -19,8 +19,8 @@ ((eq spec 09) (concat value ">-53119;分")) ((eq spec 10) (concat value "冊")) ((eq spec 11) (concat value "分冊")) - ((eq spec 12) (concat value "&J90-3C21;")) - ((eq spec 13) (concat value ">-18140;号")) + ((eq spec 12) (concat value "&HD-JA-3C21;")) + ((eq spec 13) (concat value "&MJ013520;号")) ((eq spec 14) (concat value "特>-56392;号")) ((eq spec 15) (concat value "本")) ((eq spec 16) (concat value "分")) @@ -79,8 +79,8 @@ ;; ((string= spec "09") `((decimal (:feature ,feature)) ">-53119;分")) ;; ((string= spec "10") `((decimal (:feature ,feature)) "冊")) ;; ((string= spec "11") `((decimal (:feature ,feature)) "分冊")) -;; ((string= spec "12") `((decimal (:feature ,feature)) "&J90-3C21;")) -;; ((string= spec "13") `((decimal (:feature ,feature)) ">-18140;号")) +;; ((string= spec "12") `((decimal (:feature ,feature)) "&HD-JA-3C21;")) +;; ((string= spec "13") `((decimal (:feature ,feature)) "&MJ013520;号")) ;; ((string= spec "14") `((decimal (:feature ,feature)) "特>-56392;号")) ;; ((string= spec "15") `((decimal (:feature ,feature)) "本")) ;; ((string= spec "16") `((decimal (:feature ,feature)) "分")) @@ -469,7 +469,7 @@ '=id item 'article@ruimoku) (intern unit))))) ) - ((eq source 'zob1968) + ((memq source '(zob1959 zob1968)) (if (and (symbolp item) (setq num (symbol-name item)) (string-match -- 1.7.10.4