fix string-match fail on nil input

zweifisch · Jul 9, 2016 · 47a7b36 · 47a7b36
1 parent 358dded
commit 47a7b36
Showing 1 changed file with 5 additions and 4 deletions.
diff --git a/ob-http.el b/ob-http.el
@@ -102,10 +102,11 @@
     `(,(s-downcase (car key-value)) . ,(cadr key-value))))
 
 (defun ob-http-parse-content-type (content-type)
-  (cond
-   ((string-match "json" content-type) 'json)
-   ((string-match "html" content-type) 'html)
-   ((string-match "xml" content-type) 'xml)))
+  (when content-type
+    (cond
+     ((string-match "json" content-type) 'json)
+     ((string-match "html" content-type) 'html)
+     ((string-match "xml" content-type) 'xml))))
 
 (defun ob-http-shell-command-to-string (command input)
   (with-temp-buffer