gistfile1.el

(defun php-lint ()
  "Performs a PHP lint-check on the current file."
  (interactive)
  (require 'compile)
  (let* ((compilation-error-regexp-alist '(php))
         (compilation-error-regexp-alist-alist ())
         (tramp (tramp-tramp-file-p (buffer-file-name)))
         (file (or (and tramp
                        (aref (tramp-dissect-file-name (buffer-file-name)) 3))
                   (buffer-file-name))))

    (pushnew '(php "\\(syntax error.*\\) in \\(.*\\) on line \\([0-9]+\\)$" 2 3 nil nil 1)
             compilation-error-regexp-alist-alist)
    (compile (concat "php -l -f \"" file "\""))))