Mercurial > emacs

comparison lisp/info-look.el @ 94496:38eb904fa638

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* progmodes/octave-mod.el (octave-help): New function. * progmodes/octave-hlp.el: Delete. * info-look.el (octave-mode): Add operator index.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Wed, 30 Apr 2008 08:48:02 +0000
parents 1e3a407766b9
children ee5932bf781d
comparison
equal deleted inserted replaced
94495:027a58c5f305 94496:38eb904fa638
879 :doc-spec '(("(r5rs)Index" nil 879 :doc-spec '(("(r5rs)Index" nil
880 "^[ \t]+-+ [^:]+:[ \t]*" "\\b"))) 880 "^[ \t]+-+ [^:]+:[ \t]*" "\\b")))
881 881
882 (info-lookup-maybe-add-help 882 (info-lookup-maybe-add-help
883 :mode 'octave-mode 883 :mode 'octave-mode
884 :regexp "[_a-zA-Z0-9]+" 884 :regexp "[_a-zA-Z0-9]+\\|\\s.+\\|[-!=^|*/.\\,><~&+]\\{1,3\\}\\|[][();,\"']"
885 :doc-spec '(("(octave)Function Index" nil 885 :doc-spec '(("(octave)Function Index" nil
886 "^ -+ [^:]+:[ ]+\\(\\[[^=]*=[ ]+\\)?" nil) 886 "^ -+ [^:]+:[ ]+\\(\\[[^=]*=[ ]+\\)?" nil)
887 ("(octave)Variable Index" nil "^ -+ [^:]+:[ ]+" nil) 887 ("(octave)Variable Index" nil "^ -+ [^:]+:[ ]+" nil)
888 ("(octave)Operator Index" nil nil nil)
888 ;; Catch lines of the form "xyz statement" 889 ;; Catch lines of the form "xyz statement"
889 ("(octave)Concept Index" 890 ("(octave)Concept Index"
890 (lambda (item) 891 (lambda (item)
891 (cond 892 (cond
892 ((string-match "^\\([A-Z]+\\) statement\\b" item) 893 ((string-match "^\\([A-Z]+\\) statement\\b" item)