From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Wed, 18 Jun 2014 12:58:38 +0000 (+0900)
Subject: (est-eval-list-feature-items-limit): New variable.
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=4bd45b4a1845502f7aafbacab6902fb00e69a66c;p=chise%2Fest.git

(est-eval-list-feature-items-limit): New variable.
(est-eval-feature-value): Use `est-eval-list-feature-items-limit';
don't omit items of feature value if
`est-eval-list-feature-items-limit' is nil.
---

diff --git a/est-eval.el b/est-eval.el
index 3f733c5..ece6364 100644
--- a/est-eval.el
+++ b/est-eval.el
@@ -1,6 +1,8 @@
 ;; -*- coding: utf-8-mcs-er -*-
 (require 'cwiki-common)
 
+(defvar est-eval-list-feature-items-limit 20)
+
 (defun ruimoku-format-volume (spec value year lang)
   (when (stringp spec)
     (setq spec (car (read-from-string spec))))
@@ -12,7 +14,7 @@
 	((eq spec 02) (concat value "å·»"))
 	((eq spec 03) (concat value "号"))
 	((eq spec 04) (concat value "ç·¨"))
-	((eq spec 05) (concat value "&GT-33870;"))
+	((eq spec 05) (concat value "&HD-JA-4A53;"))
 	((eq spec 06) (concat value "集"))
 	((eq spec 07) (concat value "輯"))
 	((eq spec 08) (concat value "&GT-53119;"))
@@ -71,8 +73,8 @@
 ;;         ((string= spec "01") `((decimal (:feature ,feature)) "期"))
 ;;         ((string= spec "02") `((decimal (:feature ,feature)) "å·»"))
 ;;         ((string= spec "03") `((decimal (:feature ,feature)) "号"))
-;;         ((string= spec "04") `((decimal (:feature ,feature)) "&GT-35694;"))
-;;         ((string= spec "05") `((decimal (:feature ,feature)) "&GT-33870;"))
+;;         ((string= spec "04") `((decimal (:feature ,feature)) "&HD-JA-4A54;"))
+;;         ((string= spec "05") `((decimal (:feature ,feature)) "&HD-JA-4A53;"))
 ;;         ((string= spec "06") `((decimal (:feature ,feature)) "&GT-56392;"))
 ;;         ((string= spec "07") `((decimal (:feature ,feature)) "輯"))
 ;;         ((string= spec "08") `((decimal (:feature ,feature)) "&GT-53119;"))
@@ -693,9 +695,10 @@
     (setq value (www-get-feature-value object feature-name)))
   (unless format
     (setq format (www-feature-value-format feature-name)))
-  (if (consp value)
+  (if (and (consp value)
+	   est-eval-list-feature-items-limit)
       (let ((ret (condition-case nil
-		     (nthcdr 255 value)
+		     (nthcdr est-eval-list-feature-items-limit value)
 		   (error nil nil))))
 	(when ret
 	  (setcdr ret