Allow C-j to eval with auto-end

Ignore-this: 8cd09eabbc6b9d5483a5aa380e2cb278

darcs-hash:20120801001337-33bd9-a5d76dab972820c41fc2beb40818a98013f111c6
This commit is contained in:
wojciech.meyer 2012-08-01 02:13:37 +02:00
parent 718fb69db1
commit 354b6d774a
1 changed files with 1 additions and 1 deletions

View File

@ -130,7 +130,7 @@ This hook is only run if exiting actually kills the buffer."
(let ((map (make-sparse-keymap)))
(define-key map [return] 'utop-eval-input-or-newline)
(define-key map [(control ?m)] 'utop-eval-input-or-newline)
(define-key map [(control ?j)] 'utop-eval-input-or-newline)
(define-key map [(control ?j)] 'utop-eval-input-auto-end)
(define-key map [home] 'utop-bol)
(define-key map [(control ?a)] 'utop-bol)
(define-key map [(meta ?p)] 'utop-history-goto-prev)