;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:46:32 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/info-look.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`info-look.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\302\303\304\305\306\307\306\310&\207" [require info custom-declare-group info-lookup nil "Major mode sensitive help agent." :group help languages] 8) #@174 Symbol of the current buffer's help mode. Help is provided according to the buffer's major mode if value is nil. Automatically becomes buffer local when set in any fashion. (defvar info-lookup-mode nil (#$ . 798)) (make-variable-buffer-local 'info-lookup-mode) #@57 Non-nil means pop up the Info buffer in another window. (custom-declare-variable 'info-lookup-other-window-flag 't '(#$ . 1065) :group 'info-lookup :type 'boolean) #@97 Face for highlighting looked up help items. Setting this variable to nil disables highlighting. (custom-declare-variable 'info-lookup-highlight-face ''highlight '(#$ . 1235) :group 'info-lookup :type 'face) #@39 Overlay object used for highlighting. (defvar info-lookup-highlight-overlay nil (#$ . 1448)) #@194 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. (custom-declare-variable 'info-lookup-file-name-alist ''(("\\`configure\\.in\\'" . autoconf-mode) ("\\`ac\\(local\\|site\\|include\\)\\.m4\\'" . autoconf-mode)) '(#$ . 1548) :group 'info-lookup :type '(repeat (cons (string :tag "Regexp") (symbol :tag "Mode")))) #@34 History of previous input lines. (defvar info-lookup-history nil (#$ . 2009)) #@1500 Alist of known help topics. Cons cells are of the form (HELP-TOPIC . HELP-DATA) HELP-TOPIC is the symbol of a help topic. HELP-DATA is a HELP-TOPIC's public data set. 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. (defvar info-lookup-alist nil (#$ . 2095)) (defalias 'info-lookup->topic-value #[(topic) "\302 \"A\207" [topic info-lookup-alist assoc] 3]) (put 'info-lookup->topic-value 'byte-optimizer 'byte-compile-inline-expand) (defalias 'info-lookup->mode-value #[(topic mode) "\303 \303 \n\"A)\"\207" [mode topic info-lookup-alist assoc] 5]) (put 'info-lookup->mode-value 'byte-optimizer 'byte-compile-inline-expand) (defalias 'info-lookup->regexp #[(topic mode) " \303 \303\n\"A)\"*A@\207" [topic mode info-lookup-alist assoc] 5]) (put 'info-lookup->regexp 'byte-optimizer 'byte-compile-inline-expand) (defalias 'info-lookup->ignore-case #[(topic mode) "\303 \304 \304\n\"A)\"*8\207" [topic mode info-lookup-alist 2 assoc] 6]) (put 'info-lookup->ignore-case 'byte-optimizer 'byte-compile-inline-expand) (defalias 'info-lookup->doc-spec #[(topic mode) "\303 \304 \304\n\"A)\"*8\207" [topic mode info-lookup-alist 3 assoc] 6]) (put 'info-lookup->doc-spec 'byte-optimizer 'byte-compile-inline-expand) (defalias 'info-lookup->parse-rule #[(topic mode) "\303 \304 \304\n\"A)\"*8\207" [topic mode info-lookup-alist 4 assoc] 6]) (put 'info-lookup->parse-rule 'byte-optimizer 'byte-compile-inline-expand) (defalias 'info-lookup->other-modes #[(topic mode) "\303 \304 \304\n\"A)\"*8\207" [topic mode info-lookup-alist 5 assoc] 6]) (put 'info-lookup->other-modes 'byte-optimizer 'byte-compile-inline-expand) #@464 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. (defalias 'info-lookup-add-help #[(&rest arg) "\301\302\303#\207" [arg apply info-lookup-add-help* nil] 4 (#$ . 5023)]) #@126 Add a help specification iff none is defined. See the documentation of the function `info-lookup-add-help' for more details. (defalias 'info-lookup-maybe-add-help #[(&rest arg) "\301\302\303#\207" [arg apply info-lookup-add-help* t] 4 (#$ . 5614)]) (defalias 'info-lookup-add-help* #[(maybe &rest arg) "\306\211\211\211\211\211\211\211\211\307\310\203\242@\2119\2043\311\312\"\210A\211\204A\311\313 \"\210@A \314=\203V\202 \315=\203b\202 \316=\203n\202 \317=\203y\202 \320=\203\204\202 \321=\203\217\202 \322=\203\232\202\311\323 \"\210\202\203\260\324\"\204\363 \f \n\257\325\"\206\316\306BB\211@\325\"\211\204\354BAB\241\210\202\362\241\210+. \306\207" [value keyword other-modes parse-rule doc-spec ignore-case nil symbol "\\w+" error "Junk in argument list \"%S\"" "Keyword \"%S\" is missing an argument" :topic :mode :regexp :ignore-case :doc-spec :parse-rule :other-modes "Unknown keyword \"%S\"" info-lookup->mode-value assoc regexp mode topic major-mode arg maybe data info-lookup-alist topic-cell mode-cell] 10]) #@485 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. (defvar info-lookup-cache nil (#$ . 6771)) (defalias 'info-lookup->cache #[(topic) "\302 \"\206\303B B\211@\207" [topic info-lookup-cache assoc nil] 3]) (put 'info-lookup->cache 'byte-optimizer 'byte-compile-inline-expand) (defalias 'info-lookup->topic-cache #[(topic) "\302 \"\206\303B B\211@)A\207" [topic info-lookup-cache assoc nil] 3]) (defalias 'info-lookup->mode-cache #[(topic mode) "\302\303 !\"\207" [mode topic assoc info-lookup->topic-cache] 4]) (defalias 'info-lookup->initialized #[(topic mode) "\302 \"A@\207" [topic mode info-lookup->mode-cache] 3]) (defalias 'info-lookup->completions #[(topic mode) "\302 \"\204\f\303 \"\210\304\305 \"8\207" [topic mode info-lookup->initialized info-lookup-setup-mode 2 info-lookup->mode-cache] 4]) (defalias 'info-lookup->refer-modes #[(topic mode) "\302 \"\204\f\303 \"\210\304\305 \"8\207" [topic mode info-lookup->initialized info-lookup-setup-mode 3 info-lookup->mode-cache] 4]) (defalias 'info-lookup->all-modes #[(topic mode) "\302 \"B\207" [mode topic info-lookup->refer-modes] 4]) (defalias 'info-lookup-quick-all-modes #[(topic mode) " \303 \304 \304 \n\"A)\"*8*B\207" [mode topic info-lookup-alist 5 assoc] 7]) #@187 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. (defalias 'info-lookup-reset #[nil "\301\211\207" [info-lookup-cache nil] 2 (#$ . 8469) nil]) #@358 Display the definition of SYMBOL, as found in the relevant manual. 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. With prefix arg a query for the symbol help mode is offered. (defalias 'info-lookup-symbol #[(symbol &optional mode) "\302\300 #\207" [symbol mode info-lookup] 4 (#$ . 8757) (byte-code "\301\302\"\207" [current-prefix-arg info-lookup-interactive-arguments symbol] 3)]) #@322 Display the documentation of a file. 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. The default file name is the one found at point. With prefix arg a query for the file help mode is offered. (defalias 'info-lookup-file #[(file &optional mode) "\302\300 #\207" [file mode info-lookup] 4 (#$ . 9331) (byte-code "\301\302\"\207" [current-prefix-arg info-lookup-interactive-arguments file] 3)]) #@134 Read and return argument value (and help mode) for help topic TOPIC. If optional argument QUERY is non-nil, query for the help mode. (defalias 'info-lookup-interactive-arguments #[(topic &optional query) "\203\n\306 !\202% \307 \310\n \310 \"A)\"*\203\"\f\202%\306 !\311 \n\"\312 \n\" \n\313 \n\310\n \310 \"A)\"*8*\314\315\203\\\316\317 #\202`\316\320 \" \321\211\211\322&\211\323\232\203v\202x\n.D\207" [query topic mode info-lookup-alist info-lookup-mode completions info-lookup-change-mode info-lookup-select-mode assoc info-lookup->completions info-lookup-guess-default 2 t completing-read format "Describe %s (default %s): " "Describe %s: " nil info-lookup-history "" default completion-ignore-case enable-recursive-minibuffers value] 9 (#$ . 9861)]) (defalias 'info-lookup-select-mode #[nil "\2042\306 \2032\307\306 ! \2041\n\2031\310\n\211@@) \"\203+\n\211@A)\nA\202*\2069 \211\207" [info-lookup-mode info-lookup-file-name-alist file-name-alist file-name x major-mode buffer-file-name file-name-nondirectory string-match] 4]) (defalias 'info-lookup-change-mode #[(topic) "\305\306\307 \"A)\"\310\311\312\"\n\313\314\313\315&\307 \n\"A\211\204(\316\317\"\210\320 \"\2045\316\321 #\210 \211*\207" [topic info-lookup-alist completions mode info-lookup-mode mapcar #[(arg) "\301@!@B\207" [arg symbol-name] 2] assoc completing-read format "Use %s help mode: " nil t info-lookup-history error "No %s help available" info-lookup->mode-value "No %s help available for `%s'"] 7]) #@43 Display the documentation of a help item. (defalias 'info-lookup #[(topic item mode) "\204\306 \307 \"\204\310\311 #\210\312 \313 \312 \312 \n\"A)\"*8*\2034 \227\2025 \314 \"\"\206F\310\315 \206E\316#\317 \"\320 \321\211\211\211\211\211%&'()*+,\203op\322\323!=\203u\324 \210\202\246\325\213\210\326\323\327\"\211)\205\206\330)!\211-\203\241\331 \203\241-\332 >\203\241\333-!\210\202\245\334\323!\210*(\204*\203 *@\335 \312 \312 \n\"A)\"*8*'(\204\374'\203\374'@@&\313'@8%\335'@8\336\337\340\217\203\364\321\341\342\217\210'A'\202\313*A*\202\246\f\204\f\310\343!\210,\205(\205\344)!. \207" [mode topic info-lookup-alist item doc-found suffix info-lookup-select-mode info-lookup->mode-value error "No %s help available for `%s'" assoc 2 info-lookup->completions "Not documented as a %s: %s" "" info-lookup->all-modes selected-window nil get-buffer "*info*" info ((info)) get-buffer-window t window-frame display-multi-frame-p frames-on-display-list select-frame switch-to-buffer-other-window 3 error-data (byte-code "\302!\210\303\211\207" [node doc-found Info-goto-node t] 2) ((error (byte-code "\301\302\"\210\303\304!\210\305\207" [node message "Cannot access Info node %s" sit-for 1 nil] 3))) (byte-code "\306A\206 !\210\307 \204\f\203\211 @\310 \311 \311 \"A)\"*8*\312eb\210\313 \314 !\fQ!\210\315\224b\210\316 \203\210\203\210\313\314 !!\203\210\315\224\315\225\317!\203s\320p$\202|\321\"\211*\203\210\322\323#\210*\312\207" [entry item found prefix suffix topic Info-menu t 2 assoc nil re-search-forward regexp-quote 0 display-color-p overlayp move-overlay make-overlay overlay-put face modes mode info-lookup-alist buffer-read-only case-fold-search info-lookup-highlight-face end start info-lookup-highlight-overlay] 6) ((error)) "Info documentation for lookup was not found" select-window prefix node doc-spec found window modes entry info-lookup-other-window-flag info-frame] 10 (#$ . 11421)]) #@41 Initialize the internal data structure. (defalias 'info-lookup-setup-mode #[(topic mode) "\306 \"\206\225\307\211\310\307\211 \311 \311\"A)\"*\204/\312\313 #\210\202]\314\315 \316 \311 \311\"A)\"*8*\"\210\n\237\307\317\320\217\321\322\314\323\n\"\"\244\324\325 \"\f \nE\204\216\311\"\206\201\307BB\211@) B\326!B\241\210\202\223 \241\210\f-\207" [topic mode refer-modes completions initialized data info-lookup->initialized nil 0 assoc message "No %s help available for `%s'" mapcar #[(arg) "\303 \"\204\f\304 \"\210\303 \"\305=\205 \nB\211\207" [topic arg refer-modes info-lookup->initialized info-lookup-setup-mode t] 3] 5 (info-lookup-make-completions topic mode) ((error)) apply append #[(arg) "\302 \"\207" [topic arg info-lookup->completions] 3] t info-lookup->mode-cache info-lookup->topic-cache cell info-lookup-alist info-lookup-cache] 8 (#$ . 13473)]) #@47 Create a unique alist from all index entries. (defalias 'info-lookup-make-completions #[(topic mode) " \306 \307 \307\n\"A)\"*8*\310 \211 \307 \307\n\"A)\"*A@*\311Q\312\211\211\211\211\211\211\313\314! r q\210\315 \210) \203\256 @@ @A@\312=\203m\316\202\206 @A@;\203\201 @A@\317\202\206 @A@r q\210\320\321\"\210\322\323\324\217\203\236\312\325\326\217\210)\320\327\"\210 A\211 \204Y\f\204\266\330\331!\210 .\n\207" [topic mode info-lookup-alist buffer doc-found result 3 assoc "^\\(" "\\)\\([ ].*\\)?$" nil get-buffer-create " temp-info-look" Info-mode #[(arg) "\302 \"\205 \303\304 \"\207" [regexp arg string-match match-string 1] 3] #[(arg) "\302\303\"\205 \304\305\"P\207" [arg prefix string-match "^\\([^: \n]+\\)" match-string 1] 4] message "Processing Info node `%s'..." error-data (byte-code "\302!\210\303\211\207" [node doc-found Info-goto-node t] 2) ((error (byte-code "\301\302\"\210\303\304!\210\305\207" [node message "Cannot access Info node `%s'" sit-for 1 nil] 3))) (byte-code "eb\210\306\307\310\311#\203G\312\313\310\311#\203G\314\315! !\211\203 \316\230\204 \317 \f\"\203/\n\227\n\230\2037\310\320\n \"\204 \nB B\202 \310\207" [entry trans item topic mode result search-forward "\n* Menu:" nil t re-search-forward "\n\\* \\([^: \n]*\\):" match-string 1 "Menu" info-lookup->ignore-case assoc] 5) ((error)) "Processing Info node `%s'...done" error "Info documentation for lookup was not found" prefix item entry trans node regexp doc-spec] 12 (#$ . 14404)]) #@190 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. (defalias 'info-lookup-guess-default #[(topic mode) "\305 \"\306\n\204 \203\307 @\" A\202\n\2038\310\311\312\n\f#\2037\310\224T\313\314\315\211\n$\202!)\n*\207" [topic mode guess modes pos info-lookup->all-modes nil info-lookup-guess-default* 0 string-match "[ \n]+" replace-match " " t] 5 (#$ . 15973)]) (defalias 'info-lookup-guess-default* #[(topic mode) " \306 \307 \307\n\"A)\"*8* \310 \307 \307\n\"A)\"*8*\206H \211 \307 \307\n\"A)\"*A@*`\311\211\211\211\2129\203f \202\303:\203w@A\202|\312\313 \314\216\315\316!*\203\215\317\311x\210`\320 \311\321#\203\255\315 !\203\255\312\225Y\203\255\322\f!\202\220 \204\303b\210\317\311w\210\315 !\203\303\322\f!) .\207" [topic mode info-lookup-alist result subexp regexp 2 assoc 4 nil 0 match-data ((set-match-data save-match-data-internal)) looking-at "[ \n]" " \n" re-search-backward t match-string end start rule case-fold-search save-match-data-internal] 8]) #@28 Get the C symbol at point. (defalias 'info-lookup-guess-c-symbol #[nil "\300\301\302\217\207" [nil (byte-code "\303\304!\210`\305\211\306\305x\307W\205%\310\305x\307W\205%\311\312!\205%\313\314!\315P\nb\210\311\316!\2033\313\307! \204W\317\230\204I\320\230\204I\321\230\203W\311\322!\203W\315P\313\314! \204_\205b P+\207" [name prefix start skip-syntax-backward "w_" nil " \n" 0 "_a-zA-Z0-9" looking-at "\\(struct\\|union\\|enum\\)\\s " match-string 1 " " "[_a-zA-Z][_a-zA-Z0-9]*" "struct" "union" "enum" "[a-z]+\\s +\\([_a-zA-Z][_a-zA-Z0-9]*\\)"] 3) ((error))] 3 (#$ . 17175)]) #@47 Perform completion on symbol preceding point. (defalias 'info-complete-symbol #[(&optional mode) "\304\305\206!\305\306 \307 \307 \n\"A)\"*\203 \202!\310\305!\"\207" [mode topic info-lookup-alist info-lookup-mode info-complete symbol info-lookup-select-mode assoc info-lookup-change-mode] 7 (#$ . 17785) nil]) #@45 Perform completion on file preceding point. (defalias 'info-complete-file #[(&optional mode) "\304\305\206!\305\306 \307 \307 \n\"A)\"*\203 \202!\310\305!\"\207" [mode topic info-lookup-alist info-lookup-mode info-complete file info-lookup-select-mode assoc info-lookup-change-mode] 7 (#$ . 18110) nil]) #@30 Try to complete a help item. (defalias 'info-complete #[(topic mode) "\306 \210\204\n\307 \310 \"\204\311\312 #\210\313 \"`\314\n\2049\f\2039\f@\fA\315 \" b\210\202 \n\204B\311\316 \"\210\317 \" \320 \321 \321 \"A)\"*8*\314 !\"\322\n\"\"\211 \204x\323 \210\324\325!\202\273 ;\203\263\321 \"\"\204\230\326\327\330 \"\"\314\331 #& \314\210\332\n\314\331#\203\251 `W\204\233\333\334!\210 c\202\273\324\335\336\337 !!\".\207" [mode topic try start modes info-lookup-alist barf-if-buffer-read-only info-lookup-select-mode info-lookup->mode-value error "No %s completion available for `%s'" info-lookup-quick-all-modes nil info-lookup-guess-default* "Found no %S to complete" info-lookup->completions 2 assoc try-completion ding message "No match" completing-read format "Complete %S: " t search-backward replace-match "" "%s is complete" capitalize prin1-to-string completion completion-ignore-case completions info-lookup-history] 8 (#$ . 18429)]) (byte-code "\300\301\302\303\304\305\306\307\310\311\312&\n\210\300\301\302\303\313\305\314\307\315&\210\300\301\316\305\317\307\320\311\321\322\323&\n\210\300\301\324\305\325\307\326\311\327&\210\300\301\330\305\331\307\332&\210\300\301\333\305\334\307\335\311\336&\210\300\301\337\305\340\307\341\311\342\322\343&\n\210\300\301\344\305\345\307\346&\210\300\301\347\305\350\307\351\311\352&\210\300\301\353\305\350\322\354&\210\300\301\355\305\356\307\357&\210\300\301\360\305\361\307\362&\210\300\301\363\305\361\311\342\322\364&\210\300\301\365\305\366\311\342\322\367&\210\300\301\370\305\366\371\372\307\373&\210\300\301\374\305\336\307\375&\210\376\377!\207" [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 "^[ ]+- \\(Function\\|Macro\\): .*\\<" "\\>") ("(libc)Variable Index" nil "^[ ]+- \\(Variable\\|Macro\\): .*\\<" "\\>") ("(libc)Type Index" nil "^[ ]+- Data Type: \\<" "\\>") ("(termcap)Var Index" nil "^[ ]*`" "'")) :parse-rule info-lookup-guess-c-symbol file "[_a-zA-Z0-9./+-]+" (("(libc)File Index")) bison-mode "[:;|]\\|%\\([%{}]\\|[_a-z]+\\)\\|YY[_A-Z]+\\|yy[_a-z]+" (("(bison)Index" nil "`" "'")) "[:;|]\\|%\\([%{}]\\|[_a-zA-Z][_a-zA-Z0-9]*\\)" :other-modes (c-mode) makefile-mode "\\$[^({]\\|\\.[_A-Z]*\\|[_a-zA-Z][_a-zA-Z0-9-]*" (("(make)Name Index" nil "^[ ]*`" "'")) "\\$[^({]\\|\\.[_A-Z]*\\|[_a-zA-Z0-9-]+" texinfo-mode "@\\([a-zA-Z]+\\|[^a-zA-Z]\\)" (("(texinfo)Command and Variable Index" (lambda (item) (if (string-match "^\\([a-zA-Z]+\\|[^a-zA-Z]\\)\\( .*\\)?$" item) (concat "@" (match-string 1 item)))) "`" "'")) m4-mode "[_a-zA-Z][_a-zA-Z0-9]*" (("(m4)Macro index")) "[_a-zA-Z0-9]+" autoconf-mode "A[CM]_[_A-Z0-9]+" (("(autoconf)Autoconf Macro Index" "AC_" "^[ ]+- \\(Macro\\|Variable\\): .*\\<" "\\>") ("(automake)Macro and Variable Index" nil "^[ ]*`" "'") ("(autoconf)Macro Index" "AC_" "^[ ]+- \\(Macro\\|Variable\\): .*\\<" "\\>") ("(automake)Index" nil "^[ ]*`" "'")) ignore (m4-mode) awk-mode "[_a-zA-Z]+" (("(gawk)Index" (lambda (item) (let ((case-fold-search nil)) (cond ((string-match "^\\([A-Z]+\\) special pattern\\b" item) (match-string 1 item)) ((string-match "^\\([a-z]+\\) statement\\b" item) (if (not (string-equal (match-string 1 item) "control")) (match-string 1 item))) ((string-match "^[A-Z]+$" item) item) ((string-match "^[a-z]+$" item) item)))) "`" "\\([ ]*([^)]*)\\)?'")) perl-mode "[$@%][^a-zA-Z]\\|\\$\\^[A-Z]\\|[$@%]?[a-zA-Z][_a-zA-Z0-9]*" (("(perl5)Function Index" (lambda (item) (if (string-match "^\\([a-zA-Z0-9]+\\)" item) (match-string 1 item))) "^" "\\b") ("(perl5)Variable Index" (lambda (item) (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")) "[$@%]?\\([_a-zA-Z0-9]+\\|[^a-zA-Z]\\)" cperl-mode (perl-mode) latex-mode "\\\\\\([a-zA-Z]+\\|[^a-zA-Z]\\)" (("(latex)Command Index" nil "`" "\\({[^}]*}\\)?'")) emacs-lisp-mode "[^][()'\" \n]+" (("(emacs)Command Index") ("(emacs)Variable Index") ("(elisp)Index")) lisp-interaction-mode (emacs-lisp-mode) lisp-mode "[^()'\" \n]+" (emacs-lisp-mode) scheme-mode :ignore-case t (("(r5rs)Index" nil "^[ ]+- [^:]+:[ ]*" "\\b")) octave-mode (("(octave)Function Index" nil "^ - [^:]+:[ ]+\\(\\[[^=]*=[ ]+\\)?" nil) ("(octave)Variable Index" nil "^ - [^:]+:[ ]+" nil) ("(octave)Concept Index" (lambda (item) (cond ((string-match "^\\([A-Z]+\\) statement\\b" item) (match-string 1 item)) (t nil))) nil nil)) provide info-look] 11)