null+****@clear*****
null+****@clear*****
Thu Aug 9 19:58:33 JST 2012
Yuta Yamada 2012-08-09 19:58:33 +0900 (Thu, 09 Aug 2012) New Revision: 58bb29686aefe41a0308553c779c1c4bd3509f37 https://github.com/logaling/logalimacs/commit/58bb29686aefe41a0308553c779c1c4bd3509f37 Log: loga-ignoring-regexp-words: Create variable for irregular-word Modified files: logalimacs.el Modified: logalimacs.el (+4 -1) =================================================================== --- logalimacs.el 2012-08-09 18:10:56 +0900 (f643212) +++ logalimacs.el 2012-08-09 19:58:33 +0900 (0ffb21b) @@ -150,6 +150,9 @@ Example: ("ches$" "ch") ("s$" ""))) +(defvar loga-ignoring-regexp-words + '("^basis$" "^crisis$" "ious$" "^news$" "ss$" "^stimulus$")) + (defvar loga-irregular-noun-alist '(("stimuli" "stimulus"))) @@ -563,7 +566,7 @@ Otherwise passed character inside region." word)) (defun loga-irregular-word-p (sample-word) - (loop for irregular-word in '("^basis$" "^crisis$" "ious$" "^news$" "ss$" "^stimulus$") + (loop for irregular-word in loga-ignoring-regexp-words if (string-match irregular-word sample-word) do (return t))) -------------- next part -------------- An HTML attachment was scrubbed...Télécharger
