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")))

Reply via email to