Phafi: can change default port for geben in order to allow several debugging...

Phafi: can change default port for geben in order to allow several debugging sessions on same machine

scripts/emacs/phafi-mode.el

@@ -76,7 +76,7 @@
   (org-link-minor-mode t)
   (gtags-mode t)
   (setq ag-highlight-search t)
-  (setq ag-arguments(list "--smart-case" "--nogroup" "--column" "--ignore phonetix.txt" "--ignore TAGS" "--ignore-dir report" "--ignore coverage.xml" "--ignore-dir emacs" "--ignore-dir fichiers" "--ignore-dir jQuery" "--ignore-dir ckeditor" "--ignore jquery.mobile-1.1.0.min.js" "--ignore jquery.mobile-1.2.0.min.js"  "--" ))
+  (setq ag-arguments(list "--smart-case" "--nogroup" "--column" "--ignore-dir report" "--ignore coverage.xml" "--ignore-dir emacs" "--ignore-dir fichiers" "--ignore-dir jQuery" "--ignore-dir ckeditor" "--ignore jquery.mobile-1.1.0.min.js" "--ignore jquery.mobile-1.2.0.min.js"  "--" ))
   (setq ac-sources '(ac-source-gtags ac-source-words-in-buffer ac-source-php-auto-yasnippets))
   (imenu-add-menubar-index)
   (phafi-init-menu)
@@ -159,7 +159,7 @@
 (defun phafi-compile-phpunit (&optional params filename debug testdox)
   (let
       ((command-filter (if params (concat " --filter " params) " "))
-       (debug-mode (if debug "XDEBUG_CONFIG=1 " ""))
+       (debug-mode (if debug (concat "XDEBUG_CONFIG='remote_port=" (number-to-string geben-dbgp-default-port) "' ") ""))
        (testdox-option (if testdox " --testdox " "")))
 
     (if debug (progn (geben 1)