drupal-detect-drupal-version: Allow tabs in .info

Author: kaaresl

drupal-mode.el

@@ -662,20 +662,20 @@ the location of DRUPAL_ROOT."
         (insert-file-contents-literally module)
         (goto-char (point-min))
         (when (and (not drupal-version)
-                   (re-search-forward "^core *=" nil t))
-          (re-search-forward " *\"?\\([^\"]+\\)\"?" (point-at-eol) t)
+                   (re-search-forward "^core[ \t]*=" nil t))
+          (re-search-forward "[ \t]\"?\\([^\"]+\\)\"?" (point-at-eol) t)
           (setq version (match-string-no-properties 1)))
         (goto-char (point-min))
-        (when (re-search-forward "^name *=" nil t)
-          (re-search-forward " *\"?\\([^\"]+\\)\"?" (point-at-eol) t)
+        (when (re-search-forward "^name[ \t]=" nil t)
+          (re-search-forward "[ \t]*\"?\\([^\"]+\\)\"?" (point-at-eol) t)
           (setq module-name (match-string-no-properties 1)))
         (goto-char (point-min))
-        (when (re-search-forward "^version *=" nil t)
-          (re-search-forward " *\"?\\([^\"]+\\)\"?" (point-at-eol) t)
+        (when (re-search-forward "^version[ \t]*=" nil t)
+          (re-search-forward "[ \t]*\"?\\([^\"]+\\)\"?" (point-at-eol) t)
           (setq module-version (match-string-no-properties 1)))
         (goto-char (point-min))
-        (when (re-search-forward "^project *=" nil t)
-          (re-search-forward " *\"?\\([^\"]+\\)\"?" (point-at-eol) t)
+        (when (re-search-forward "^project[ \t]*=" nil t)
+          (re-search-forward "[ \t]*\"?\\([^\"]+\\)\"?" (point-at-eol) t)
           (setq project (match-string-no-properties 1)))
         (when (and (string= project "drupal")
                    (string= module-version "VERSION"))