Minor cleanup

This commit is contained in:
Bozhidar Batsov 2013-07-08 12:49:35 +03:00
parent 03b1c505f2
commit e12d5fbf51
2 changed files with 2 additions and 16 deletions

View file

@ -321,13 +321,6 @@ the current buffer."
(interactive) (interactive)
(insert (format-time-string "%c" (current-time)))) (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 () (defun prelude-recentf-ido-find-file ()
"Find a recent file using ido." "Find a recent file using ido."
(interactive) (interactive)

View file

@ -63,21 +63,14 @@
(add-hook 'lisp-mode-hook (lambda () (run-hooks 'prelude-lisp-coding-hook))) (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))) (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 () (defun prelude-start-slime ()
"Start SLIME unless it's already running."
(unless (slime-connected-p) (unless (slime-connected-p)
(save-excursion (slime)))) (save-excursion (slime))))
;; start slime automatically when we open a lisp file
(add-hook 'slime-mode-hook 'prelude-start-slime) (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" (eval-after-load "slime"
'(progn '(progn
(setq slime-complete-symbol-function 'slime-fuzzy-complete-symbol (setq slime-complete-symbol-function 'slime-fuzzy-complete-symbol