root/lang/elisp/pdicv-mode/trunk/pdicv-eijiro.el

Revision 71, 1.4 kB (checked in by naoya_t, 16 years ago)
Line 
1;;; pdicv-eijiro.el --- around eijiro
2;;
3;; Copyright (C) 2005-2009 naoya_t. All Rights Reserved.
4;;
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
9;;
10;; Created: 06 Feb 2005
11;; Last modified: 23 Dec 2005
12;; Version: 0.9.2
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
Note: See TracBrowser for help on using the browser.