If you also use IntelliJ...Emacs and IntelliJ integration...

[Chitale, Sandip V]

;;; intellij.el --- edit current file in intellij

;; Author: Sandip V. Chitale
;; Created: Sep 03 2003
;; Keywords: open file intellij

;; This file is not part of GNU Emacs yet.

;;; Commentary:
;;
;; This package enables opening file in IntelliJ from emacs buffer.
;; 
;; Background:
;; IntellJ (http://www.jetbrains.com) has an easy mechanism to edit
;; files in external programs. For example, defining an external tool
;; (using Options:External Tools) with:
;;
;; Program: C:\emacs\bin\gnuclientw.exe
;; Parameters: +$LineNumber$  "$FilePath$"
;;
;; However there is no easy way to open a file in IntelliJ from emacs.
;;
;; Alexey Efimov has written an IntelliJ plugin called FileAssociation
;; The FileAssociations plugin provide special file server.
;; It load files into IntelliJ from outside, using a TCP/IP socket based
;; server. Get it from:
;; http://www.intellij.org/twiki/bin/view/Main/FileAssociations
;; 
;; To install and use, put this file on your Emacs-Lisp load path and
add the
;; following into your ~/.emacs startup file:
;;
;;  (require 'intellij)
;;
;; You may set the following key binding:
;;
;; (global-set-key [(control e)] 'open-buffer-file-in-intellij)
;;
;; You may have to customize the `intellij-install-dir' variable to
specify IntelliJ installation
;; directory.
;;
;;; Code:
(defgroup IntelliJ nil
  "Integration with IntelliJ"
  :group 'tools
  :prefix "intellij-")

(defcustom intellij-install-dir "c:\\IntelliJ-IDEA-3.0.4"
  "IntelliJ installation directory"
  :type 'directory
  :group 'IntelliJ
  )

(defun current-line ()
"Return current line number. Based on code from `what-line'."
  (let ((opoint (point)) start)
    (save-excursion
      (save-restriction
        (goto-char (point-min))
        (widen)
        (forward-line 0)
        (setq start (point))
        (goto-char opoint)
        (forward-line 0)
        (count-lines 1 (point))))))

(defun open-file-in-intellij (file &optional line col)
  "Open the specified file in Intellij. If specified go to that line and
column."
  (shell-command (format "%s\\jre\\bin\\javaw -classpath
\"%s\\plugins\\FileAssociations-bin.jar\" loader \"%s\" -l %s -c %s"
                         intellij-install-dir
                         intellij-install-dir
                         file
                         (or line
                             1)
                         (or col
                             1))))

(defun open-buffer-file-in-intellij ()
  "Open current file in Intellij."
  (interactive)
  (open-file-in-intellij (buffer-file-name) (current-line)
(current-column)))

(provide 'intellij)
;;; end of intellij.el