* sweeprolog.el: allow info-lookup to recognize Sweep commands

diff --git a/sweeprolog.el b/sweeprolog.el
index 932b582560f68bd1f59459632daa67106d1d8e1c..2639bda2d46a4269fb3e99d43554ca6d7df03690 100644 (file)
--- a/sweeprolog.el
+++ b/sweeprolog.el
@@ -35,6 +35,7 @@
 (require 'help-mode)
 (require 'find-func)
 (require 'shr)
+(require 'info-look)
 
 
 ;;;; Global variables
@@ -4664,6 +4665,14 @@ accordingly."
   (interactive)
   (info "sweep"))
 
+(info-lookup-maybe-add-help
+ :mode     (cons 'emacs-lisp-mode "sweeprolog")
+ :regexp   (concat "\\bsweeprolog-[^][()`'‘’,\" \t\n]+")
+ :doc-spec '(("(sweep)Function Index" nil "^ -+ .*: " "\\( \\|$\\)")
+             ("(sweep)Variable Index" nil "^ -+ .*: " "\\( \\|$\\)")))
+
+(add-to-list 'Info-file-list-for-emacs (cons "sweeprolog" "sweep"))
+
 ;;;###autoload
 (defun sweeprolog-view-news ()
   "View the Sweep News file, which lists recent changes to Sweep."