[nongnu] elpa/sweeprolog 452a5ce919 2/5: * sweeprolog.el: allow info-lookup to recognize Sweep commands

[ELPA Syncer]

branch: elpa/sweeprolog
commit 452a5ce919f8d92199098cab4e41a3b63f157fbd
Author: Eshel Yaron <me@eshelyaron.com>
Commit: Eshel Yaron <me@eshelyaron.com>

    * sweeprolog.el: allow info-lookup to recognize Sweep commands
---
 sweeprolog.el | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/sweeprolog.el b/sweeprolog.el
index 932b582560..2639bda2d4 100644
--- 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."