[elpa] externals/yaml 7c4b2ec9a5 116/124: Merge pull request #49 from zkry/48-encode-remove-leading-newlines

[ELPA Syncer]

branch: externals/yaml
commit 7c4b2ec9a551c0d2ce0094b030f2ab596f3c32ee
Merge: ee86566af1 7f09102db0
Author: Zachary Romero <zacromero@posteo.net>
Commit: GitHub <noreply@github.com>

    Merge pull request #49 from zkry/48-encode-remove-leading-newlines
    
    Remove leading new-lines for yaml-encode
---
 yaml-tests.el | 4 ++--
 yaml.el       | 3 +++
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/yaml-tests.el b/yaml-tests.el
index 9498a337db..b8af0a1c32 100644
--- a/yaml-tests.el
+++ b/yaml-tests.el
@@ -615,10 +615,10 @@ keep: |+
            "[1, 2, 3]"))
   (should (equal
            (yaml-encode `[((foo . bar) (baz . bax))])
-           "\n- foo: bar\n  baz: bax"))
+           "- foo: bar\n  baz: bax"))
   (should (equal
            (yaml-encode `((deeper . [((foo . bar) (baz . bax))])))
-           "\ndeeper: \n- foo: bar\n  baz: bax"))
+           "deeper: \n- foo: bar\n  baz: bax"))
   (should (equal (yaml-parse-string
                   (yaml-encode [1 [2 [3] 2] 1])
                   :object-type 'alist
diff --git a/yaml.el b/yaml.el
index 6c61ffcd1a..86e8a21ef9 100644
--- a/yaml.el
+++ b/yaml.el
@@ -2765,6 +2765,9 @@ Rules for this function are defined by the yaml-spec JSON 
file."
   "Encode OBJECT to a YAML string."
   (with-temp-buffer
     (yaml--encode-object object 0)
+    (goto-char (point-min))
+    (while (looking-at-p "\n")
+      (delete-char 1))
     (buffer-string)))
 
 (defun yaml--encode-object (object indent &optional auto-indent)