contrapunctus
/
dotemacs
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

cp-lisp.el - slime 

emacs-init-time to open a session showing (only) the *Messages* buffer -
before - 17.8s
after  - 17.3s
This commit is contained in:
Kashish Sharma 2016-06-14 02:48:54 +05:30
parent 8f9a9f625c
commit 1290bdfffe
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
contrapunctus/cp-lisp.el
View File

@ -1,22 +1,22 @@
;; (require 'chicken)
(require 'slime)
(slime-setup)
;; (require 'slime)
(require 'slime-autoloads)
(setq inferior-lisp-program "/usr/bin/sbcl")
(global-set-key (kbd "<f5> s") 'slime)
(with-eval-after-load 'slime
(slime-setup)
(setq inferior-lisp-program "/usr/bin/sbcl")
(cp-set-keys
:keymap slime-mode-map
:bindings
`((,(kbd "M-n") next-line)
(,(kbd "M-p") previous-line))))
(defun set-cl-repl-keys ()
(if (or (cp-buffer-name-match-p "^\*inferior-lisp\*\\(<[0-9]*>\\)?")
(eq major-mode 'lisp-mode))
(local-set-key (kbd "TAB") 'completion-at-point)))
(cp-set-keys
:keymap slime-mode-map
:bindings
`((,(kbd "M-n") next-line)
(,(kbd "M-p") previous-line)))
(add-hook 'slime-connected-hook 'set-cl-repl-keys)
(add-hook 'comint-mode-hook 'set-cl-repl-keys)
(add-hook 'lisp-mode-hook 'set-cl-repl-keys)