From e12d5fbf514b614fe306c94021685aa050740497 Mon Sep 17 00:00:00 2001 From: Bozhidar Batsov Date: Mon, 8 Jul 2013 12:49:35 +0300 Subject: [PATCH] Minor cleanup --- core/prelude-core.el | 7 ------- modules/prelude-common-lisp.el | 11 ++--------- 2 files changed, 2 insertions(+), 16 deletions(-) diff --git a/core/prelude-core.el b/core/prelude-core.el index 67d0287..b2402b3 100644 --- a/core/prelude-core.el +++ b/core/prelude-core.el @@ -321,13 +321,6 @@ the current buffer." (interactive) (insert (format-time-string "%c" (current-time)))) -;; (defun prelude-conditionally-enable-paredit-mode () -;; "Enable `paredit-mode' in the minibuffer, during `eval-expression'." -;; (if (eq this-command 'eval-expression) -;; (paredit-mode 1))) - -;; (add-hook 'minibuffer-setup-hook 'prelude-conditionally-enable-paredit-mode) - (defun prelude-recentf-ido-find-file () "Find a recent file using ido." (interactive) diff --git a/modules/prelude-common-lisp.el b/modules/prelude-common-lisp.el index 45da721..2aa98fb 100644 --- a/modules/prelude-common-lisp.el +++ b/modules/prelude-common-lisp.el @@ -63,21 +63,14 @@ (add-hook 'lisp-mode-hook (lambda () (run-hooks 'prelude-lisp-coding-hook))) (add-hook 'slime-repl-mode-hook (lambda () (run-hooks 'prelude-interactive-lisp-coding-hook))) -;; start slime automatically when we open a lisp file (defun prelude-start-slime () + "Start SLIME unless it's already running." (unless (slime-connected-p) (save-excursion (slime)))) +;; start slime automatically when we open a lisp file (add-hook 'slime-mode-hook 'prelude-start-slime) -;; Stop SLIME's REPL from grabbing DEL, -;; which is annoying when backspacing over a '(' -;; (defun prelude-override-slime-repl-bindings-with-paredit () -;; (define-key slime-repl-mode-map -;; (read-kbd-macro paredit-backward-delete-key) nil)) - -;; (add-hook 'slime-repl-mode-hook 'prelude-override-slime-repl-bindings-with-paredit) - (eval-after-load "slime" '(progn (setq slime-complete-symbol-function 'slime-fuzzy-complete-symbol