From 4bd45b4a1845502f7aafbacab6902fb00e69a66c Mon Sep 17 00:00:00 2001 From: MORIOKA Tomohiko Date: Wed, 18 Jun 2014 21:58:38 +0900 Subject: [PATCH] (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. --- est-eval.el | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) 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 ">-33870;")) + ((eq spec 05) (concat value "&HD-JA-4A53;")) ((eq spec 06) (concat value "集")) ((eq spec 07) (concat value "輯")) ((eq spec 08) (concat value ">-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)) ">-35694;")) -;; ((string= spec "05") `((decimal (:feature ,feature)) ">-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)) ">-56392;")) ;; ((string= spec "07") `((decimal (:feature ,feature)) "輯")) ;; ((string= spec "08") `((decimal (:feature ,feature)) ">-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 -- 1.7.10.4