[nongnu] elpa/drupal-mode f5fe08ccb3 209/308: Improved `drupal-tail-drupal-debug-txt`.

[ELPA Syncer]

branch: elpa/drupal-mode
commit f5fe08ccb3040e6c43cbc32a906ba50d58ac4886
Author: Arne Jørgensen <arne@arnested.dk>
Commit: Arne Jørgensen <arne@arnested.dk>

    Improved `drupal-tail-drupal-debug-txt`.
    
    Added the DRUPAL_ROOT as parameter to the drush command.
---
 drupal-mode.el | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/drupal-mode.el b/drupal-mode.el
index 6f9a94fbaa..cf3f05b581 100644
--- a/drupal-mode.el
+++ b/drupal-mode.el
@@ -466,13 +466,15 @@ If a drupal_debug.txt exists in the sites temporary 
directory
 visit it and enable `auto-revert-tail-mode' in the visiting
 buffer."
   (interactive)
-  (when drupal-drush-program
-    (let* ((tmp (ignore-errors
+  (when (and drupal-drush-program
+             drupal-rootdir)
+    (let* ((root drupal-rootdir)
+           (tmp (ignore-errors
                   (replace-regexp-in-string
                    "[\n\r]" ""
                    (with-output-to-string
                      (with-current-buffer standard-output
-                       (call-process drupal-drush-program nil (list t nil) nil 
"core-status" "temp" "--pipe" "--format=list" "--strict=0"))))))
+                       (call-process drupal-drush-program nil (list t nil) nil 
(concat "--root=" (expand-file-name root)) "core-status" "temp" "--pipe" 
"--format=list" "--strict=0"))))))
            (dd (concat tmp "/drupal_debug.txt")))
       (when (file-readable-p dd)
         (find-file-other-window dd)