diff options
author | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-08-25 01:01:37 +0100 |
---|---|---|
committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-08-25 01:36:15 +0100 |
commit | 62d54d64c1508cba0aa16e33a8f7cf793e3af9d7 (patch) | |
tree | d25113355ec25d6c9dd11d347d31521c650f0508 /cider-debug.el | |
parent | 4f8a9bbe43a3ad96c5ba7ef1c221aec1e879a0a8 (diff) |
Fix many compile warnings
Most of the remaining warnings would be fixed if we cleaned up
cider-interaction a little bit.
In the very least, there are many repl-related functions in there which
should cleanly fit into cider-repl.
Diffstat (limited to 'cider-debug.el')
-rw-r--r-- | cider-debug.el | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/cider-debug.el b/cider-debug.el index 4c7310b5..ee98cd8f 100644 --- a/cider-debug.el +++ b/cider-debug.el @@ -27,9 +27,12 @@ (require 'nrepl-client) (require 'cider-interaction) +(require 'cider-client) (require 'cider-inspector) (require 'cider-browse-ns) +(require 'cider-util) (require 'dash) +(require 'spinner) ;;; Customization @@ -424,7 +427,7 @@ ID is the id of the message that instrumented CODE." (erase-buffer) (insert (format "%s" (cider--debug-trim-code code))) - (font-lock-fontify-buffer) + (cider--font-lock-ensure) (set-buffer-modified-p nil)))) (switch-to-buffer buffer-name) (goto-char (point-min)))) @@ -445,7 +448,7 @@ sexp." (while coordinates (down-list) ;; Are we entering a syntax-quote? - (when (looking-back "`\\(#{\\|[{[(]\\)") + (when (looking-back "`\\(#{\\|[{[(]\\)" (line-beginning-position)) ;; If we are, this affects all nested structures until the next `~', ;; so we set this variable for all following steps in the loop. (setq in-syntax-quote t)) @@ -458,7 +461,7 @@ sexp." (unless (eq ?\( (char-before)) (pop coordinates))) ;; #(...) is read as (fn* ([] ...)), so we patch that here. - (when (looking-back "#(") + (when (looking-back "#(" (line-beginning-position)) (pop coordinates)) (if coordinates (let ((next (pop coordinates))) |