[67] | 1 | ;;; pdicv-eijiro.el --- around eijiro |
---|
| 2 | ;; |
---|
[71] | 3 | ;; Copyright (C) 2005-2009 naoya_t. All Rights Reserved. |
---|
[67] | 4 | ;; |
---|
[71] | 5 | ;; Author: naoya_t <naoya.t@aqua.plala.or.jp> |
---|
| 6 | ;; Maintainer: naoya_t <naoya.t@aqua.plala.or.jp> |
---|
| 7 | ;; Primary distribution site: |
---|
| 8 | ;; http://lambdarepos.svnrepository.com/svn/share/lang/elisp/pdicv-mode/trunk |
---|
[67] | 9 | ;; |
---|
| 10 | ;; Created: 06 Feb 2005 |
---|
| 11 | ;; Last modified: 23 Dec 2005 |
---|
[71] | 12 | ;; Version: 0.9.2 |
---|
[67] | 13 | ;; Keywords: eijiro waeijiro |
---|
| 14 | |
---|
| 15 | (provide 'pdicv-eijiro) |
---|
| 16 | |
---|
| 17 | ;;; Commentary: |
---|
| 18 | |
---|
| 19 | ; (pdicv-eijiro-search WORD-TO-SEARCH [REGEXP-P]) |
---|
| 20 | ; - �Ѽ�Ϻ/��Ѽ�Ϻ�������������ɽ������ġ�; |
---|
| 21 | ; (pdicv-eijiro-search-interactive WORD-TO-SEARCH) |
---|
| 22 | ; - <interactive> �ߥ˥Хåե����������ñ������; (pdicv-eijiro-search-region FROM TO) |
---|
| 23 | ; - <interactive> ����Ϥ��������;; Code: |
---|
| 24 | |
---|
| 25 | (require 'pdicv-search) |
---|
| 26 | |
---|
| 27 | ; |
---|
| 28 | ; applied functions |
---|
| 29 | ; |
---|
| 30 | (defun pdicv-eijiro-search (word-to-search &optional regexp-p) |
---|
| 31 | "search in EIJIRO/WAEIJIRO" |
---|
| 32 | (if (>= (aref word-to-search 0) 128) |
---|
| 33 | (pdicv-search 'waeijiro word-to-search regexp-p) |
---|
| 34 | (pdicv-search 'eijiro word-to-search regexp-p)) |
---|
| 35 | ) |
---|
| 36 | |
---|
| 37 | (defun pdicv-eijiro-search-interactive (word-to-search) |
---|
| 38 | (interactive "sWord to search: ") |
---|
| 39 | (if (> (length word-to-search) 0) |
---|
| 40 | (pdicv-eijiro-search word-to-search))) |
---|
| 41 | |
---|
| 42 | (defun pdicv-eijiro-search-region (from to) |
---|
| 43 | "" |
---|
| 44 | (interactive "r") |
---|
| 45 | (pdicv-eijiro-search (buffer-substring from to))) |
---|
| 46 | |
---|
| 47 | ;;; pdicv-search.el ends here |
---|