          (result (shell-command-to-string (format "php -r \"%s;\"" code))))
     (if doInsert
         (insert result)
+        (message "php -r \"%s;\"" code)
         (message "%s" result))))
 
 ;; Syntax check the current buffer

          (goto-char (point-min))
          (display-buffer buf t))
        t)))

        (root (substring tags-file-name
                         0 (- (length tags-file-name) 4)))
        (func (replace-regexp-in-string "\"" "\\\\\"" func)))
    (message (format "cd %s; grep -F -r -n -o --include='*.php' '\\<%s\\>' *" root func))
    (setq msg (shell-command-to-string (format "cd %s; grep -F -r -n -o --include='*.php' '%s' *" root func)))
    (if (string= msg "")
        (progn (message "no references found") 
