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