[elpa] externals/transient 5c746f3146 15/17: No longer consider popup navigation a secondary feature

[Jonas Bernoulli]

branch: externals/transient
commit 5c746f314678117fcb45be7a003cbdc1781b0ea9
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>

    No longer consider popup navigation a secondary feature
    
    In practical terms that just means moving the definitions of two
    keymaps.  Also, just because I now consider this a useful feature
    that doesn't mean that it won't need more work.
---
 lisp/transient.el | 38 ++++++++++++++++++--------------------
 1 file changed, 18 insertions(+), 20 deletions(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index 9723c20692..95865a9484 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -1572,6 +1572,22 @@ to `transient-predicate-map'.  Also see 
`transient-base-map'.")
                              "Show common permanently")))
           ("C-x l" "Show/hide suffixes" transient-set-level)]])))
 
+(defvar transient-popup-navigation-map
+  (let ((map (make-sparse-keymap)))
+    (define-key map (kbd "<down-mouse-1>") #'transient-noop)
+    (define-key map (kbd "<up>")   #'transient-backward-button)
+    (define-key map (kbd "<down>") #'transient-forward-button)
+    (define-key map (kbd "C-r")    #'transient-isearch-backward)
+    (define-key map (kbd "C-s")    #'transient-isearch-forward)
+    map))
+
+(defvar transient-button-map
+  (let ((map (make-sparse-keymap)))
+    (define-key map (kbd "<mouse-1>") #'transient-push-button)
+    (define-key map (kbd "<mouse-2>") #'transient-push-button)
+    (define-key map (kbd "RET")       #'transient-push-button)
+    map))
+
 (defvar transient-predicate-map
   (let ((map (make-sparse-keymap)))
     (define-key map [transient-suspend]       #'transient--do-suspend)
@@ -1628,8 +1644,6 @@ For transient commands that are bound in individual 
transients,
 the transient behavior is specified using the `:transient' slot
 of the corresponding object.")
 
-(defvar transient-popup-navigation-map)
-
 (defvar transient--transient-map nil)
 (defvar transient--predicate-map nil)
 (defvar transient--redisplay-map nil)
@@ -3721,8 +3735,7 @@ resumes the suspended transient.")
   (message "Debugging transient %s"
            (if transient--debug "enabled" "disabled")))
 
-;;; Compatibility
-;;;; Popup Navigation
+;;; Popup Navigation
 
 (defun transient-popup-navigation-help ()
   "Inform the user how to enable popup navigation commands."
@@ -3730,22 +3743,6 @@ resumes the suspended transient.")
   (message "This command is only available if `%s' is non-nil"
            'transient-enable-popup-navigation))
 
-(defvar transient-popup-navigation-map
-  (let ((map (make-sparse-keymap)))
-    (define-key map (kbd "<down-mouse-1>") #'transient-noop)
-    (define-key map (kbd "<up>")   #'transient-backward-button)
-    (define-key map (kbd "<down>") #'transient-forward-button)
-    (define-key map (kbd "C-r")    #'transient-isearch-backward)
-    (define-key map (kbd "C-s")    #'transient-isearch-forward)
-    map))
-
-(defvar transient-button-map
-  (let ((map (make-sparse-keymap)))
-    (define-key map (kbd "<mouse-1>") #'transient-push-button)
-    (define-key map (kbd "<mouse-2>") #'transient-push-button)
-    (define-key map (kbd "RET")       #'transient-push-button)
-    map))
-
 (define-button-type 'transient-button
   'face nil
   'keymap transient-button-map)
@@ -3783,6 +3780,7 @@ See `forward-button' for information about N."
           beg (next-single-property-change
                beg 'face nil (line-end-position))))))
 
+;;; Compatibility
 ;;;; Popup Isearch
 
 (defvar transient--isearch-mode-map