branch: externals/yaml commit 0ac7f365bb6b4507259b31679bb37ac291e1f1c7 Merge: bdfaa8ce55 94ea32ecb7 Author: Zachary Romero <zacrom...@posteo.net> Commit: GitHub <nore...@github.com>
Merge pull request #41 from zkry/fix-property-prop-bug Don't remove all properties, just yaml-n --- yaml.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/yaml.el b/yaml.el index a715d3d4d8..ff5de1ed21 100644 --- a/yaml.el +++ b/yaml.el @@ -3,7 +3,7 @@ ;; Copyright © 2021 Zachary Romero <z...@posteo.org> ;; Author: Zachary Romero <z...@posteo.org> -;; Version: 0.5.0 +;; Version: 0.5.1 ;; Homepage: https://github.com/zkry/yaml.el ;; Package-Requires: ((emacs "25.1")) ;; Keywords: tools @@ -45,7 +45,7 @@ (require 'seq) (require 'cl-lib) -(defconst yaml-parser-version "0.5.0") +(defconst yaml-parser-version "0.5.1") (defvar yaml--parse-debug nil "Turn on debugging messages when parsing YAML when non-nil. @@ -261,7 +261,7 @@ This flag is intended for development purposes.") (defun yaml--process-literal-text (text) "Remove the header line for a folded match and return TEXT body formatted." (let ((n (get-text-property 0 'yaml-n text))) - (setq text (substring-no-properties text 0 (length text))) + (remove-text-properties 0 (length text) '(yaml-n nil) text) (let* ((header-line (substring text 0 (string-match "\n" text))) (text-body (substring text (1+ (string-match "\n" text)))) (parsed-header (yaml--parse-block-header header-line))