Skip to content

Commit

Permalink
Address a compilation warning
Browse files Browse the repository at this point in the history
  • Loading branch information
bbatsov authored and rgrinberg committed Jul 18, 2022
1 parent 8149df9 commit e89802f
Showing 1 changed file with 16 additions and 17 deletions.
33 changes: 16 additions & 17 deletions src/top/utop.el
Original file line number Diff line number Diff line change
Expand Up @@ -1170,23 +1170,6 @@ See https://github.com/ocaml-community/utop for configuration information."))
(interactive)
(describe-function 'utop))

(easy-menu-define
utop-menu utop-mode-map
"utop menu."
'("utop"
["Start utop" utop t]
["Interrupt utop" utop-interrupt :active (utop-is-running)]
["Kill utop" utop-kill :active (utop-is-running)]
["Exit utop gracefully" utop-exit :active (utop-is-running)]
"---"
["Evaluate Phrase" utop-eval-input-auto-end :active (and (utop-is-running) (eq utop-state 'edit))]
["Switch to OCaml source buffer" utop-switch-to-recent-buffer t]
"---"
["Customize utop" (customize-group 'utop) t]
"---"
["About" utop-about t]
["Help" utop-help t]))

(defvar utop-mode-map
(let ((map (make-sparse-keymap)))
(define-key map (kbd "RET") #'utop-eval-input-or-newline)
Expand All @@ -1203,6 +1186,22 @@ See https://github.com/ocaml-community/utop for configuration information."))
(define-key map (kbd "C-c C-g") #'utop-exit)
(define-key map (kbd "C-c C-s") #'utop)
(define-key map (kbd "C-c m") #'utop-copy-old-input)
(easy-menu-define
utop-menu map
"utop menu."
'("utop"
["Start utop" utop t]
["Interrupt utop" utop-interrupt :active (utop-is-running)]
["Kill utop" utop-kill :active (utop-is-running)]
["Exit utop gracefully" utop-exit :active (utop-is-running)]
"---"
["Evaluate Phrase" utop-eval-input-auto-end :active (and (utop-is-running) (eq utop-state 'edit))]
["Switch to OCaml source buffer" utop-switch-to-recent-buffer t]
"---"
["Customize utop" (customize-group 'utop) t]
"---"
["About" utop-about t]
["Help" utop-help t]))
map)
"The utop local keymap.")

Expand Down

0 comments on commit e89802f

Please sign in to comment.