`'s-format' tranform value to be string

1 files changed, 2 insertions, 4 deletions

diff --git a/s.el b/s.el
index 75a12c4..c1ebd78 100644
--- a/s.el
+++ b/s.el
@@ -333,9 +333,7 @@ This is a simple wrapper around the built-in `string-match-p'."
   (replace-regexp-in-string (regexp-quote old) new s t t))
 
 (defun s--aget (alist key)
-  (let ((result (cdr (assoc-string key alist))))
-    (when result
-      (format "%s" result))))
+  (cdr (assoc-string key alist)))
 
 (defun s-replace-all (replacements s)
   "REPLACEMENTS is a list of cons-cells. Each `car` is replaced with `cdr` in S."
@@ -560,7 +558,7 @@ transformation."
                           (if extra
                               (funcall replacer var extra)
                             (funcall replacer var))))))
-                   (if v v (signal 's-format-resolve md)))
+                   (if v (format "%s" v) (signal 's-format-resolve md)))
                (set-match-data replacer-match-data)))) template
                ;; Need literal to make sure it works
                t t)