diff options
| author | Torsten Hilbrich <torsten.hilbrich@gmx.net> | 2001-06-29 08:02:00 +0200 |
|---|---|---|
| committer | Torsten Hilbrich <torsten@hilbrich.net> | 2011-08-27 20:47:38 +0200 |
| commit | 7a078122248883ca70b6defcdc7305c92fa4bc2b (patch) | |
| tree | e08d33c7b10aad804316d5c96864bab0aa986b9f /dictionary.el | |
| parent | b05614db73ee581dfbb29793a7c2a11b89e1ed8b (diff) | |
Imported version 1.3.3 from tarball
added support for XEmacs 21 packages to ease installation for those
users (suggested and reviewed by Enrico Scholz)
Diffstat (limited to 'dictionary.el')
| -rw-r--r-- | dictionary.el | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/dictionary.el b/dictionary.el index 149efc2..c27b3bc 100644 --- a/dictionary.el +++ b/dictionary.el @@ -2,7 +2,7 @@ ;; Author: Torsten Hilbrich <Torsten.Hilbrich@gmx.net> ;; Keywords: interface, dictionary -;; $Id: dictionary.el,v 1.18 2001/05/13 07:46:37 torsten Exp torsten $ +;; $Id: dictionary.el,v 1.20 2001/06/27 16:44:27 torsten Exp $ ;; This file is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by @@ -182,6 +182,7 @@ one dictionary yields matches." ;; Basic function providing startup actions ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;;;###autoload (defun dictionary-mode () "This is a mode for searching a dictionary server implementing the protocol defined in RFC 2229. @@ -227,6 +228,7 @@ This is a quick reference to this mode describing the default key bindings: (add-hook 'kill-buffer-hook 'dictionary-close t t) (run-hooks 'dictionary-mode-hook)) +;;;###autoload (defun dictionary () "Create a new dictonary buffer and install dictionary-mode" (interactive) @@ -796,6 +798,7 @@ If PATTERN is omitted, it defaults to \"[ \\f\\t\\n\\r\\v]+\"." ;; User callable commands ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;;;###autoload (defun dictionary-search (word &optional dictionary) "Search the `word' in `dictionary' if given or in all if nil. It presents the word at point as default input and allows editing it." @@ -813,6 +816,7 @@ It presents the word at point as default input and allows editing it." (setq dictionary dictionary-default-dictionary)) (dictionary-new-search (cons word dictionary))) +;;;###autoload (defun dictionary-lookup-definition () "Unconditionally lookup the word at point." (interactive) @@ -846,6 +850,7 @@ It presents the word at point as default input and allows editing it." (interactive) (describe-function 'dictionary-mode)) +;;;###autoload (defun dictionary-match-words (&optional pattern &rest ignored) "Search `pattern' in current default dictionary using default strategy." (interactive) |