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-inspector.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-inspector.el')
| -rw-r--r-- | cider-inspector.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/cider-inspector.el b/cider-inspector.el index bed8ec41..40cdfc62 100644 --- a/cider-inspector.el +++ b/cider-inspector.el @@ -194,7 +194,7 @@ Current page will be reset to zero." ((and (consp el) (eq (car el) :newline)) (newline)) ((and (consp el) (eq (car el) :value)) - (cider-irender-value (cadr el) (caddr el))) + (cider-irender-value (cadr el) (cl-caddr el))) (t (message "Unrecognized inspector object: %s" el)))) (defun cider-irender-value (value idx) @@ -216,7 +216,7 @@ LIMIT is the maximum or minimum position in the current buffer. Return a list of two values: If an object could be found, the starting position of the found object and T is returned; otherwise LIMIT and NIL is returned." - (let ((finder (ecase direction + (let ((finder (cl-ecase direction (next 'next-single-property-change) (prev 'previous-single-property-change)))) (let ((prop nil) (curpos (point))) |