 (require 'json)
 (require 'url)
 (require 'url-http)
+
+(defun tern-message (fmt &rest objects)
+  (apply 'message fmt objects))
 
 (defun tern-req (port doc c)
   (declare (special url-mime-charset-string url-request-method url-request-data url-show-status))

          (push " -> " parts)
          (push (propertize ret 'face 'font-lock-type-face) parts)))
      (let (message-log-max)
        (message (apply #'concat (nreverse parts)))))))

;; Refactoring ops


      (let ((url (cdr (assq 'url data))))
        (if url
            (browse-url url)
          (tern-message "No definition found."))))))

(defun tern-at-interesting-expression ()
  (if (member (get-text-property (point) 'face)
