From 722db8c3fd04c255d4cf3670af2284e23a23fcd7 Mon Sep 17 00:00:00 2001 From: Bozhidar Batsov Date: Thu, 14 Apr 2016 12:54:22 -0700 Subject: Wrap a couple of long source lines --- cider-stacktrace.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'cider-stacktrace.el') diff --git a/cider-stacktrace.el b/cider-stacktrace.el index 1cdcc8bf..6ae86697 100644 --- a/cider-stacktrace.el +++ b/cider-stacktrace.el @@ -617,7 +617,8 @@ This associates text properties to enable filtering and source navigation." 'action (lambda (_button) (cider-jump-to (cider-find-file file) (cons line column)))) - (insert (propertize (format " at (%d:%d)" line column) 'font-lock-face message-face)))))) + (insert (propertize (format " at (%d:%d)" line column) + 'font-lock-face message-face)))))) (defun cider-stacktrace-render-cause (buffer cause num note) "Emit into BUFFER the CAUSE NUM, exception class, message, data, and NOTE." @@ -638,7 +639,8 @@ This associates text properties to enable filtering and source navigation." (if (equal class "clojure.lang.Compiler$CompilerException") (cider-stacktrace-render-compile-error buffer cause) (cider-stacktrace-emit-indented - (propertize (or message "(No message)") 'font-lock-face message-face) indent t)) + (propertize (or message "(No message)") + 'font-lock-face message-face) indent t)) (insert "\n") (when data (cider-stacktrace-emit-indented -- cgit v1.2.3