Add php-mode-test--buffer-face-list

Author: zonuexe

php-mode-test.el

@@ -78,6 +78,27 @@ be processed."
                         answers))))
       answers)))
 
+(defun php-mode-test--buffer-face-list (buffer)
+  "Return list of (STRING . FACE) from `BUFFER'."
+  (with-current-buffer buffer
+    (save-excursion
+      (goto-char (point-min))
+      (let (retval begin-pos last-face current-face str)
+        (setq last-face (get-text-property (point) 'face))
+        (setq begin-pos (point))
+        (forward-char 1)
+
+        (while (< (point) (point-max))
+          (setq current-face (get-text-property (point) 'face))
+          (unless (equal current-face last-face)
+            (setq str (buffer-substring-no-properties begin-pos (point)))
+            (setq retval (nconc retval (list (cons str last-face))))
+            (setq begin-pos (point))
+            (setq last-face current-face))
+          (forward-char 1))
+        (setq str (buffer-substring-no-properties begin-pos (point)))
+        (nconc retval (list (cons str last-face)))))))
+
 (cl-defmacro with-php-mode-test ((file &key style indent magic custom) &rest body)
   "Set up environment for testing `php-mode'.
 Execute BODY in a temporary buffer containing the contents of