[nongnu] elpa/rubocop 2b782ec 23/64: Merge pull request #13 from ojab/master

[ELPA Syncer]

branch: elpa/rubocop
commit 2b782ecbe7feda9c92d26a45a803bd932604f5ee
Merge: 7446469 9b23b05
Author: Bozhidar Batsov <bozhidar.batsov@gmail.com>
Commit: Bozhidar Batsov <bozhidar.batsov@gmail.com>

    Merge pull request #13 from ojab/master
    
    Make rubocop-emacs TRAMP-aware
---
 rubocop.el | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/rubocop.el b/rubocop.el
index dae674a..02e4050 100644
--- a/rubocop.el
+++ b/rubocop.el
@@ -58,6 +58,13 @@
   :group 'rubocop
   :type 'string)
 
+(defun rubocop-local-file-name (file-name)
+  "Retrieve local filename if FILE-NAME is opened via TRAMP."
+  (cond ((tramp-tramp-file-p file-name)
+         (tramp-file-name-localname (tramp-dissect-file-name file-name)))
+        (t
+         file-name)))
+
 (defun rubocop-project-root ()
   "Retrieve the root directory of a project if available.
 The current directory is assumed to be the project's root otherwise."
@@ -79,7 +86,7 @@ Alternatively prompt user for directory."
          (or directory
              (read-directory-name "Select directory:"))))
     (compilation-start
-     (concat command " " directory)
+     (concat command " " (rubocop-local-file-name directory))
      'compilation-mode
      (lambda (arg) (message arg) (rubocop-buffer-name directory)))))
 
@@ -115,7 +122,7 @@ Alternatively prompt user for directory."
   (let ((file-name (buffer-file-name (current-buffer))))
     (if file-name
         (compilation-start
-         (concat command " " file-name)
+         (concat command " " (rubocop-local-file-name file-name))
          'compilation-mode
          (lambda (arg) (rubocop-buffer-name file-name)))
       (error "Buffer is not visiting a file"))))