Yuta Yamada
null+****@clear*****
Mon Dec 24 20:05:33 JST 2012
Yuta Yamada 2012-12-24 20:05:33 +0900 (Mon, 24 Dec 2012) New Revision: c468c00888a3b89dbbce062661bf16097fde4a4c https://github.com/logaling/logalimacs/commit/c468c00888a3b89dbbce062661bf16097fde4a4c Log: Renew special words for single or plural Merry Christmas. Modified files: logalimacs.el Modified: logalimacs.el (+26 -12) =================================================================== --- logalimacs.el 2012-09-28 15:43:23 +0900 (43d538f) +++ logalimacs.el 2012-12-24 20:05:33 +0900 (8a8593c) @@ -198,22 +198,36 @@ Example: ,single))) (defvar loga-ignoring-regexp-words - '("^alps$" "^apparatus$" "^as$" "^basis$" "^census$" "^crisis$" "^ethics$" - "[enmiu]ous$" "^news$" "^pathos$" "^perhaps$" "^surplus$" "shoes" "ss$" - "^stimulus$" "^thesis$" "^this$")) + '("^alps$" "^aegis$" "^apparatus$" "^as$" "^census$" + "^Christmas$" + "^ethics$" "^news$" "^overseas$" "^pathos$" + "^perhaps$" "^radius$" "^shoes$" "^stimulus$" + "^this$" "^thus$" "^Xmas$" + ;; word for suffix is "ous" + "[ceghijklmnortuv]ous$" + ;; periplus surplus plus etc.. + "plus$" + ;; basis crisis emphasis necrosis thesis hypothesis etc.. + "sis$" + ;; amass bless press etc.. + "ss$")) (defvar loga-irregular-nouns (loga-pave-regexp - '(("stimuli" "stimulus") - ("ties" "tie") - ("foes" "foe") + '(("expenses" "expense") + ("dies" "die") + ("headaches" "headache") + ("stimuli" "stimulus") + ("ties" "tie") + ("foes" "foe") + ("lies" "lie") ;; former English (~fe or ~f -> ~ves) - ("knives" "knife") - ("lives" "life") - ("leaves" "leaf") - ("halves" "half") - ("wives" "wife") - ("thieves" "thief")))) + ("knives" "knife") + ("lives" "life") + ("leaves" "leaf") + ("halves" "half") + ("wives" "wife") + ("thieves" "thief")))) (defvar loga-command-alist nil) -------------- next part -------------- An HTML attachment was scrubbed... Download