diff options
| author | Bozhidar Batsov <bozhidar@batsov.com> | 2016-04-14 12:54:22 -0700 |
|---|---|---|
| committer | Bozhidar Batsov <bozhidar@batsov.com> | 2016-04-14 12:54:22 -0700 |
| commit | 722db8c3fd04c255d4cf3670af2284e23a23fcd7 (patch) | |
| tree | 5050edcd4c8e1c32d6053abdeb0ffd26ced50535 | |
| parent | 0e9de1810daeb53a2a741a1a42749bbe885ffacf (diff) | |
Wrap a couple of long source lines
| -rw-r--r-- | cider-stacktrace.el | 6 |
1 files changed, 4 insertions, 2 deletions
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 |