From: Eshel Yaron 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)