Browse files

special case dss/eval-defun in clojure

  • Loading branch information...
1 parent dad46f5 commit 605352bf0d24d2a46f2d5fb999860df48d4ffffb @tavisrudd committed Feb 24, 2011
Showing with 5 additions and 1 deletion.
  1. +5 −1 dss-codenav-helpers.el
View
6 dss-codenav-helpers.el
@@ -174,7 +174,11 @@ Do nothing if not in string."
(dss/indent-defun)
(save-excursion
(dss/out-sexp nil t)
- (eval-last-sexp nil)))
+ (cond ((or (equal major-mode 'clojure-mode)
+ (equal major-mode 'slime-repl-mode))
+ (slime-eval-last-expression))
+ (t (eval-last-sexp nil)))
+ ))
;; (message "%S" (preceding-sexp))

0 comments on commit 605352b

Please sign in to comment.