diff options
author | Vitalie Spinu <spinuvit@gmail.com> | 2014-08-02 12:14:14 -0700 |
---|---|---|
committer | Vitalie Spinu <spinuvit@gmail.com> | 2014-08-02 12:14:14 -0700 |
commit | 37fb62b1e8b6a49c161d9e3edc6537d01edcd030 (patch) | |
tree | 3821150fa8a9364f450a31c341483f94c756c95b /cider-interaction.el | |
parent | 2c281dd5116c4eb1f7097d76cca8775c1dd53fbc (diff) |
Use truename consistently in highlighting compilation errors
Fixes (scan-error "Unbalanced parentheses") when the compiled file is
simlinked.
Diffstat (limited to 'cider-interaction.el')
-rw-r--r-- | cider-interaction.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/cider-interaction.el b/cider-interaction.el index 8920d5f1..4c2ec86c 100644 --- a/cider-interaction.el +++ b/cider-interaction.el @@ -993,7 +993,8 @@ until we find a delimiters that's not inside a string." (save-excursion ;; when we don't have a filename or it's different from the one of ;; the current buffer, the line number is relative to form start - (if (and file (equal file (file-truename (buffer-file-name)))) + (if (and file (equal (file-truename file) + (file-truename (buffer-file-name)))) (goto-char (point-min)) ; start of file (beginning-of-defun)) (forward-line (1- line)) |