# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1203652585 0
# Node ID 23ee465a6963230245a66605daf947e587ce4431
# Parent  ba71847b7f2e9d8d5a7463d454d3068063949cda
(top-level): No need to require thingatpt.
(json-read-keyword): Use thing-at-point rather than word-at-point.

diff -r ba71847b7f2e -r 23ee465a6963 lisp/json.el
--- a/lisp/json.el	Fri Feb 22 03:54:52 2008 +0000
+++ b/lisp/json.el	Fri Feb 22 03:56:25 2008 +0000
@@ -53,7 +53,6 @@
 ;;; Code:
 
 (eval-when-compile (require 'cl))
-(require 'thingatpt)
 
 ;; Compatibility code
 
@@ -200,14 +199,14 @@
             (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)))