branch: externals/yaml commit bda9a00090d6daf52cde39e9c3823750fd6f6d41 Author: Naoya Yamashita <con...@gmail.com> Commit: Naoya Yamashita <con...@gmail.com>
return alist key as a symbol as a default --- yaml.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/yaml.el b/yaml.el index 55dcef819e..9e385d1382 100644 --- a/yaml.el +++ b/yaml.el @@ -969,12 +969,12 @@ value. It defaults to the symbol :false." (t (error "Invalid object-type. object-type must be hash-table, alist, or plist"))) (cond ((or (not object-key-type) - (equal 'string object-key-type)) + (equal 'symbol object-key-type)) (if (equal 'plist yaml--parsing-object-type) (setq yaml--parsing-object-key-type 'keyword) - (setq yaml--parsing-object-key-type 'string))) - ((equal 'symbol object-key-type) - (setq yaml--parsing-object-key-type 'symbol)) + (setq yaml--parsing-object-key-type 'symbol))) + ((equal 'string object-key-type) + (setq yaml--parsing-object-key-type 'string)) ((equal 'keyword object-key-type) (setq yaml--parsing-object-key-type 'keyword)) (t (error "Invalid object-key-type. object-key-type must be string, keyword, or symbol")))