/usr/share/emacs/site-lisp/edict-el/dui-registry.el is in edict-el 1.06-11.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 | ;;; dui-registry.el --- Registry of dui dictionary methods
;; Copyright (C) 1998 by Stephen J. Turnbull
;; Author: Stephen J. Turnbull <turnbull@sk.tsukuba.ac.jp>
;; Keywords: mule, dictionary
;; Version: 0.6
;; This file is part of XEmacs.
;; XEmacs is free software; you can redistribute it and/or modify it
;; under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2, or (at your
;; option) any later version.
;; XEmacs is distributed in the hope that it will be useful, but
;; WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
;; General Public License for more details.
;;
;; You should have received a copy of the GNU General Public License
;; along with XEmacs; if not, write to the Free Software Foundation,
;; Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
;;; Commentary:
;;; To do:
;;; Changelog:
;; 1998-04-08 Stephen Turnbull <turnbull@sk.tsukuba.ac.jp>
;; (created): broken out from edict.el
;;; Code:
(require 'dui)
(dui-register-method
"ispell word"
'search
'ispell-word
"Invokes ispell on the word at point.
Heaven only knows what will happen if it's Japanese.")
(defun edict-search-english-wrapper ()
"Interface `edict-search-english' to `dui-invoke-method'."
(edict-search-english nil))
;; Probably could do without the wrapper:
; (dui-register-method
; "EDICT search english"
; 'search
; 'edict-search-english
; "Attempts to translate the english word we are looking at. Picks the word
; in the same way as ispell, ie backs up from whitespace, and then expands.
;
; Result is presented in a window that is not selected."
; nil)
(dui-register-method
"EDICT search English"
'search
'edict-search-english-wrapper
"Attempts to translate the english word we are looking at. Picks the word
in the same way as ispell, ie backs up from whitespace, and then expands.
Result is presented in a window that is not selected.")
(defun edict-search-kanji-wrapper ()
"Interface `edict-search-kanji' to `dui-invoke-method'."
(let ((m (mark))
(p (point)))
(cond
((null m)
(error "Please set the region around the Japanese phrase to look up."))
((< m p) (edict-search-kanji nil m p))
(t (edict-search-kanji nil p m)))))
(dui-register-method
"EDICT search Japanese"
'search
'edict-search-kanji-wrapper
"Attempts to translate the Japanese `word' between mark and point.
Verbs and adjectives will be deinflected, common auxiliaries and suffixes
removed, and all resulting candidates looked up.
Result is presented in a window that is not selected.")
;; Make it default
(or (featurep 'dui-registry)
(setq dui-method-history
(cons "EDICT search Japanese" dui-method-history)))
(defun edict-add-kanji-wrapper ()
"Interface `edict-add-kanji' to `dui-invoke-method'."
(let ((m (mark))
(p (point)))
(cond
((null m)
(error "Please mark the Japanese word to add to your private dictionary."))
((< m p) (edict-add-kanji m p))
(t (edict-add-kanji p m)))))
(dui-register-method
"EDICT add Japanese to private dictionary"
'insert
'edict-add-kanji-wrapper
"Adds the Japanese `word' between mark and point to the private dictionary.
The entry is formatted for EDICT, and edict-edit-mode is entered.")
(dui-register-method
"EDICT add English to private dictionary"
'insert
'edict-add-kanji-wrapper
"Adds the English word near point to the private dictionary.
The entry is formatted for EDICT, and edict-edit-mode is entered.")
;(dui-princ-errors)
(provide 'dui-registry)
;;; dui-registry.el ends here
|