diff options
| author | Stephen Eglen <stephen@gnu.org> | 1998-03-07 18:19:38 +0000 |
|---|---|---|
| committer | Stephen Eglen <stephen@gnu.org> | 1998-03-07 18:19:38 +0000 |
| commit | 4bef911093051ec6dfca2e1415e42baee60f8e37 (patch) | |
| tree | 01e2642e0ce7282e95907bc908e065a2817d30c1 /lisp/docref.el | |
| parent | 14d4446b73f2f52becebc28d96e82f6ff5fe8e57 (diff) | |
| download | emacs-4bef911093051ec6dfca2e1415e42baee60f8e37.tar.gz | |
Customized.
Diffstat (limited to 'lisp/docref.el')
| -rw-r--r-- | lisp/docref.el | 34 |
1 files changed, 24 insertions, 10 deletions
diff --git a/lisp/docref.el b/lisp/docref.el index 363ce6c33d5..9aa6a604b22 100644 --- a/lisp/docref.el +++ b/lisp/docref.el @@ -60,17 +60,27 @@ ;;; Code: ;; User customizable variables - -(defvar docref-highlight-p t +(defgroup docref nil + "Simple cross references for Elisp documentation strings." + :prefix "docref-" + :group 'help + :group 'lisp + :group 'docs) + +(defcustom docref-highlight-p t "*If non-nil, \\(f@docref-subst) highlights cross-references. Under window system it highlights them with face defined by \\(v@docref-highlight-face), on character terminal highlighted references -look like cross-references in info mode.") +look like cross-references in info mode." + :type 'boolean + :group 'docref) -(defvar docref-highlight-face 'highlight - "*Face used to highlight cross-references (used by \\(f@docref-subst))") +(defcustom docref-highlight-face 'highlight + "*Face used to highlight cross-references (used by \\(f@docref-subst))" + :type 'face + :group 'docref) -(defvar docref-methods-alist +(defcustom docref-methods-alist '(("f" . docref-describe-function) ; reference to a function documentation ("v" . docref-describe-variable) ; reference to a variable documentation ("F" . docref-read-file) ; reference to a file contents @@ -81,10 +91,14 @@ look like cross-references in info mode.") The car of each element is a string that serves as `type' in cross-references. \(See \\(f@docref-subst)). The cdr is a function of one argument, -to be called to find this reference.") - -(defvar docref-back-label "\nback" - "Label to use by \\(f@docref-subst) for the go-back reference.") +to be called to find this reference." + :type '(repeat (cons string function)) + :group 'docref) + +(defcustom docref-back-label "\nback" + "Label to use by \\(f@docref-subst) for the go-back reference." + :type 'string + :group 'docref) (defvar docref-back-reference nil "If non-nil, this is a go-back reference to add to the current buffer. |