2001-07-16 12:23:00 +00:00
|
|
|
|
;;; info-look.el --- major-mode-sensitive Info index lookup facility
|
1997-06-19 02:19:21 +00:00
|
|
|
|
;; An older version of this was known as libc.el.
|
|
|
|
|
|
2005-08-06 22:13:43 +00:00
|
|
|
|
;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2001, 2002, 2003,
|
2006-02-06 15:23:23 +00:00
|
|
|
|
;; 2004, 2005, 2006 Free Software Foundation, Inc.
|
1997-06-19 02:19:21 +00:00
|
|
|
|
|
2000-07-07 13:01:49 +00:00
|
|
|
|
;; Author: Ralph Schleicher <rs@nunatak.allgaeu.org>
|
2001-11-15 12:25:20 +00:00
|
|
|
|
;; (did not show signs of life (Nov 2001) -stef)
|
1997-06-19 02:19:21 +00:00
|
|
|
|
;; Keywords: help languages
|
|
|
|
|
|
|
|
|
|
;; This file is part of GNU Emacs.
|
|
|
|
|
|
|
|
|
|
;; GNU Emacs 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.
|
|
|
|
|
|
|
|
|
|
;; GNU Emacs 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 GNU Emacs; see the file COPYING. If not, write to the
|
2005-07-04 23:32:44 +00:00
|
|
|
|
;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
|
|
|
|
|
;; Boston, MA 02110-1301, USA.
|
1997-06-19 02:19:21 +00:00
|
|
|
|
|
2001-03-06 23:42:00 +00:00
|
|
|
|
;;; Commentary:
|
|
|
|
|
|
|
|
|
|
;; Really cool code to lookup info indexes.
|
2004-02-01 13:52:33 +00:00
|
|
|
|
;; Try especially info-lookup-symbol (aka C-h S).
|
2001-03-06 23:42:00 +00:00
|
|
|
|
|
1997-06-19 02:19:21 +00:00
|
|
|
|
;;; Code:
|
|
|
|
|
|
|
|
|
|
(require 'info)
|
1998-02-17 03:25:05 +00:00
|
|
|
|
|
|
|
|
|
(defgroup info-lookup nil
|
|
|
|
|
"Major mode sensitive help agent."
|
|
|
|
|
:group 'help :group 'languages)
|
1997-06-19 02:19:21 +00:00
|
|
|
|
|
|
|
|
|
(defvar info-lookup-mode nil
|
1998-02-17 03:25:05 +00:00
|
|
|
|
"Symbol of the current buffer's help mode.
|
|
|
|
|
Help is provided according to the buffer's major mode if value is nil.
|
1997-06-19 02:19:21 +00:00
|
|
|
|
Automatically becomes buffer local when set in any fashion.")
|
|
|
|
|
(make-variable-buffer-local 'info-lookup-mode)
|
|
|
|
|
|
1998-02-17 03:25:05 +00:00
|
|
|
|
(defcustom info-lookup-other-window-flag t
|
|
|
|
|
"Non-nil means pop up the Info buffer in another window."
|
|
|
|
|
:group 'info-lookup :type 'boolean)
|
1997-06-19 02:19:21 +00:00
|
|
|
|
|
2004-12-16 07:19:20 +00:00
|
|
|
|
(defcustom info-lookup-highlight-face 'match
|
1998-02-17 03:25:05 +00:00
|
|
|
|
"Face for highlighting looked up help items.
|
|
|
|
|
Setting this variable to nil disables highlighting."
|
|
|
|
|
:group 'info-lookup :type 'face)
|
1997-06-19 02:19:21 +00:00
|
|
|
|
|
|
|
|
|
(defvar info-lookup-highlight-overlay nil
|
|
|
|
|
"Overlay object used for highlighting.")
|
|
|
|
|
|
1998-05-30 13:25:57 +00:00
|
|
|
|
(defcustom info-lookup-file-name-alist
|
2002-07-18 18:19:18 +00:00
|
|
|
|
'(("\\`ac\\(local\\|site\\|include\\)\\.m4\\'" . autoconf-mode))
|
1998-05-30 13:25:57 +00:00
|
|
|
|
"Alist of file names handled specially.
|
|
|
|
|
List elements are cons cells of the form
|
|
|
|
|
|
|
|
|
|
(REGEXP . MODE)
|
|
|
|
|
|
|
|
|
|
If a file name matches REGEXP, then use help mode MODE instead of the
|
|
|
|
|
buffer's major mode."
|
|
|
|
|
:group 'info-lookup :type '(repeat (cons (string :tag "Regexp")
|
|
|
|
|
(symbol :tag "Mode"))))
|
|
|
|
|
|
1997-06-19 02:19:21 +00:00
|
|
|
|
(defvar info-lookup-history nil
|
|
|
|
|
"History of previous input lines.")
|
|
|
|
|
|
1998-02-17 03:25:05 +00:00
|
|
|
|
(defvar info-lookup-alist nil
|
|
|
|
|
"Alist of known help topics.
|
1997-06-19 02:19:21 +00:00
|
|
|
|
Cons cells are of the form
|
|
|
|
|
|
1998-02-17 03:25:05 +00:00
|
|
|
|
(HELP-TOPIC . HELP-DATA)
|
1997-06-19 02:19:21 +00:00
|
|
|
|
|
|
|
|
|
HELP-TOPIC is the symbol of a help topic.
|
1998-02-17 03:25:05 +00:00
|
|
|
|
HELP-DATA is a HELP-TOPIC's public data set.
|
1997-06-19 02:19:21 +00:00
|
|
|
|
Value is an alist with elements of the form
|
|
|
|
|
|
|
|
|
|
(HELP-MODE REGEXP IGNORE-CASE DOC-SPEC PARSE-RULE OTHER-MODES)
|
|
|
|
|
|
|
|
|
|
HELP-MODE is a mode's symbol.
|
|
|
|
|
REGEXP is a regular expression matching those help items whose
|
|
|
|
|
documentation can be looked up via DOC-SPEC.
|
|
|
|
|
IGNORE-CASE is non-nil if help items are case insensitive.
|
|
|
|
|
DOC-SPEC is a list of documentation specifications of the form
|
|
|
|
|
|
|
|
|
|
(INFO-NODE TRANS-FUNC PREFIX SUFFIX)
|
|
|
|
|
|
|
|
|
|
INFO-NODE is the name (including file name part) of an Info index.
|
|
|
|
|
TRANS-FUNC is a function translating index entries into help items;
|
|
|
|
|
nil means add only those index entries matching REGEXP, a string
|
|
|
|
|
means prepend string to the first word of all index entries.
|
|
|
|
|
PREFIX and SUFFIX are parts of a regular expression. If one of
|
|
|
|
|
them is non-nil then search the help item's Info node for the
|
|
|
|
|
first occurrence of the regular expression `PREFIX ITEM SUFFIX'.
|
|
|
|
|
ITEM will be highlighted with `info-lookup-highlight-face' if this
|
|
|
|
|
variable is not nil.
|
|
|
|
|
PARSE-RULE is either the symbol name of a function or a regular
|
|
|
|
|
expression for guessing the default help item at point. Fuzzy
|
|
|
|
|
regular expressions like \"[_a-zA-Z0-9]+\" do a better job if
|
|
|
|
|
there are no clear delimiters; do not try to write too complex
|
|
|
|
|
expressions. PARSE-RULE defaults to REGEXP.
|
|
|
|
|
OTHER-MODES is a list of cross references to other help modes.")
|
|
|
|
|
|
|
|
|
|
(defsubst info-lookup->topic-value (topic)
|
1998-02-17 03:25:05 +00:00
|
|
|
|
(cdr (assoc topic info-lookup-alist)))
|
1997-06-19 02:19:21 +00:00
|
|
|
|
|
|
|
|
|
(defsubst info-lookup->mode-value (topic mode)
|
|
|
|
|
(assoc mode (info-lookup->topic-value topic)))
|
|
|
|
|
|
|
|
|
|
(defsubst info-lookup->regexp (topic mode)
|
|
|
|
|
(nth 1 (info-lookup->mode-value topic mode)))
|
|
|
|
|
|
|
|
|
|
(defsubst info-lookup->ignore-case (topic mode)
|
|
|
|
|
(nth 2 (info-lookup->mode-value topic mode)))
|
|
|
|
|
|
|
|
|
|
(defsubst info-lookup->doc-spec (topic mode)
|
|
|
|
|
(nth 3 (info-lookup->mode-value topic mode)))
|
|
|
|
|
|
|
|
|
|
(defsubst info-lookup->parse-rule (topic mode)
|
|
|
|
|
(nth 4 (info-lookup->mode-value topic mode)))
|
|
|
|
|
|
|
|
|
|
(defsubst info-lookup->other-modes (topic mode)
|
|
|
|
|
(nth 5 (info-lookup->mode-value topic mode)))
|
|
|
|
|
|
1998-02-17 03:25:05 +00:00
|
|
|
|
(defun info-lookup-add-help (&rest arg)
|
|
|
|
|
"Add or update a help specification.
|
|
|
|
|
Function arguments are one or more options of the form
|
|
|
|
|
|
|
|
|
|
KEYWORD ARGUMENT
|
|
|
|
|
|
|
|
|
|
KEYWORD is either `:topic', `:mode', `:regexp', `:ignore-case',
|
|
|
|
|
`:doc-spec', `:parse-rule', or `:other-modes'.
|
|
|
|
|
ARGUMENT has a value as explained in the documentation of the
|
|
|
|
|
variable `info-lookup-alist'.
|
|
|
|
|
|
|
|
|
|
If no topic or mode option has been specified, then the help topic defaults
|
|
|
|
|
to `symbol', and the help mode defaults to the current major mode."
|
|
|
|
|
(apply 'info-lookup-add-help* nil arg))
|
|
|
|
|
|
|
|
|
|
(defun info-lookup-maybe-add-help (&rest arg)
|
2001-03-06 23:42:00 +00:00
|
|
|
|
"Add a help specification iff none is defined.
|
1998-02-17 03:25:05 +00:00
|
|
|
|
See the documentation of the function `info-lookup-add-help'
|
|
|
|
|
for more details."
|
|
|
|
|
(apply 'info-lookup-add-help* t arg))
|
|
|
|
|
|
|
|
|
|
(defun info-lookup-add-help* (maybe &rest arg)
|
|
|
|
|
(let (topic mode regexp ignore-case doc-spec
|
|
|
|
|
parse-rule other-modes keyword value)
|
|
|
|
|
(setq topic 'symbol
|
|
|
|
|
mode major-mode
|
|
|
|
|
regexp "\\w+")
|
|
|
|
|
(while arg
|
|
|
|
|
(setq keyword (car arg))
|
|
|
|
|
(or (symbolp keyword)
|
|
|
|
|
(error "Junk in argument list \"%S\"" arg))
|
|
|
|
|
(setq arg (cdr arg))
|
|
|
|
|
(and (null arg)
|
|
|
|
|
(error "Keyword \"%S\" is missing an argument" keyword))
|
|
|
|
|
(setq value (car arg)
|
|
|
|
|
arg (cdr arg))
|
|
|
|
|
(cond ((eq keyword :topic)
|
|
|
|
|
(setq topic value))
|
|
|
|
|
((eq keyword :mode)
|
|
|
|
|
(setq mode value))
|
|
|
|
|
((eq keyword :regexp)
|
|
|
|
|
(setq regexp value))
|
|
|
|
|
((eq keyword :ignore-case)
|
|
|
|
|
(setq ignore-case value))
|
|
|
|
|
((eq keyword :doc-spec)
|
|
|
|
|
(setq doc-spec value))
|
|
|
|
|
((eq keyword :parse-rule)
|
|
|
|
|
(setq parse-rule value))
|
|
|
|
|
((eq keyword :other-modes)
|
|
|
|
|
(setq other-modes value))
|
|
|
|
|
(t
|
|
|
|
|
(error "Unknown keyword \"%S\"" keyword))))
|
|
|
|
|
(or (and maybe (info-lookup->mode-value topic mode))
|
|
|
|
|
(let* ((data (list regexp ignore-case doc-spec parse-rule other-modes))
|
|
|
|
|
(topic-cell (or (assoc topic info-lookup-alist)
|
|
|
|
|
(car (setq info-lookup-alist
|
|
|
|
|
(cons (cons topic nil)
|
|
|
|
|
info-lookup-alist)))))
|
|
|
|
|
(mode-cell (assoc mode topic-cell)))
|
|
|
|
|
(if (null mode-cell)
|
|
|
|
|
(setcdr topic-cell (cons (cons mode data) (cdr topic-cell)))
|
|
|
|
|
(setcdr mode-cell data))))
|
|
|
|
|
nil))
|
|
|
|
|
|
1997-06-19 02:19:21 +00:00
|
|
|
|
(defvar info-lookup-cache nil
|
|
|
|
|
"Cache storing data maintained automatically by the program.
|
|
|
|
|
Value is an alist with cons cell of the form
|
|
|
|
|
|
|
|
|
|
(HELP-TOPIC . ((HELP-MODE INITIALIZED COMPLETIONS REFER-MODES) ...))
|
|
|
|
|
|
|
|
|
|
HELP-TOPIC is the symbol of a help topic.
|
|
|
|
|
HELP-MODE is a mode's symbol.
|
|
|
|
|
INITIALIZED is nil if HELP-MODE is uninitialized, t if
|
|
|
|
|
HELP-MODE is initialized, and `0' means HELP-MODE is
|
|
|
|
|
initialized but void.
|
|
|
|
|
COMPLETIONS is an alist of documented help items.
|
|
|
|
|
REFER-MODES is a list of other help modes to use.")
|
|
|
|
|
|
|
|
|
|
(defsubst info-lookup->cache (topic)
|
|
|
|
|
(or (assoc topic info-lookup-cache)
|
|
|
|
|
(car (setq info-lookup-cache
|
|
|
|
|
(cons (cons topic nil)
|
|
|
|
|
info-lookup-cache)))))
|
|
|
|
|
|
1998-04-02 04:36:00 +00:00
|
|
|
|
(defun info-lookup->topic-cache (topic)
|
1997-06-19 02:19:21 +00:00
|
|
|
|
(cdr (info-lookup->cache topic)))
|
|
|
|
|
|
1998-04-02 04:36:00 +00:00
|
|
|
|
(defun info-lookup->mode-cache (topic mode)
|
1997-06-19 02:19:21 +00:00
|
|
|
|
(assoc mode (info-lookup->topic-cache topic)))
|
|
|
|
|
|
1998-04-02 04:36:00 +00:00
|
|
|
|
(defun info-lookup->initialized (topic mode)
|
1997-06-19 02:19:21 +00:00
|
|
|
|
(nth 1 (info-lookup->mode-cache topic mode)))
|
|
|
|
|
|
1998-04-02 04:36:00 +00:00
|
|
|
|
(defun info-lookup->completions (topic mode)
|
1997-06-19 02:19:21 +00:00
|
|
|
|
(or (info-lookup->initialized topic mode)
|
|
|
|
|
(info-lookup-setup-mode topic mode))
|
|
|
|
|
(nth 2 (info-lookup->mode-cache topic mode)))
|
|
|
|
|
|
1998-04-02 04:36:00 +00:00
|
|
|
|
(defun info-lookup->refer-modes (topic mode)
|
1997-06-19 02:19:21 +00:00
|
|
|
|
(or (info-lookup->initialized topic mode)
|
|
|
|
|
(info-lookup-setup-mode topic mode))
|
|
|
|
|
(nth 3 (info-lookup->mode-cache topic mode)))
|
|
|
|
|
|
1998-04-02 04:36:00 +00:00
|
|
|
|
(defun info-lookup->all-modes (topic mode)
|
1997-06-19 02:19:21 +00:00
|
|
|
|
(cons mode (info-lookup->refer-modes topic mode)))
|
|
|
|
|
|
1998-04-02 04:36:00 +00:00
|
|
|
|
(defun info-lookup-quick-all-modes (topic mode)
|
|
|
|
|
(cons mode (info-lookup->other-modes topic mode)))
|
|
|
|
|
|
1997-06-19 02:19:21 +00:00
|
|
|
|
;;;###autoload
|
|
|
|
|
(defun info-lookup-reset ()
|
|
|
|
|
"Throw away all cached data.
|
|
|
|
|
This command is useful if the user wants to start at the beginning without
|
|
|
|
|
quitting Emacs, for example, after some Info documents were updated on the
|
|
|
|
|
system."
|
|
|
|
|
(interactive)
|
|
|
|
|
(setq info-lookup-cache nil))
|
|
|
|
|
|
2004-10-13 02:11:05 +00:00
|
|
|
|
;;;###autoload (put 'info-lookup-symbol 'info-file "emacs")
|
1997-06-19 02:19:21 +00:00
|
|
|
|
;;;###autoload
|
|
|
|
|
(defun info-lookup-symbol (symbol &optional mode)
|
1999-06-12 03:52:13 +00:00
|
|
|
|
"Display the definition of SYMBOL, as found in the relevant manual.
|
2006-11-05 12:08:02 +00:00
|
|
|
|
When this command is called interactively, it reads SYMBOL from the
|
|
|
|
|
minibuffer. In the minibuffer, use M-n to yank the default argument
|
|
|
|
|
value into the minibuffer so you can edit it. The default symbol is the
|
|
|
|
|
one found at point.
|
1999-07-25 05:47:46 +00:00
|
|
|
|
|
|
|
|
|
With prefix arg a query for the symbol help mode is offered."
|
1997-06-19 02:19:21 +00:00
|
|
|
|
(interactive
|
1999-07-25 05:47:46 +00:00
|
|
|
|
(info-lookup-interactive-arguments 'symbol current-prefix-arg))
|
1997-06-19 02:19:21 +00:00
|
|
|
|
(info-lookup 'symbol symbol mode))
|
|
|
|
|
|
2004-10-13 02:11:05 +00:00
|
|
|
|
;;;###autoload (put 'info-lookup-file 'info-file "emacs")
|
1997-06-19 02:19:21 +00:00
|
|
|
|
;;;###autoload
|
|
|
|
|
(defun info-lookup-file (file &optional mode)
|
|
|
|
|
"Display the documentation of a file.
|
1999-06-12 03:52:13 +00:00
|
|
|
|
When this command is called interactively, it reads FILE from the minibuffer.
|
|
|
|
|
In the minibuffer, use M-n to yank the default file name
|
|
|
|
|
into the minibuffer so you can edit it.
|
1999-07-25 05:47:46 +00:00
|
|
|
|
The default file name is the one found at point.
|
|
|
|
|
|
|
|
|
|
With prefix arg a query for the file help mode is offered."
|
1997-06-19 02:19:21 +00:00
|
|
|
|
(interactive
|
1999-07-25 05:47:46 +00:00
|
|
|
|
(info-lookup-interactive-arguments 'file current-prefix-arg))
|
1997-06-19 02:19:21 +00:00
|
|
|
|
(info-lookup 'file file mode))
|
|
|
|
|
|
1999-07-25 05:47:46 +00:00
|
|
|
|
(defun info-lookup-interactive-arguments (topic &optional query)
|
|
|
|
|
"Read and return argument value (and help mode) for help topic TOPIC.
|
|
|
|
|
If optional argument QUERY is non-nil, query for the help mode."
|
|
|
|
|
(let* ((mode (cond (query
|
|
|
|
|
(info-lookup-change-mode topic))
|
|
|
|
|
((info-lookup->mode-value topic (info-lookup-select-mode))
|
|
|
|
|
info-lookup-mode)
|
|
|
|
|
((info-lookup-change-mode topic))))
|
1997-06-19 02:19:21 +00:00
|
|
|
|
(completions (info-lookup->completions topic mode))
|
|
|
|
|
(default (info-lookup-guess-default topic mode))
|
|
|
|
|
(completion-ignore-case (info-lookup->ignore-case topic mode))
|
|
|
|
|
(enable-recursive-minibuffers t)
|
|
|
|
|
(value (completing-read
|
1999-06-12 03:52:13 +00:00
|
|
|
|
(if default
|
1997-06-19 02:19:21 +00:00
|
|
|
|
(format "Describe %s (default %s): " topic default)
|
|
|
|
|
(format "Describe %s: " topic))
|
1999-06-12 03:52:13 +00:00
|
|
|
|
completions nil nil nil 'info-lookup-history default)))
|
1997-06-19 02:19:21 +00:00
|
|
|
|
(list (if (equal value "") default value) mode)))
|
|
|
|
|
|
1998-05-30 13:25:57 +00:00
|
|
|
|
(defun info-lookup-select-mode ()
|
|
|
|
|
(when (and (not info-lookup-mode) (buffer-file-name))
|
|
|
|
|
(let ((file-name (file-name-nondirectory (buffer-file-name)))
|
|
|
|
|
(file-name-alist info-lookup-file-name-alist))
|
|
|
|
|
(while (and (not info-lookup-mode) file-name-alist)
|
|
|
|
|
(when (string-match (caar file-name-alist) file-name)
|
|
|
|
|
(setq info-lookup-mode (cdar file-name-alist)))
|
|
|
|
|
(setq file-name-alist (cdr file-name-alist)))))
|
|
|
|
|
(or info-lookup-mode (setq info-lookup-mode major-mode)))
|
|
|
|
|
|
1997-06-19 02:19:21 +00:00
|
|
|
|
(defun info-lookup-change-mode (topic)
|
|
|
|
|
(let* ((completions (mapcar (lambda (arg)
|
|
|
|
|
(cons (symbol-name (car arg)) (car arg)))
|
|
|
|
|
(info-lookup->topic-value topic)))
|
|
|
|
|
(mode (completing-read
|
|
|
|
|
(format "Use %s help mode: " topic)
|
|
|
|
|
completions nil t nil 'info-lookup-history)))
|
|
|
|
|
(or (setq mode (cdr (assoc mode completions)))
|
|
|
|
|
(error "No %s help available" topic))
|
|
|
|
|
(or (info-lookup->mode-value topic mode)
|
|
|
|
|
(error "No %s help available for `%s'" topic mode))
|
|
|
|
|
(setq info-lookup-mode mode)))
|
|
|
|
|
|
|
|
|
|
(defun info-lookup (topic item mode)
|
|
|
|
|
"Display the documentation of a help item."
|
1998-05-30 13:25:57 +00:00
|
|
|
|
(or mode (setq mode (info-lookup-select-mode)))
|
1997-06-19 02:19:21 +00:00
|
|
|
|
(or (info-lookup->mode-value topic mode)
|
|
|
|
|
(error "No %s help available for `%s'" topic mode))
|
2002-12-23 17:54:31 +00:00
|
|
|
|
(let* ((completions (info-lookup->completions topic mode))
|
|
|
|
|
(ignore-case (info-lookup->ignore-case topic mode))
|
|
|
|
|
(entry (or (assoc (if ignore-case (downcase item) item) completions)
|
2003-12-29 19:18:09 +00:00
|
|
|
|
(assoc-string item completions t)
|
2002-12-23 17:54:31 +00:00
|
|
|
|
(error "Not documented as a %s: %s" topic (or item ""))))
|
|
|
|
|
(modes (info-lookup->all-modes topic mode))
|
|
|
|
|
(window (selected-window))
|
|
|
|
|
found doc-spec node prefix suffix doc-found)
|
2004-11-07 20:52:51 +00:00
|
|
|
|
(if (not (eq major-mode 'Info-mode))
|
|
|
|
|
(if (not info-lookup-other-window-flag)
|
|
|
|
|
(info)
|
|
|
|
|
(progn
|
|
|
|
|
(save-window-excursion (info))
|
|
|
|
|
;; Determine whether or not the Info buffer is visible in
|
|
|
|
|
;; another frame on the same display. If it is, simply raise
|
|
|
|
|
;; that frame. Otherwise, display it in another window.
|
|
|
|
|
(let* ((window (get-buffer-window "*info*" t))
|
|
|
|
|
(info-frame (and window (window-frame window))))
|
|
|
|
|
(if (and info-frame
|
|
|
|
|
(display-multi-frame-p)
|
|
|
|
|
(memq info-frame (frames-on-display-list))
|
|
|
|
|
(not (eq info-frame (selected-frame))))
|
|
|
|
|
(select-frame info-frame)
|
|
|
|
|
(switch-to-buffer-other-window "*info*"))))))
|
1997-06-19 02:19:21 +00:00
|
|
|
|
(while (and (not found) modes)
|
|
|
|
|
(setq doc-spec (info-lookup->doc-spec topic (car modes)))
|
|
|
|
|
(while (and (not found) doc-spec)
|
|
|
|
|
(setq node (nth 0 (car doc-spec))
|
|
|
|
|
prefix (nth 2 (car doc-spec))
|
|
|
|
|
suffix (nth 3 (car doc-spec)))
|
1998-01-20 20:09:39 +00:00
|
|
|
|
(when (condition-case error-data
|
1999-08-17 14:31:13 +00:00
|
|
|
|
(progn
|
1998-01-20 20:09:39 +00:00
|
|
|
|
(Info-goto-node node)
|
|
|
|
|
(setq doc-found t))
|
1999-08-17 14:31:13 +00:00
|
|
|
|
(error
|
1998-01-20 20:09:39 +00:00
|
|
|
|
(message "Cannot access Info node %s" node)
|
|
|
|
|
(sit-for 1)
|
|
|
|
|
nil))
|
|
|
|
|
(condition-case nil
|
|
|
|
|
(progn
|
2002-12-23 17:54:31 +00:00
|
|
|
|
;; Don't use Info-menu, it forces case-fold-search to t
|
|
|
|
|
(let ((case-fold-search nil))
|
|
|
|
|
(re-search-forward
|
|
|
|
|
(concat "^\\* " (regexp-quote (or (cdr entry) (car entry)))
|
|
|
|
|
":")))
|
|
|
|
|
(Info-follow-nearest-node)
|
1998-01-20 20:09:39 +00:00
|
|
|
|
(setq found t)
|
|
|
|
|
(if (or prefix suffix)
|
|
|
|
|
(let ((case-fold-search
|
|
|
|
|
(info-lookup->ignore-case topic (car modes)))
|
|
|
|
|
(buffer-read-only nil))
|
|
|
|
|
(goto-char (point-min))
|
|
|
|
|
(re-search-forward
|
2002-12-23 17:54:31 +00:00
|
|
|
|
(concat prefix (regexp-quote (car entry)) suffix))
|
1998-01-20 20:09:39 +00:00
|
|
|
|
(goto-char (match-beginning 0))
|
2000-03-12 15:29:12 +00:00
|
|
|
|
(and (display-color-p) info-lookup-highlight-face
|
1998-01-20 20:09:39 +00:00
|
|
|
|
;; Search again for ITEM so that the first
|
2002-01-25 05:06:14 +00:00
|
|
|
|
;; occurrence of ITEM will be highlighted.
|
2002-12-23 17:54:31 +00:00
|
|
|
|
(re-search-forward (regexp-quote (car entry)))
|
1998-01-20 20:09:39 +00:00
|
|
|
|
(let ((start (match-beginning 0))
|
|
|
|
|
(end (match-end 0)))
|
|
|
|
|
(if (overlayp info-lookup-highlight-overlay)
|
|
|
|
|
(move-overlay info-lookup-highlight-overlay
|
|
|
|
|
start end (current-buffer))
|
|
|
|
|
(setq info-lookup-highlight-overlay
|
|
|
|
|
(make-overlay start end))))
|
|
|
|
|
(overlay-put info-lookup-highlight-overlay
|
|
|
|
|
'face info-lookup-highlight-face)))))
|
|
|
|
|
(error nil)))
|
1997-06-19 02:19:21 +00:00
|
|
|
|
(setq doc-spec (cdr doc-spec)))
|
|
|
|
|
(setq modes (cdr modes)))
|
2002-12-23 17:54:31 +00:00
|
|
|
|
;; Alert the user if case was munged, and do this after bringing up the
|
|
|
|
|
;; info buffer since that can print messages
|
|
|
|
|
(unless (or ignore-case
|
|
|
|
|
(string-equal item (car entry)))
|
2002-12-28 21:28:56 +00:00
|
|
|
|
(message "Found in different case: %s" (car entry)))
|
1998-01-20 20:09:39 +00:00
|
|
|
|
(or doc-found
|
|
|
|
|
(error "Info documentation for lookup was not found"))
|
1997-06-19 02:19:21 +00:00
|
|
|
|
;; Don't leave the Info buffer if the help item couldn't be looked up.
|
|
|
|
|
(if (and info-lookup-other-window-flag found)
|
|
|
|
|
(select-window window))))
|
|
|
|
|
|
|
|
|
|
(defun info-lookup-setup-mode (topic mode)
|
|
|
|
|
"Initialize the internal data structure."
|
|
|
|
|
(or (info-lookup->initialized topic mode)
|
|
|
|
|
(let (cell data (initialized 0) completions refer-modes)
|
|
|
|
|
(if (not (info-lookup->mode-value topic mode))
|
|
|
|
|
(message "No %s help available for `%s'" topic mode)
|
|
|
|
|
;; Recursively setup cross references.
|
|
|
|
|
;; But refer only to non-void modes.
|
2004-04-23 20:44:54 +00:00
|
|
|
|
(dolist (arg (info-lookup->other-modes topic mode))
|
|
|
|
|
(or (info-lookup->initialized topic arg)
|
|
|
|
|
(info-lookup-setup-mode topic arg))
|
|
|
|
|
(and (eq (info-lookup->initialized topic arg) t)
|
|
|
|
|
(setq refer-modes (cons arg refer-modes))))
|
1997-06-19 02:19:21 +00:00
|
|
|
|
(setq refer-modes (nreverse refer-modes))
|
|
|
|
|
;; Build the full completion alist.
|
|
|
|
|
(setq completions
|
1999-07-22 00:45:00 +00:00
|
|
|
|
(nconc (condition-case nil
|
|
|
|
|
(info-lookup-make-completions topic mode)
|
|
|
|
|
(error nil))
|
1997-06-19 02:19:21 +00:00
|
|
|
|
(apply 'append
|
|
|
|
|
(mapcar (lambda (arg)
|
|
|
|
|
(info-lookup->completions topic arg))
|
|
|
|
|
refer-modes))))
|
|
|
|
|
(setq initialized t))
|
|
|
|
|
;; Update `info-lookup-cache'.
|
|
|
|
|
(setq cell (info-lookup->mode-cache topic mode)
|
|
|
|
|
data (list initialized completions refer-modes))
|
|
|
|
|
(if (not cell)
|
|
|
|
|
(setcdr (info-lookup->cache topic)
|
|
|
|
|
(cons (cons mode data) (info-lookup->topic-cache topic)))
|
|
|
|
|
(setcdr cell data))
|
|
|
|
|
initialized)))
|
|
|
|
|
|
|
|
|
|
(defun info-lookup-make-completions (topic mode)
|
|
|
|
|
"Create a unique alist from all index entries."
|
1997-12-26 10:47:20 +00:00
|
|
|
|
(let ((doc-spec (info-lookup->doc-spec topic mode))
|
|
|
|
|
(regexp (concat "^\\(" (info-lookup->regexp topic mode)
|
|
|
|
|
"\\)\\([ \t].*\\)?$"))
|
1998-01-20 20:09:39 +00:00
|
|
|
|
node trans entry item prefix result doc-found
|
1997-12-26 10:47:20 +00:00
|
|
|
|
(buffer (get-buffer-create " temp-info-look")))
|
|
|
|
|
(with-current-buffer buffer
|
|
|
|
|
(Info-mode))
|
|
|
|
|
(while doc-spec
|
|
|
|
|
(setq node (nth 0 (car doc-spec))
|
|
|
|
|
trans (cond ((eq (nth 1 (car doc-spec)) nil)
|
|
|
|
|
(lambda (arg)
|
|
|
|
|
(if (string-match regexp arg)
|
|
|
|
|
(match-string 1 arg))))
|
|
|
|
|
((stringp (nth 1 (car doc-spec)))
|
|
|
|
|
(setq prefix (nth 1 (car doc-spec)))
|
|
|
|
|
(lambda (arg)
|
|
|
|
|
(if (string-match "^\\([^: \t\n]+\\)" arg)
|
|
|
|
|
(concat prefix (match-string 1 arg)))))
|
|
|
|
|
(t (nth 1 (car doc-spec)))))
|
1998-01-20 20:09:39 +00:00
|
|
|
|
(with-current-buffer buffer
|
|
|
|
|
(message "Processing Info node `%s'..." node)
|
|
|
|
|
(when (condition-case error-data
|
1999-08-17 14:31:13 +00:00
|
|
|
|
(progn
|
1998-01-20 20:09:39 +00:00
|
|
|
|
(Info-goto-node node)
|
|
|
|
|
(setq doc-found t))
|
1999-08-17 14:31:13 +00:00
|
|
|
|
(error
|
1998-01-20 20:09:39 +00:00
|
|
|
|
(message "Cannot access Info node `%s'" node)
|
|
|
|
|
(sit-for 1)
|
|
|
|
|
nil))
|
|
|
|
|
(condition-case nil
|
|
|
|
|
(progn
|
|
|
|
|
(goto-char (point-min))
|
|
|
|
|
(and (search-forward "\n* Menu:" nil t)
|
2003-05-11 15:30:12 +00:00
|
|
|
|
(while (re-search-forward "\n\\* \\(.*\\): " nil t)
|
1998-01-20 20:09:39 +00:00
|
|
|
|
(setq entry (match-string 1)
|
|
|
|
|
item (funcall trans entry))
|
1998-10-02 14:35:09 +00:00
|
|
|
|
;; `trans' can return nil if the regexp doesn't match.
|
|
|
|
|
(when (and item
|
|
|
|
|
;; Sometimes there's more than one Menu:
|
1999-08-17 14:31:13 +00:00
|
|
|
|
(not (string= entry "Menu")))
|
1998-10-02 14:35:09 +00:00
|
|
|
|
(and (info-lookup->ignore-case topic mode)
|
|
|
|
|
(setq item (downcase item)))
|
|
|
|
|
(and (string-equal entry item)
|
|
|
|
|
(setq entry nil))
|
|
|
|
|
(and (or (assoc item result)
|
|
|
|
|
(setq result (cons (cons item entry)
|
|
|
|
|
result))))))))
|
1998-01-20 20:09:39 +00:00
|
|
|
|
(error nil))))
|
1997-12-26 10:47:20 +00:00
|
|
|
|
(message "Processing Info node `%s'...done" node)
|
|
|
|
|
(setq doc-spec (cdr doc-spec)))
|
1998-01-20 20:09:39 +00:00
|
|
|
|
(or doc-found
|
|
|
|
|
(error "Info documentation for lookup was not found"))
|
1997-12-26 10:47:20 +00:00
|
|
|
|
result))
|
1997-06-19 02:19:21 +00:00
|
|
|
|
|
|
|
|
|
(defun info-lookup-guess-default (topic mode)
|
1999-08-10 16:49:49 +00:00
|
|
|
|
"Return a guess for a symbol to look up, based on text around point.
|
|
|
|
|
Try all related modes applicable to TOPIC and MODE.
|
|
|
|
|
Return nil if there is nothing appropriate in the buffer near point."
|
1997-06-19 02:19:21 +00:00
|
|
|
|
(let ((modes (info-lookup->all-modes topic mode))
|
1999-08-10 16:49:49 +00:00
|
|
|
|
guess)
|
1997-06-19 02:19:21 +00:00
|
|
|
|
(while (and (not guess) modes)
|
|
|
|
|
(setq guess (info-lookup-guess-default* topic (car modes))
|
1999-08-10 16:49:49 +00:00
|
|
|
|
modes (cdr modes)))
|
1997-06-19 02:19:21 +00:00
|
|
|
|
;; Collapse whitespace characters.
|
1999-08-10 16:49:49 +00:00
|
|
|
|
(when guess
|
|
|
|
|
(let ((pos 0))
|
|
|
|
|
(while (string-match "[ \t\n]+" guess pos)
|
|
|
|
|
(setq pos (1+ (match-beginning 0)))
|
|
|
|
|
(setq guess (replace-match " " t t guess)))))
|
|
|
|
|
guess))
|
1997-06-19 02:19:21 +00:00
|
|
|
|
|
|
|
|
|
(defun info-lookup-guess-default* (topic mode)
|
|
|
|
|
(let ((case-fold-search (info-lookup->ignore-case topic mode))
|
|
|
|
|
(rule (or (info-lookup->parse-rule topic mode)
|
|
|
|
|
(info-lookup->regexp topic mode)))
|
|
|
|
|
(start (point)) end regexp subexp result)
|
1999-08-10 16:49:49 +00:00
|
|
|
|
(save-excursion
|
|
|
|
|
(if (symbolp rule)
|
|
|
|
|
(setq result (funcall rule))
|
|
|
|
|
(if (consp rule)
|
|
|
|
|
(setq regexp (car rule)
|
|
|
|
|
subexp (cdr rule))
|
|
|
|
|
(setq regexp rule
|
|
|
|
|
subexp 0))
|
1999-08-17 14:31:13 +00:00
|
|
|
|
;; If at start of symbol, don't go back to end of previous one.
|
|
|
|
|
(if (save-match-data
|
|
|
|
|
(looking-at "[ \t\n]"))
|
|
|
|
|
(skip-chars-backward " \t\n"))
|
|
|
|
|
(setq end (point))
|
1999-08-10 16:49:49 +00:00
|
|
|
|
(while (and (re-search-backward regexp nil t)
|
|
|
|
|
(looking-at regexp)
|
|
|
|
|
(>= (match-end 0) end))
|
|
|
|
|
(setq result (match-string subexp)))
|
|
|
|
|
(if (not result)
|
|
|
|
|
(progn
|
|
|
|
|
(goto-char start)
|
|
|
|
|
(skip-chars-forward " \t\n")
|
|
|
|
|
(and (looking-at regexp)
|
|
|
|
|
(setq result (match-string subexp)))))))
|
1997-06-19 02:19:21 +00:00
|
|
|
|
result))
|
|
|
|
|
|
|
|
|
|
(defun info-lookup-guess-c-symbol ()
|
|
|
|
|
"Get the C symbol at point."
|
|
|
|
|
(condition-case nil
|
|
|
|
|
(progn
|
1999-08-10 16:49:49 +00:00
|
|
|
|
(skip-syntax-backward "w_")
|
1997-06-19 02:19:21 +00:00
|
|
|
|
(let ((start (point)) prefix name)
|
|
|
|
|
;; Test for a leading `struct', `union', or `enum' keyword
|
|
|
|
|
;; but ignore names like `foo_struct'.
|
|
|
|
|
(setq prefix (and (< (skip-chars-backward " \t\n") 0)
|
|
|
|
|
(< (skip-chars-backward "_a-zA-Z0-9") 0)
|
|
|
|
|
(looking-at "\\(struct\\|union\\|enum\\)\\s ")
|
|
|
|
|
(concat (match-string 1) " ")))
|
|
|
|
|
(goto-char start)
|
|
|
|
|
(and (looking-at "[_a-zA-Z][_a-zA-Z0-9]*")
|
|
|
|
|
(setq name (match-string 0)))
|
|
|
|
|
;; Caveat! Look forward if point is at `struct' etc.
|
|
|
|
|
(and (not prefix)
|
|
|
|
|
(or (string-equal name "struct")
|
|
|
|
|
(string-equal name "union")
|
|
|
|
|
(string-equal name "enum"))
|
|
|
|
|
(looking-at "[a-z]+\\s +\\([_a-zA-Z][_a-zA-Z0-9]*\\)")
|
|
|
|
|
(setq prefix (concat name " ")
|
|
|
|
|
name (match-string 1)))
|
|
|
|
|
(and (or prefix name)
|
|
|
|
|
(concat prefix name))))
|
|
|
|
|
(error nil)))
|
|
|
|
|
|
2006-11-05 12:08:02 +00:00
|
|
|
|
(defun info-lookup-guess-custom-symbol ()
|
|
|
|
|
"Get symbol at point in custom buffers."
|
|
|
|
|
(condition-case nil
|
|
|
|
|
(save-excursion
|
|
|
|
|
(let ((case-fold-search t)
|
|
|
|
|
(ignored-chars "][()`',:.\" \t\n")
|
|
|
|
|
(significant-chars "^][()`',:.\" \t\n")
|
|
|
|
|
beg end)
|
|
|
|
|
(cond
|
|
|
|
|
((and (memq (get-char-property (point) 'face)
|
|
|
|
|
'(custom-variable-tag custom-variable-tag-face))
|
|
|
|
|
(setq beg (previous-single-char-property-change
|
|
|
|
|
(point) 'face nil (line-beginning-position)))
|
|
|
|
|
(setq end (next-single-char-property-change
|
|
|
|
|
(point) 'face nil (line-end-position)))
|
|
|
|
|
(> end beg))
|
|
|
|
|
(subst-char-in-string
|
2006-11-27 13:53:56 +00:00
|
|
|
|
?\s ?\- (buffer-substring-no-properties beg end)))
|
2006-11-05 12:08:02 +00:00
|
|
|
|
((or (and (looking-at (concat "[" significant-chars "]"))
|
|
|
|
|
(save-excursion
|
|
|
|
|
(skip-chars-backward significant-chars)
|
|
|
|
|
(setq beg (point)))
|
|
|
|
|
(skip-chars-forward significant-chars)
|
|
|
|
|
(setq end (point))
|
|
|
|
|
(> end beg))
|
|
|
|
|
(and (looking-at "[ \t\n]")
|
|
|
|
|
(looking-back (concat "[" significant-chars "]"))
|
|
|
|
|
(setq end (point))
|
|
|
|
|
(skip-chars-backward significant-chars)
|
|
|
|
|
(setq beg (point))
|
|
|
|
|
(> end beg))
|
|
|
|
|
(and (skip-chars-forward ignored-chars)
|
|
|
|
|
(setq beg (point))
|
|
|
|
|
(skip-chars-forward significant-chars)
|
|
|
|
|
(setq end (point))
|
|
|
|
|
(> end beg)))
|
|
|
|
|
(buffer-substring-no-properties beg end)))))
|
|
|
|
|
(error nil)))
|
|
|
|
|
|
1997-06-19 02:19:21 +00:00
|
|
|
|
;;;###autoload
|
|
|
|
|
(defun info-complete-symbol (&optional mode)
|
|
|
|
|
"Perform completion on symbol preceding point."
|
1997-06-19 02:44:46 +00:00
|
|
|
|
(interactive)
|
|
|
|
|
(info-complete 'symbol
|
|
|
|
|
(or mode
|
|
|
|
|
(if (info-lookup->mode-value
|
1998-05-30 13:25:57 +00:00
|
|
|
|
'symbol (info-lookup-select-mode))
|
|
|
|
|
info-lookup-mode
|
1997-06-19 02:44:46 +00:00
|
|
|
|
(info-lookup-change-mode 'symbol)))))
|
1997-06-19 02:19:21 +00:00
|
|
|
|
|
|
|
|
|
;;;###autoload
|
|
|
|
|
(defun info-complete-file (&optional mode)
|
|
|
|
|
"Perform completion on file preceding point."
|
1998-02-25 22:45:29 +00:00
|
|
|
|
(interactive)
|
|
|
|
|
(info-complete 'file
|
|
|
|
|
(or mode
|
|
|
|
|
(if (info-lookup->mode-value
|
1998-05-30 13:25:57 +00:00
|
|
|
|
'file (info-lookup-select-mode))
|
|
|
|
|
info-lookup-mode
|
1998-02-25 22:45:29 +00:00
|
|
|
|
(info-lookup-change-mode 'file)))))
|
1997-06-19 02:19:21 +00:00
|
|
|
|
|
|
|
|
|
(defun info-complete (topic mode)
|
|
|
|
|
"Try to complete a help item."
|
|
|
|
|
(barf-if-buffer-read-only)
|
1998-05-30 13:25:57 +00:00
|
|
|
|
(or mode (setq mode (info-lookup-select-mode)))
|
1997-06-19 02:19:21 +00:00
|
|
|
|
(or (info-lookup->mode-value topic mode)
|
|
|
|
|
(error "No %s completion available for `%s'" topic mode))
|
1998-04-02 04:36:00 +00:00
|
|
|
|
(let ((modes (info-lookup-quick-all-modes topic mode))
|
|
|
|
|
(start (point))
|
|
|
|
|
try)
|
1997-06-19 02:19:21 +00:00
|
|
|
|
(while (and (not try) modes)
|
|
|
|
|
(setq mode (car modes)
|
|
|
|
|
modes (cdr modes)
|
|
|
|
|
try (info-lookup-guess-default* topic mode))
|
|
|
|
|
(goto-char start))
|
|
|
|
|
(and (not try)
|
1998-02-17 03:25:05 +00:00
|
|
|
|
(error "Found no %S to complete" topic))
|
1998-04-02 04:36:00 +00:00
|
|
|
|
(let ((completions (info-lookup->completions topic mode))
|
|
|
|
|
(completion-ignore-case (info-lookup->ignore-case topic mode))
|
|
|
|
|
completion)
|
|
|
|
|
(setq completion (try-completion try completions))
|
|
|
|
|
(cond ((not completion)
|
|
|
|
|
(ding)
|
|
|
|
|
(message "No match"))
|
|
|
|
|
((stringp completion)
|
|
|
|
|
(or (assoc completion completions)
|
|
|
|
|
(setq completion (completing-read
|
|
|
|
|
(format "Complete %S: " topic)
|
|
|
|
|
completions nil t completion
|
|
|
|
|
info-lookup-history)))
|
1999-08-17 14:31:13 +00:00
|
|
|
|
;; Find the original symbol and zap it.
|
|
|
|
|
(end-of-line)
|
|
|
|
|
(while (and (search-backward try nil t)
|
|
|
|
|
(< start (point))))
|
|
|
|
|
(replace-match "")
|
1998-04-02 04:36:00 +00:00
|
|
|
|
(insert completion))
|
|
|
|
|
(t
|
|
|
|
|
(message "%s is complete"
|
|
|
|
|
(capitalize (prin1-to-string topic))))))))
|
1998-02-17 03:25:05 +00:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;;; Initialize some common modes.
|
|
|
|
|
|
|
|
|
|
(info-lookup-maybe-add-help
|
|
|
|
|
:mode 'c-mode :topic 'symbol
|
|
|
|
|
:regexp "\\(struct \\|union \\|enum \\)?[_a-zA-Z][_a-zA-Z0-9]*"
|
|
|
|
|
:doc-spec '(("(libc)Function Index" nil
|
2004-11-07 20:52:51 +00:00
|
|
|
|
"^[ \t]+-+ \\(Function\\|Macro\\): .*\\<" "\\>")
|
2005-01-15 14:00:03 +00:00
|
|
|
|
;; prefix/suffix has to match things like
|
|
|
|
|
;; " -- Macro: int F_DUPFD"
|
|
|
|
|
;; " -- Variable: char * tzname [2]"
|
|
|
|
|
;; "`DBL_MAX'" (texinfo @table)
|
|
|
|
|
;; suffix "\\>" is not used because that sends DBL_MAX to
|
|
|
|
|
;; DBL_MAX_EXP ("_" is a non-word char)
|
1998-02-17 03:25:05 +00:00
|
|
|
|
("(libc)Variable Index" nil
|
2005-01-15 14:00:03 +00:00
|
|
|
|
"^\\([ \t]+-+ \\(Variable\\|Macro\\): .*\\<\\|`\\)"
|
|
|
|
|
"\\( \\|'?$\\)")
|
1998-02-17 03:25:05 +00:00
|
|
|
|
("(libc)Type Index" nil
|
2004-11-07 20:52:51 +00:00
|
|
|
|
"^[ \t]+-+ Data Type: \\<" "\\>")
|
1998-02-17 03:25:05 +00:00
|
|
|
|
("(termcap)Var Index" nil
|
|
|
|
|
"^[ \t]*`" "'"))
|
|
|
|
|
:parse-rule 'info-lookup-guess-c-symbol)
|
|
|
|
|
|
|
|
|
|
(info-lookup-maybe-add-help
|
|
|
|
|
:mode 'c-mode :topic 'file
|
|
|
|
|
:regexp "[_a-zA-Z0-9./+-]+"
|
|
|
|
|
:doc-spec '(("(libc)File Index")))
|
|
|
|
|
|
|
|
|
|
(info-lookup-maybe-add-help
|
|
|
|
|
:mode 'bison-mode
|
|
|
|
|
:regexp "[:;|]\\|%\\([%{}]\\|[_a-z]+\\)\\|YY[_A-Z]+\\|yy[_a-z]+"
|
|
|
|
|
:doc-spec '(("(bison)Index" nil
|
|
|
|
|
"`" "'"))
|
|
|
|
|
:parse-rule "[:;|]\\|%\\([%{}]\\|[_a-zA-Z][_a-zA-Z0-9]*\\)"
|
|
|
|
|
:other-modes '(c-mode))
|
|
|
|
|
|
|
|
|
|
(info-lookup-maybe-add-help
|
|
|
|
|
:mode 'makefile-mode
|
|
|
|
|
:regexp "\\$[^({]\\|\\.[_A-Z]*\\|[_a-zA-Z][_a-zA-Z0-9-]*"
|
|
|
|
|
:doc-spec '(("(make)Name Index" nil
|
2001-11-15 12:25:20 +00:00
|
|
|
|
"^[ \t]*`" "'")
|
|
|
|
|
("(automake)Macro and Variable Index" nil
|
1998-02-17 03:25:05 +00:00
|
|
|
|
"^[ \t]*`" "'"))
|
2001-11-15 12:25:20 +00:00
|
|
|
|
:parse-rule "\\$[^({]\\|\\.[_A-Z]*\\|[_a-zA-Z0-9-]+"
|
|
|
|
|
:other-modes '(automake-mode))
|
1998-02-17 03:25:05 +00:00
|
|
|
|
|
|
|
|
|
(info-lookup-maybe-add-help
|
|
|
|
|
:mode 'texinfo-mode
|
|
|
|
|
:regexp "@\\([a-zA-Z]+\\|[^a-zA-Z]\\)"
|
|
|
|
|
:doc-spec '(("(texinfo)Command and Variable Index"
|
|
|
|
|
;; Ignore Emacs commands and prepend a `@'.
|
|
|
|
|
(lambda (item)
|
|
|
|
|
(if (string-match "^\\([a-zA-Z]+\\|[^a-zA-Z]\\)\\( .*\\)?$" item)
|
|
|
|
|
(concat "@" (match-string 1 item))))
|
2004-11-07 20:52:51 +00:00
|
|
|
|
"`" "[' ]")))
|
1998-02-17 03:25:05 +00:00
|
|
|
|
|
|
|
|
|
(info-lookup-maybe-add-help
|
|
|
|
|
:mode 'm4-mode
|
|
|
|
|
:regexp "[_a-zA-Z][_a-zA-Z0-9]*"
|
|
|
|
|
:doc-spec '(("(m4)Macro index"))
|
|
|
|
|
:parse-rule "[_a-zA-Z0-9]+")
|
|
|
|
|
|
|
|
|
|
(info-lookup-maybe-add-help
|
|
|
|
|
:mode 'autoconf-mode
|
|
|
|
|
:regexp "A[CM]_[_A-Z0-9]+"
|
2003-05-25 21:08:21 +00:00
|
|
|
|
:doc-spec '(;; Autoconf Macro Index entries are without an "AC_" prefix,
|
|
|
|
|
;; but with "AH_" or "AU_" for those. So add "AC_" if there
|
|
|
|
|
;; isn't already an "A._".
|
|
|
|
|
("(autoconf)Autoconf Macro Index"
|
|
|
|
|
(lambda (item)
|
|
|
|
|
(if (string-match "^A._" item) item (concat "AC_" item)))
|
2004-11-07 20:52:51 +00:00
|
|
|
|
"^[ \t]+-+ \\(Macro\\|Variable\\): .*\\<" "\\>")
|
2003-05-25 21:08:21 +00:00
|
|
|
|
;; M4 Macro Index entries are without "AS_" prefixes, and
|
|
|
|
|
;; mostly without "m4_" prefixes. "dnl" is an exception, not
|
|
|
|
|
;; wanting any prefix. So AS_ is added back to upper-case
|
|
|
|
|
;; names, m4_ to others which don't already an m4_.
|
|
|
|
|
("(autoconf)M4 Macro Index"
|
|
|
|
|
(lambda (item)
|
|
|
|
|
(let ((case-fold-search nil))
|
|
|
|
|
(cond ((or (string-equal item "dnl")
|
|
|
|
|
(string-match "^m4_" item))
|
|
|
|
|
item)
|
|
|
|
|
((string-match "^[A-Z0-9_]+$" item)
|
|
|
|
|
(concat "AS_" item))
|
|
|
|
|
(t
|
|
|
|
|
(concat "m4_" item)))))
|
2004-11-07 20:52:51 +00:00
|
|
|
|
"^[ \t]+-+ Macro: .*\\<" "\\>")
|
2003-05-25 21:08:21 +00:00
|
|
|
|
;; Autotest Macro Index entries are without "AT_".
|
|
|
|
|
("(autoconf)Autotest Macro Index" "AT_"
|
2004-11-07 20:52:51 +00:00
|
|
|
|
"^[ \t]+-+ Macro: .*\\<" "\\>")
|
2003-05-25 21:08:21 +00:00
|
|
|
|
;; This is for older versions (probably pre autoconf 2.5x):
|
2002-07-18 18:19:18 +00:00
|
|
|
|
("(autoconf)Macro Index" "AC_"
|
2004-11-07 20:52:51 +00:00
|
|
|
|
"^[ \t]+-+ \\(Macro\\|Variable\\): .*\\<" "\\>")
|
2003-05-25 21:08:21 +00:00
|
|
|
|
;; Automake has index entries for its notes on various autoconf
|
|
|
|
|
;; macros (eg. AC_PROG_CC). Ensure this is after the autoconf
|
|
|
|
|
;; index, so as to prefer the autoconf docs.
|
2001-11-15 12:25:20 +00:00
|
|
|
|
("(automake)Macro and Variable Index" nil
|
1998-02-17 03:25:05 +00:00
|
|
|
|
"^[ \t]*`" "'"))
|
|
|
|
|
;; Autoconf symbols are M4 macros. Thus use M4's parser.
|
|
|
|
|
:parse-rule 'ignore
|
|
|
|
|
:other-modes '(m4-mode))
|
|
|
|
|
|
|
|
|
|
(info-lookup-maybe-add-help
|
|
|
|
|
:mode 'awk-mode
|
|
|
|
|
:regexp "[_a-zA-Z]+"
|
|
|
|
|
:doc-spec '(("(gawk)Index"
|
|
|
|
|
(lambda (item)
|
|
|
|
|
(let ((case-fold-search nil))
|
|
|
|
|
(cond
|
|
|
|
|
;; `BEGIN' and `END'.
|
|
|
|
|
((string-match "^\\([A-Z]+\\) special pattern\\b" item)
|
|
|
|
|
(match-string 1 item))
|
|
|
|
|
;; `if', `while', `do', ...
|
|
|
|
|
((string-match "^\\([a-z]+\\) statement\\b" item)
|
|
|
|
|
(if (not (string-equal (match-string 1 item) "control"))
|
|
|
|
|
(match-string 1 item)))
|
|
|
|
|
;; `NR', `NF', ...
|
|
|
|
|
((string-match "^[A-Z]+$" item)
|
|
|
|
|
item)
|
|
|
|
|
;; Built-in functions (matches to many entries).
|
|
|
|
|
((string-match "^[a-z]+$" item)
|
|
|
|
|
item))))
|
|
|
|
|
"`" "\\([ \t]*([^)]*)\\)?'")))
|
|
|
|
|
|
|
|
|
|
(info-lookup-maybe-add-help
|
|
|
|
|
:mode 'perl-mode
|
|
|
|
|
:regexp "[$@%][^a-zA-Z]\\|\\$\\^[A-Z]\\|[$@%]?[a-zA-Z][_a-zA-Z0-9]*"
|
|
|
|
|
:doc-spec '(("(perl5)Function Index"
|
|
|
|
|
(lambda (item)
|
|
|
|
|
(if (string-match "^\\([a-zA-Z0-9]+\\)" item)
|
|
|
|
|
(match-string 1 item)))
|
|
|
|
|
"^" "\\b")
|
|
|
|
|
("(perl5)Variable Index"
|
|
|
|
|
(lambda (item)
|
|
|
|
|
;; Work around bad formatted array variables.
|
|
|
|
|
(let ((sym (cond ((or (string-match "^\\$\\(.\\|@@\\)$" item)
|
|
|
|
|
(string-match "^\\$\\^[A-Z]$" item))
|
|
|
|
|
item)
|
|
|
|
|
((string-match
|
|
|
|
|
"^\\([$%@]\\|@@\\)?[_a-zA-Z0-9]+" item)
|
|
|
|
|
(match-string 0 item))
|
|
|
|
|
(t ""))))
|
|
|
|
|
(if (string-match "@@" sym)
|
|
|
|
|
(setq sym (concat (substring sym 0 (match-beginning 0))
|
|
|
|
|
(substring sym (1- (match-end 0))))))
|
|
|
|
|
(if (string-equal sym "") nil sym)))
|
|
|
|
|
"^" "\\b"))
|
|
|
|
|
:parse-rule "[$@%]?\\([_a-zA-Z0-9]+\\|[^a-zA-Z]\\)")
|
|
|
|
|
|
2001-03-06 23:42:00 +00:00
|
|
|
|
(info-lookup-maybe-add-help
|
|
|
|
|
:mode 'cperl-mode
|
|
|
|
|
:regexp "[$@%][^a-zA-Z]\\|\\$\\^[A-Z]\\|[$@%]?[a-zA-Z][_a-zA-Z0-9]*"
|
|
|
|
|
:other-modes '(perl-mode))
|
|
|
|
|
|
1998-02-17 03:25:05 +00:00
|
|
|
|
(info-lookup-maybe-add-help
|
|
|
|
|
:mode 'latex-mode
|
|
|
|
|
:regexp "\\\\\\([a-zA-Z]+\\|[^a-zA-Z]\\)"
|
1999-07-22 00:45:00 +00:00
|
|
|
|
:doc-spec '(("(latex)Command Index" nil
|
1998-02-17 03:25:05 +00:00
|
|
|
|
"`" "\\({[^}]*}\\)?'")))
|
|
|
|
|
|
|
|
|
|
(info-lookup-maybe-add-help
|
|
|
|
|
:mode 'emacs-lisp-mode
|
2006-11-05 12:08:02 +00:00
|
|
|
|
:regexp "[^][()`',\" \t\n]+"
|
2003-04-05 12:59:38 +00:00
|
|
|
|
:doc-spec '(;; Commands with key sequences appear in nodes as `foo' and
|
|
|
|
|
;; those without as `M-x foo'.
|
|
|
|
|
("(emacs)Command Index" nil "`\\(M-x[ \t\n]+\\)?" "'")
|
|
|
|
|
;; Variables normally appear in nodes as just `foo'.
|
|
|
|
|
("(emacs)Variable Index" nil "`" "'")
|
|
|
|
|
;; Almost all functions, variables, etc appear in nodes as
|
2004-11-07 20:52:51 +00:00
|
|
|
|
;; " -- Function: foo" etc. A small number of aliases and
|
2003-04-05 12:59:38 +00:00
|
|
|
|
;; symbols appear only as `foo', and will miss out on exact
|
|
|
|
|
;; positions. Allowing `foo' would hit too many false matches
|
|
|
|
|
;; for things that should go to Function: etc, and those latter
|
|
|
|
|
;; are much more important. Perhaps this could change if some
|
|
|
|
|
;; sort of fallback match scheme existed.
|
2004-11-07 20:52:51 +00:00
|
|
|
|
("(elisp)Index" nil "^ -+ .*: " "\\( \\|$\\)")))
|
1998-02-17 03:25:05 +00:00
|
|
|
|
|
|
|
|
|
(info-lookup-maybe-add-help
|
|
|
|
|
:mode 'lisp-interaction-mode
|
2006-11-05 12:08:02 +00:00
|
|
|
|
:regexp "[^][()`',\" \t\n]+"
|
1998-02-17 03:25:05 +00:00
|
|
|
|
:parse-rule 'ignore
|
|
|
|
|
:other-modes '(emacs-lisp-mode))
|
|
|
|
|
|
1998-04-02 04:36:00 +00:00
|
|
|
|
(info-lookup-maybe-add-help
|
|
|
|
|
:mode 'lisp-mode
|
2006-11-05 12:08:02 +00:00
|
|
|
|
:regexp "[^()`',\" \t\n]+"
|
1998-04-02 04:36:00 +00:00
|
|
|
|
:parse-rule 'ignore
|
|
|
|
|
:other-modes '(emacs-lisp-mode))
|
|
|
|
|
|
1998-05-30 13:25:57 +00:00
|
|
|
|
(info-lookup-maybe-add-help
|
|
|
|
|
:mode 'scheme-mode
|
2004-02-27 17:27:25 +00:00
|
|
|
|
:regexp "[^()`',\" \t\n]+"
|
1998-05-30 13:25:57 +00:00
|
|
|
|
:ignore-case t
|
1998-10-02 14:35:09 +00:00
|
|
|
|
;; Aubrey Jaffer's rendition from <URL:ftp://ftp-swiss.ai.mit.edu/pub/scm>
|
1998-05-30 13:25:57 +00:00
|
|
|
|
:doc-spec '(("(r5rs)Index" nil
|
2004-11-07 20:52:51 +00:00
|
|
|
|
"^[ \t]+-+ [^:]+:[ \t]*" "\\b")))
|
1998-05-30 13:25:57 +00:00
|
|
|
|
|
1998-09-29 08:45:12 +00:00
|
|
|
|
(info-lookup-maybe-add-help
|
|
|
|
|
:mode 'octave-mode
|
|
|
|
|
:regexp "[_a-zA-Z0-9]+"
|
2003-04-02 21:38:43 +00:00
|
|
|
|
:doc-spec '(("(octave)Function Index" nil
|
2004-11-07 20:52:51 +00:00
|
|
|
|
"^ -+ [^:]+:[ ]+\\(\\[[^=]*=[ ]+\\)?" nil)
|
|
|
|
|
("(octave)Variable Index" nil "^ -+ [^:]+:[ ]+" nil)
|
1998-09-29 08:45:12 +00:00
|
|
|
|
;; Catch lines of the form "xyz statement"
|
1999-08-17 14:31:13 +00:00
|
|
|
|
("(octave)Concept Index"
|
1998-09-29 08:45:12 +00:00
|
|
|
|
(lambda (item)
|
|
|
|
|
(cond
|
|
|
|
|
((string-match "^\\([A-Z]+\\) statement\\b" item)
|
|
|
|
|
(match-string 1 item))
|
|
|
|
|
(t nil)))
|
2004-11-07 20:52:51 +00:00
|
|
|
|
nil; "^ -+ [^:]+:[ ]+" don't think this prefix is useful here.
|
1998-09-29 08:45:12 +00:00
|
|
|
|
nil)))
|
2003-03-30 20:31:23 +00:00
|
|
|
|
|
2004-02-01 13:52:33 +00:00
|
|
|
|
(info-lookup-maybe-add-help
|
|
|
|
|
:mode 'maxima-mode
|
|
|
|
|
:ignore-case t
|
2006-10-13 14:52:48 +00:00
|
|
|
|
:regexp "[a-zA-Z0-9_%]+"
|
2004-11-07 20:52:51 +00:00
|
|
|
|
:doc-spec '( ("(maxima)Function and Variable Index" nil
|
|
|
|
|
"^ -+ [^:]+:[ ]+\\(\\[[^=]*=[ ]+\\)?" nil)))
|
2004-02-01 13:52:33 +00:00
|
|
|
|
|
|
|
|
|
(info-lookup-maybe-add-help
|
|
|
|
|
:mode 'inferior-maxima-mode
|
2006-10-13 14:52:48 +00:00
|
|
|
|
:regexp "[a-zA-Z0-9_%]+"
|
2004-02-01 13:52:33 +00:00
|
|
|
|
:other-modes '(maxima-mode))
|
|
|
|
|
|
2003-03-30 20:31:23 +00:00
|
|
|
|
;; coreutils and bash builtins overlap in places, eg. printf, so there's a
|
2003-04-02 21:38:43 +00:00
|
|
|
|
;; question which should come first. Some of the coreutils descriptions are
|
2003-03-30 20:31:23 +00:00
|
|
|
|
;; more detailed, but if bash is usually /bin/sh on a GNU system then the
|
|
|
|
|
;; builtins will be what's normally run.
|
|
|
|
|
;;
|
|
|
|
|
;; Maybe special variables like $? should be matched as $?, not just ?.
|
|
|
|
|
;; This would avoid a clash between variable $! and negation !, or variable
|
|
|
|
|
;; $# and comment # (though comment # is not currently indexed in bash).
|
|
|
|
|
;; Unfortunately if $? etc is the symbol, then we wouldn't be taken to the
|
|
|
|
|
;; exact spot in the relevant node, since the bash manual has just `?' etc
|
|
|
|
|
;; there. Maybe an extension to the prefix/suffix scheme could help this.
|
|
|
|
|
|
|
|
|
|
(info-lookup-maybe-add-help
|
|
|
|
|
:mode 'sh-mode :topic 'symbol
|
|
|
|
|
;; bash has "." and ":" in its index, but those chars will probably never
|
|
|
|
|
;; work in info, so don't bother matching them in the regexp.
|
|
|
|
|
:regexp "\\([a-zA-Z0-9_-]+\\|[!{}@*#?$]\\|\\[\\[?\\|]]?\\)"
|
|
|
|
|
:doc-spec '(("(bash)Builtin Index" nil "^`" "[ .']")
|
|
|
|
|
("(bash)Reserved Word Index" nil "^`" "[ .']")
|
|
|
|
|
("(bash)Variable Index" nil "^`" "[ .']")
|
|
|
|
|
;; coreutils (version 4.5.10) doesn't have a separate program
|
|
|
|
|
;; index, so exclude extraneous stuff (most of it) by demanding
|
|
|
|
|
;; "[a-z]+" in the trans-func.
|
|
|
|
|
("(coreutils)Index"
|
|
|
|
|
(lambda (item) (if (string-match "\\`[a-z]+\\'" item) item)))
|
|
|
|
|
;; diff (version 2.8.1) has only a few programs, index entries
|
|
|
|
|
;; are things like "foo invocation".
|
|
|
|
|
("(diff)Index"
|
|
|
|
|
(lambda (item)
|
|
|
|
|
(if (string-match "\\`\\([a-z]+\\) invocation\\'" item)
|
|
|
|
|
(match-string 1 item))))
|
|
|
|
|
;; there's no plain "sed" index entry as such, mung another
|
|
|
|
|
;; hopefully unique one to get to the invocation section
|
|
|
|
|
("(sed)Concept Index"
|
|
|
|
|
(lambda (item)
|
|
|
|
|
(if (string-equal item "Standard input, processing as input")
|
|
|
|
|
"sed")))
|
|
|
|
|
;; there's no plain "awk" or "gawk" index entries, mung other
|
|
|
|
|
;; hopefully unique ones to get to the command line options
|
|
|
|
|
("(gawk)Index"
|
|
|
|
|
(lambda (item)
|
|
|
|
|
(cond ((string-equal item "gawk, extensions, disabling")
|
|
|
|
|
"awk")
|
|
|
|
|
((string-equal item "gawk, versions of, information about, printing")
|
|
|
|
|
"gawk"))))))
|
2004-04-23 20:44:54 +00:00
|
|
|
|
|
2004-04-29 19:09:20 +00:00
|
|
|
|
;; This misses some things which occur as node names but not in the
|
|
|
|
|
;; index. Unfortunately it also picks up the wrong one of multiple
|
|
|
|
|
;; entries for the same term in some cases. --fx
|
2004-04-23 20:44:54 +00:00
|
|
|
|
(info-lookup-maybe-add-help
|
|
|
|
|
:mode 'cfengine-mode
|
2004-12-06 14:09:13 +00:00
|
|
|
|
:regexp "[[:alnum:]_]+\\(?:()\\)?"
|
2004-04-29 19:09:20 +00:00
|
|
|
|
:doc-spec '(("(cfengine-Reference)Variable Index"
|
|
|
|
|
(lambda (item)
|
|
|
|
|
;; Index entries may be like `IsPlain()'
|
|
|
|
|
(if (string-match "\\([[:alnum:]_]+\\)()" item)
|
|
|
|
|
(match-string 1 item)
|
|
|
|
|
item))
|
|
|
|
|
;; This gets functions in evaluated classes. Other
|
|
|
|
|
;; possible patterns don't seem to work too well.
|
|
|
|
|
"`" "(")))
|
2006-11-05 12:08:02 +00:00
|
|
|
|
|
|
|
|
|
(info-lookup-maybe-add-help
|
|
|
|
|
:mode 'custom-mode
|
|
|
|
|
:ignore-case t
|
|
|
|
|
:regexp "[^][()`',:\" \t\n]+"
|
|
|
|
|
:parse-rule 'info-lookup-guess-custom-symbol
|
|
|
|
|
:other-modes '(emacs-lisp-mode))
|
|
|
|
|
|
|
|
|
|
(info-lookup-maybe-add-help
|
|
|
|
|
:mode 'help-mode
|
|
|
|
|
:regexp "[^][()`',:\" \t\n]+"
|
|
|
|
|
:other-modes '(emacs-lisp-mode))
|
1998-02-17 03:25:05 +00:00
|
|
|
|
|
1997-06-19 02:19:21 +00:00
|
|
|
|
(provide 'info-look)
|
|
|
|
|
|
2003-09-01 15:45:59 +00:00
|
|
|
|
;;; arch-tag: 0f1e3ea3-32a2-4461-bbab-3cff93539a74
|
1997-06-19 02:19:21 +00:00
|
|
|
|
;;; info-look.el ends here
|