[elpa] externals/org e7feeb2225: org-export: Propertize keybindings in Org Export dispatch UI

[ELPA Syncer]

branch: externals/org
commit e7feeb2225b59e6434881cb7bc425c6be650a08e
Author: Rudolf Adamkovič <salutis@me.com>
Commit: Ihor Radchenko <yantar92@gmail.com>

    org-export: Propertize keybindings in Org Export dispatch UI
    
    * lisp/ox.el (org-export--dispatch-ui): Propertize the navigational
    keybindings.
---
 lisp/ox.el | 16 ++++++++++++++--
 1 file changed, 14 insertions(+), 2 deletions(-)

diff --git a/lisp/ox.el b/lisp/ox.el
index e059983fb4..6089a575ba 100644
--- a/lisp/ox.el
+++ b/lisp/ox.el
@@ -7123,8 +7123,20 @@ back to standard interface."
        (delete-other-windows)
        (org-switch-to-buffer-other-window
         (get-buffer-create "*Org Export Dispatcher*"))
-       (setq cursor-type nil
-             header-line-format "Use SPC, DEL, C-n or C-p to navigate.")
+        (setq cursor-type nil)
+        (setq header-line-format
+              (let ((propertize-help-key
+                     (lambda (key)
+                       ;; Add `face' *and* `font-lock-face' to "work
+                       ;; reliably in any buffer", per a comment in
+                       ;; `help--key-description-fontified'.
+                       (propertize key
+                                   'font-lock-face 'help-key-binding
+                                   'face 'help-key-binding))))
+                (apply 'format
+                       (cons "Use %s, %s, %s, or %s to navigate."
+                             (mapcar propertize-help-key
+                                     (list "SPC" "DEL" "C-n" "C-p"))))))
        ;; Make sure that invisible cursor will not highlight square
        ;; brackets.
        (set-syntax-table (copy-syntax-table))