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

Use #' for function references where appropriate

This commit is contained in:
Bozhidar Batsov 2022-07-16 10:35:44 +03:00 committed by Rudi Grinberg
parent dee6a8752a
commit c117c6cf57
1 changed files with 19 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
src/top/utop.el
View File

@ -140,20 +140,20 @@ This hook is only run if exiting actually kills the buffer."
(defvar utop-mode-map
(let ((map (make-sparse-keymap)))
(define-key map (kbd "RET") 'utop-eval-input-or-newline)
(define-key map (kbd "C-m") 'utop-eval-input-or-newline)
(define-key map (kbd "C-j") 'utop-eval-input-auto-end)
(define-key map (kbd "<home>") 'utop-bol)
(define-key map (kbd "C-a") 'utop-bol)
(define-key map (kbd "M-p") 'utop-history-goto-prev)
(define-key map (kbd "M-n") 'utop-history-goto-next)
(define-key map (kbd "TAB") 'utop-complete)
(define-key map (kbd "C-c C-c") 'utop-interrupt)
(define-key map (kbd "C-c C-i") 'utop-interrupt)
(define-key map (kbd "C-c C-k") 'utop-kill)
(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)
(define-key map (kbd "RET") #'utop-eval-input-or-newline)
(define-key map (kbd "C-m") #'utop-eval-input-or-newline)
(define-key map (kbd "C-j") #'utop-eval-input-auto-end)
(define-key map (kbd "<home>") #'utop-bol)
(define-key map (kbd "C-a") #'utop-bol)
(define-key map (kbd "M-p") #'utop-history-goto-prev)
(define-key map (kbd "M-n") #'utop-history-goto-next)
(define-key map (kbd "TAB") #'utop-complete)
(define-key map (kbd "C-c C-c") #'utop-interrupt)
(define-key map (kbd "C-c C-i") #'utop-interrupt)
(define-key map (kbd "C-c C-k") #'utop-kill)
(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)
map)
"The utop local keymap.")
@ -1140,11 +1140,11 @@ See https://github.com/ocaml-community/utop for configuration information."))
"Minor mode for utop."
:lighter " utop"
:keymap (let ((map (make-sparse-keymap)))
(define-key map (kbd "C-c C-s") 'utop)
(define-key map (kbd "C-x C-e") 'utop-eval-phrase)
(define-key map (kbd "C-x C-r") 'utop-eval-region)
(define-key map (kbd "C-c C-b") 'utop-eval-buffer)
(define-key map (kbd "C-c C-k") 'utop-kill)
(define-key map (kbd "C-c C-s") #'utop)
(define-key map (kbd "C-x C-e") #'utop-eval-phrase)
(define-key map (kbd "C-x C-r") #'utop-eval-region)
(define-key map (kbd "C-c C-b") #'utop-eval-buffer)
(define-key map (kbd "C-c C-k") #'utop-kill)
map)
;; Load local file variables
(add-hook 'hack-local-variables-hook 'utop-hack-local-variables))