From f62e3e0a291a6d95ff65b15451d04bcc1457a22d Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Fri, 22 Feb 2008 03:56:25 +0000 Subject: [PATCH] (top-level): No need to require thingatpt. (json-read-keyword): Use thing-at-point rather than word-at-point. --- lisp/json.el | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/lisp/json.el b/lisp/json.el index 787ea0eb7ce..64d6f03a780 100644 --- 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))) -- 2.39.5