Mercurial > emacs
comparison lisp/info-look.el @ 23346:4db659df7407
Add support for Octave.
| author | Stephen Eglen <stephen@gnu.org> |
|---|---|
| date | Tue, 29 Sep 1998 08:45:12 +0000 |
| parents | fa2cf768a61a |
| children | d400637428d1 |
comparison
equal
deleted
inserted
replaced
| 23345:b61fd1c104f9 | 23346:4db659df7407 |
|---|---|
| 750 :regexp "[^()' \t\n]+" | 750 :regexp "[^()' \t\n]+" |
| 751 :ignore-case t | 751 :ignore-case t |
| 752 :doc-spec '(("(r5rs)Index" nil | 752 :doc-spec '(("(r5rs)Index" nil |
| 753 "^[ \t]+- [^:]+:[ \t]*" "\\b"))) | 753 "^[ \t]+- [^:]+:[ \t]*" "\\b"))) |
| 754 | 754 |
| 755 (info-lookup-maybe-add-help | |
| 756 :mode 'octave-mode | |
| 757 :regexp "[_a-zA-Z0-9]+" | |
| 758 :doc-spec '(("(octave)Function Index" nil "^ - [^:]+:[ ]+" nil) | |
| 759 ("(octave)Variable Index" nil "^ - [^:]+:[ ]+" nil) | |
| 760 ;; Catch lines of the form "xyz statement" | |
| 761 ("(octave)Concept Index" | |
| 762 (lambda (item) | |
| 763 (cond | |
| 764 ((string-match "^\\([A-Z]+\\) statement\\b" item) | |
| 765 (match-string 1 item)) | |
| 766 (t nil))) | |
| 767 nil; "^ - [^:]+:[ ]+" don't think this prefix is useful here. | |
| 768 nil))) | |
| 755 | 769 |
| 756 (provide 'info-look) | 770 (provide 'info-look) |
| 757 | 771 |
| 758 ;;; info-look.el ends here | 772 ;;; info-look.el ends here |