[nongnu] elpa/sweeprolog 27c441ab49 068/166: PORT: don't rely on defvar-keymap available only since Emacs 29

[ELPA Syncer]

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

    PORT: don't rely on defvar-keymap available only since Emacs 29
---
 sweep.el | 22 ++++++++++++++--------
 1 file changed, 14 insertions(+), 8 deletions(-)

diff --git a/sweep.el b/sweep.el
index f71c3d4af4..578d350e12 100644
--- a/sweep.el
+++ b/sweep.el
@@ -74,7 +74,6 @@
 
 (defvar sweep-prolog-server-port nil)
 
-;;;###autoload
 (defun sweep--compile-module ()
   "Compile sweep-module."
   (interactive)
@@ -639,8 +638,7 @@ module name, F is a functor name and N is its arity."
         ("dcg"                 nil)
         ("qq_content"          nil)
         ("qq"                  nil)
-        (other (message "Unknown color term %S" other))
-        ))))
+        (other (message "Unknown color term %S" other))))))
 
 (defun sweep-colourise-buffer (&optional buffer)
   (interactive)
@@ -857,11 +855,19 @@ Interactively, a prefix arg means to prompt for BUFFER."
     (modify-syntax-entry ?/ ". 14" table)
     table))
 
-(defvar-keymap sweep-mode-map
-  :doc "Keymap for `sweep-mode'."
-;;"C-c C-l" #'sweep-load-buffer
-  "C-c C-c" #'sweep-colourise-buffer
-  "C-c C-t" #'sweep-top-level)
+(defvar sweep-mode-map
+  (let ((map (make-sparse-keymap)))
+;;  (define-key map (kbd "C-c C-l") #'sweep-load-buffer)
+    (define-key map (kbd "C-c C-c") #'sweep-colourise-buffer)
+    (define-key map (kbd "C-c C-t") #'sweep-top-level)
+    map)
+  "Keymap for `sweep-mode'.")
+
+;; (defvar-keymap sweep-mode-map
+;;   :doc "Keymap for `sweep-mode'."
+;; ;;"C-c C-l" #'sweep-load-buffer
+;;   "C-c C-c" #'sweep-colourise-buffer
+;;   "C-c C-t" #'sweep-top-level)
 
 (defun sweep-indent-line ()
   (interactive)