emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/drupal-mode f205ee475e 213/308: drupal-detect-drupal-versi


From: ELPA Syncer
Subject: [nongnu] elpa/drupal-mode f205ee475e 213/308: drupal-detect-drupal-version: Allow tabs in .info
Date: Tue, 25 Jan 2022 10:59:48 -0500 (EST)

branch: elpa/drupal-mode
commit f205ee475e505fb7355b5a68b9ff3c53d79cc3d9
Author: Kaare Slettnes <kaare@slettnes.org>
Commit: Kaare Slettnes <kaare@slettnes.org>

    drupal-detect-drupal-version: Allow tabs in .info
---
 drupal-mode.el | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/drupal-mode.el b/drupal-mode.el
index 053ef47451..7cc6d356b1 100644
--- a/drupal-mode.el
+++ b/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"))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]