root/lang/elisp/pdicv-mode/trunk/pdicv-mode.el @ 124

Revision 71, 1.4 kB (checked in by naoya_t, 16 years ago)
Line 
1;; pdicviewer.el - PDIC Viewer for Emacs
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: 14 Feb 2005
11;; Last modified: 23 Dec 2005
12;; Version: 0.9.2
13;; Keywords: PDIC dictionary search eijiro
14;;
15
16;;; Commentary:
17;;
18;; PDIC�ե����ޥåȤμ��񤫤鸡��ޤ���
19;; ���ڤӺ��ۤκݤϡ�GNU ����������ʥС������˽��äƲ�������
20;;
21;; �켡����
22;;    http://pdicviewer.naochan.com/el/
23
24(provide 'pdicv-mode)
25
26;;; Code:
27(require 'pdicv-core)
28(require 'pdicv-search)
29(require 'pdicv-eijiro)
30
31;; minor-mode
32(easy-mmode-define-minor-mode
33 ;; mode
34 pdicv-mode
35 ;; doc
36 "Toggle pdicv mode."
37 ;; init-value (���icv-mode �ν��)
38 nil ;;initial
39 ;; mode indicator
40 " pdicv"
41 ;; keymap
42 '(("\C-c\C-d" . pdicv-set-target-dictionary)
43   ("\C-c\C-a" . pdicv-search-current-word)
44   ("\C-c\C-c" . pdicv-search-next-word)
45   ("\C-c\C-b" . pdicv-search-previous-word))
46 )
47
48; (eword-encoding pron-encoding jword-encoding example-encoding) )
49(defvar pdicv-dictionary-list '()) ;; pdicviewer.el �ˤ���defvar pdicv-inited-p nil)
50
51;(pdicv-init)
52
53;;;###autoload
54(defun pdicviewer ()
55  ""
56  (interactive)
57  (pdicv-init)
58  )
59
60;;; pdicviewer.el ends here
Note: See TracBrowser for help on using the browser.