From 452a5ce919f8d92199098cab4e41a3b63f157fbd Mon Sep 17 00:00:00 2001
From: Eshel Yaron <me@eshelyaron.com>
Date: Sat, 11 Feb 2023 13:57:53 +0200
Subject: [PATCH] * 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 932b582..2639bda 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."
-- 
2.39.2