haskal
/
utop
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Address a compilation warning

This commit is contained in:
Bozhidar Batsov 2022-07-18 23:20:14 +03:00 committed by Rudi Grinberg
parent 8149df9132
commit e89802f24c
1 changed files with 16 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
src/top/utop.el
View File

@ -1170,23 +1170,6 @@ See https://github.com/ocaml-community/utop for configuration information."))
(interactive) (interactive)
(describe-function 'utop)) (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 (defvar utop-mode-map
(let ((map (make-sparse-keymap))) (let ((map (make-sparse-keymap)))
(define-key map (kbd "RET") #'utop-eval-input-or-newline) (define-key map (kbd "RET") #'utop-eval-input-or-newline)
@ -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-g") #'utop-exit)
(define-key map (kbd "C-c C-s") #'utop) (define-key map (kbd "C-c C-s") #'utop)
(define-key map (kbd "C-c m") #'utop-copy-old-input) (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) map)
"The utop local keymap.") "The utop local keymap.")