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 ccb1fce0ef2488825e35cfe5e126c393087fc24d..2be0d9e120cee211648dc836aa51f722ba50eb74 100644 (file)
--- 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 567665d1b12e60b1ae45bd05fe4d80d782618358..d01167e385aec43d57ca7a70abbc913e793c683e 100644 (file)
--- 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)