(top-level): No need to require thingatpt.

(json-read-keyword): Use thing-at-point rather than word-at-point.

diff --git a/lisp/json.el b/lisp/json.el
index 787ea0eb7ce45402f57ba7c8bdf245c0c8b99208..64d6f03a780fe92ba0694437b978d456804cebbf 100644 (file)
--- a/lisp/json.el
+++ b/lisp/json.el
@@ -53,7 +53,6 @@
 ;;; Code:
 
 (eval-when-compile (require 'cl))
-(require 'thingatpt)
 
 ;; Compatibility code
 
@@ -200,14 +199,14 @@ KEYWORD is the keyword expected."
             (signal 'json-unknown-keyword
                     (list (save-excursion
                             (backward-word 1)
-                            (word-at-point)))))
+                            (thing-at-point 'word)))))
           (json-advance))
         keyword)
   (unless (looking-at "\\(\\s-\\|[],}]\\|$\\)")
     (signal 'json-unknown-keyword
             (list (save-excursion
                     (backward-word 1)
-                    (word-at-point)))))
+                    (thing-at-point 'word)))))
   (cond ((string-equal keyword "true") t)
         ((string-equal keyword "false") json-false)
         ((string-equal keyword "null") json-null)))