branch: externals/yaml
commit bda9a00090d6daf52cde39e9c3823750fd6f6d41
Author: Naoya Yamashita <[email protected]>
Commit: Naoya Yamashita <[email protected]>
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")))