From: Eshel Yaron <me@eshelyaron.com>
Date: Sat, 11 Feb 2023 11:57:53 +0000 (+0200)
Subject: * sweeprolog.el: allow info-lookup to recognize Sweep commands
X-Git-Tag: V9.1.4-sweep-0.16.0~3
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=452a5ce919f8d92199098cab4e41a3b63f157fbd;p=dict.git

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

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."