From: Eshel Yaron <me@eshelyaron.com>
Date: Fri, 4 Aug 2023 18:05:05 +0000 (+0300)
Subject: Add autoloaded 'defalias' for prefix keymaps
X-Git-Tag: V9.1.13-sweep-0.22.1~2
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7c11456586dbc5cea1c7ee793ab6d3c674c7e42d;p=sweep.git

Add autoloaded 'defalias' for prefix keymaps

* sweeprolog.el (sweeprolog-prefix-map)
(sweeprolog-help-prefix-map): New 'defalias' for respective keymaps.

* README.org (Quick Access Keymap): Adapt.
---

diff --git a/README.org b/README.org
index ccb1fce..2be0d9e 100644
--- a/README.org
+++ b/README.org
@@ -2561,7 +2561,7 @@ keybinding for several useful Sweep commands.  By default,
 to a prefix key, e.g. =C-c p=, use:
 
 #+begin_src emacs-lisp
-  (keymap-global-set "C-c p" sweeprolog-prefix-map)
+  (keymap-global-set "C-c p" 'sweeprolog-prefix-map)
 #+end_src
 
 As an example, with the above binding the Sweep top-level can be
diff --git a/sweeprolog.el b/sweeprolog.el
index 567665d..d01167e 100644
--- a/sweeprolog.el
+++ b/sweeprolog.el
@@ -548,6 +548,9 @@ for top-level buffers that don't belong to any project."
     map)
   "Keymap for `sweeprolog' help commands.")
 
+;;;###autoload (autoload 'sweeprolog-help-prefix-map "sweeprolog" nil t 'keymap)
+(defalias 'sweeprolog-help-prefix-map sweeprolog-help-prefix-map)
+
 (defvar sweeprolog-prefix-map
   (let ((map (make-sparse-keymap)))
     (define-key map "B" #'sweeprolog-list-breakpoints)
@@ -567,6 +570,9 @@ for top-level buffers that don't belong to any project."
     map)
   "Keymap for `sweeprolog' global commands.")
 
+;;;###autoload (autoload 'sweeprolog-prefix-map "sweeprolog" nil t 'keymap)
+(defalias 'sweeprolog-prefix-map sweeprolog-prefix-map)
+
 (defvar sweeprolog-forward-hole-on-tab-mode-map
   (let ((map (make-sparse-keymap)))
     (define-key map (kbd "TAB") #'sweeprolog-indent-or-forward-hole)