fixup! WIP popular args

mkcms · Jun 17, 2024 · adc7581 · adc7581
1 parent c5112a3
commit adc7581
Showing 1 changed file with 6 additions and 5 deletions.
diff --git a/compiler-explorer.el b/compiler-explorer.el
@@ -1400,9 +1400,9 @@ the same source line."
                   :headers '(("Accept" . "application/json"))
                   :as (lambda ()
                         (let ((json-key-type 'string))
-                          (json-parse-buffer))))))))
+                          (json-read))))))))
     (list
-     (car bounds) (cdr bounds) (hash-table-keys arguments)
+     (car bounds) (cdr bounds) (map-keys arguments)
      :annotation-function (lambda (completion)
                             (when-let* ((elt (map-elt arguments completion))
                                         (desc (map-elt elt "description")))
@@ -1423,9 +1423,10 @@ the same source line."
                 (let ((map (make-sparse-keymap)))
                   (set-keymap-parent map minibuffer-local-map)
                   (define-key map "\t" #'completion-at-point)
-                  (define-key map [M-up] #'minibuffer-previous-completion)
-                  (define-key map [M-down] #'minibuffer-next-completion)
-                  (define-key map [?\M-\r] #'minibuffer-choose-completion)
+                  (when (fboundp 'minibuffer-choose-completion)
+                    (define-key map [M-up] #'minibuffer-previous-completion)
+                    (define-key map [M-down] #'minibuffer-next-completion)
+                    (define-key map [?\M-\r] #'minibuffer-choose-completion))
                   map)
                 nil 'compiler-explorer-set-compiler-args-history)))
      (user-error "Not in a `compiler-explorer' session")))