05/01/30 06:41:23 .net
>>250
(eval-after-load "lookup-vse"
'(defun lookup-arrange-gaijis (entry)
(let* ((case-fold-search t)
(dictionary (lookup-entry-dictionary entry))
(regexp (lookup-dictionary-option dictionary ':gaiji-regexp t)))
(while (re-search-forward regexp nil t)
(delete-region (match-beginning 0) (match-end 0))))))