[nongnu] elpa/drupal-mode 4ef339db0a 045/308: Don't locate standard for each buffer.

[ELPA Syncer]

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

    Don't locate standard for each buffer.
    
    No need to locate whether Drupal coding standards for PHP CodeSniffer
    is installed each time we visit a new buffer.
    
    Instead we locate the Drupal coding standard in a defcustom only once
    (and as bonus the user can supply her own standard if wanted).
---
 drupal/flymake-phpcs.el | 23 ++++++++++++++++-------
 1 file changed, 16 insertions(+), 7 deletions(-)

diff --git a/drupal/flymake-phpcs.el b/drupal/flymake-phpcs.el
index a8ac52af74..00e909449b 100644
--- a/drupal/flymake-phpcs.el
+++ b/drupal/flymake-phpcs.el
@@ -6,19 +6,28 @@
 
 ;;; Code:
 
+(defcustom drupal/flymake-phpcs-standard
+  (ignore-errors
+    (let ((standards (with-output-to-string
+                       (with-current-buffer standard-output
+                         (call-process (executable-find flymake-phpcs-command) 
nil (list t nil) nil "-i")))))
+      (string-match
+       "\\(Drupal[^, 
+]*\\)"
+       standards)
+      (match-string-no-properties 1 standards)))
+  "Name of Drupal coding standard rules for PHP CodeSniffer."
+  :link '(url-link :tag "Drupal Code Sniffer" 
"http://drupal.org/project/drupalcs";)
+  :group 'drupal)
+
 (defun drupal/flymake-phpcs-enable ()
   "Enable drupal-mode support for flymake-phpcs."
   (when (and (eq major-mode 'php-mode)
              (executable-find flymake-phpcs-command)
-             (ignore-errors
-               (string-match
-                "Drupal"
-                (with-output-to-string
-                  (with-current-buffer standard-output
-                    (call-process (executable-find flymake-phpcs-command) nil 
(list t nil) nil "-i"))))))
+             drupal/flymake-phpcs-standard)
     ;; Set the coding standard to "Drupal" (we checked that it is
     ;; supported above.
-    (set (make-local-variable 'flymake-phpcs-standard) "Drupal")
+    (set (make-local-variable 'flymake-phpcs-standard) 
drupal/flymake-phpcs-standard)
 
     ;; This is a php-mode file so add the extension to a buffer locale
     ;; version of `flymake-allowed-file-name-masks' and make