[nongnu] elpa/yaml-mode 0ca35e8a0e 3/3: Merge pull request #87 from tarsiiformes/indentation

[ELPA Syncer]

branch: elpa/yaml-mode
commit 0ca35e8a0e75756c7f062339f1aabe2dc37bccf1
Merge: b706947366 913f672103
Author: Vasilij Schneidermann <mail@vasilij.de>
Commit: GitHub <noreply@github.com>

    Merge pull request #87 from tarsiiformes/indentation
    
    Fix indentation
---
 yaml-mode.el | 40 ++++++++++++++++++++--------------------
 1 file changed, 20 insertions(+), 20 deletions(-)

diff --git a/yaml-mode.el b/yaml-mode.el
index 123ee579e3..bf87f3b4f9 100644
--- a/yaml-mode.el
+++ b/yaml-mode.el
@@ -103,8 +103,8 @@ that key is pressed to begin a block literal."
   :group 'yaml)
 
 (defface yaml-tab-face
-   '((((class color)) (:background "red" :foreground "red" :bold t))
-     (t (:reverse-video t)))
+  '((((class color)) (:background "red" :foreground "red" :bold t))
+    (t (:reverse-video t)))
   "Face to use for highlighting tabs in YAML files."
   :group 'faces
   :group 'yaml)
@@ -243,7 +243,7 @@ that key is pressed to begin a block literal."
     (,yaml-document-delimiter-re . (0 font-lock-comment-face))
     (,yaml-directive-re . (1 font-lock-builtin-face))
     ("^[\t]+" 0 'yaml-tab-face t))
-   "Additional expressions to highlight in YAML mode.")
+  "Additional expressions to highlight in YAML mode.")
 
 (defun yaml-mode-syntax-propertize-function (beg end)
   "Override buffer's syntax table for special syntactic constructs."
@@ -431,27 +431,27 @@ otherwise do nothing."
     (while (and (looking-at-p yaml-blank-line-re) (not (bobp)))
       (forward-line -1))
     (let ((nlines yaml-block-literal-search-lines)
-         (min-level (current-indentation))
-         beg)
+          (min-level (current-indentation))
+          beg)
       (forward-line -1)
       (while (and (/= nlines 0)
-                 (/= min-level 0)
-                 (not (looking-at-p yaml-block-literal-re))
-                 (not (bobp)))
-       (setq nlines (1- nlines))
-       (unless (looking-at-p yaml-blank-line-re)
-         (setq min-level (min min-level (current-indentation))))
-       (forward-line -1))
+                  (/= min-level 0)
+                  (not (looking-at-p yaml-block-literal-re))
+                  (not (bobp)))
+        (setq nlines (1- nlines))
+        (unless (looking-at-p yaml-blank-line-re)
+          (setq min-level (min min-level (current-indentation))))
+        (forward-line -1))
       (when (and (< (current-indentation) min-level)
                  (looking-at-p yaml-block-literal-re))
-       (setq min-level (current-indentation))
-       (forward-line)
-       (setq beg (point))
-       (while (and (not (eobp))
-                   (or (looking-at-p yaml-blank-line-re)
-                       (> (current-indentation) min-level)))
-         (forward-line))
-       (narrow-to-region beg (point))))))
+        (setq min-level (current-indentation))
+        (forward-line)
+        (setq beg (point))
+        (while (and (not (eobp))
+                    (or (looking-at-p yaml-blank-line-re)
+                        (> (current-indentation) min-level)))
+          (forward-line))
+        (narrow-to-region beg (point))))))
 
 (defun yaml-fill-paragraph (&optional justify region)
   "Fill paragraph.