From 1290bdfffe9d8d57fffc69ea27c122a600fe5064 Mon Sep 17 00:00:00 2001 From: Kashish Sharma Date: Tue, 14 Jun 2016 02:48:54 +0530 Subject: [PATCH] cp-lisp.el - slime emacs-init-time to open a session showing (only) the *Messages* buffer - before - 17.8s after - 17.3s --- contrapunctus/cp-lisp.el | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/contrapunctus/cp-lisp.el b/contrapunctus/cp-lisp.el index ff90a80..09ef094 100644 --- a/contrapunctus/cp-lisp.el +++ b/contrapunctus/cp-lisp.el @@ -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 " 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)